作者MOONRAKER (㊣八點了!全體集合!)
看板Visual_Basic
標題Re: [VB6 ] 利用遞迴產生數列
時間Fri Aug 14 18:04:20 2009
3n+1是一個經典題目,用VB寫還滿有趣的
這涉及一些麻煩的宣告,我寫過以後覺得這也不太容易,應該給你點提示
基本上程式會長得像這個樣子
' 命名:3n+1 === 3n plus 1 === 3np1
Function r3np1(n As Integer, k As Integer, ByRef stages() As Integer) As Integer
...
if ... then
...
else
if ... then
r3np1 = r3np1( ... )
else
r3np1 = r3np1( ... )
end if
end if
end function
sub r3np1main()
dim v(500) as integer
rctarget = r3np1(27, ?, ?)
...
end sub
想辦法把裡面的 ... 和 ? 填上去,就寫好了
--
Google 關鍵字 : MPFC-TCP / 殺人笑話 / 包租婆也有過當羅莉的時候
Youtube關鍵字 : 脫衫脫褲 / 傻蛋奧運 / 宗教審訊 / 買張床 / 單車超人 / 謳歌金錢
*美髮師登山隊 http://tinyurl.com/dm6lh3 *Ypres 1914 http://tinyurl.com/b432jb
[蒙帝派松正體中文計畫] http://www.youtube.com/user/JamesBondXD
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 59.120.168.228
推 AA64:謝謝m大 不過我還是不太懂 那個2n和2n+1只是偶數跟奇數 08/14 19:30
→ AA64:應該不需要再多一個變數n吧 麻煩你了 08/14 19:31
→ MOONRAKER:這個n不是算式中的n 我可以告訴你k是用來計算步數的 08/14 20:54
→ MOONRAKER:判斷是否偶數用mod就可以了 這個n是主要參數 08/14 20:54