[VB6 ] 利用遞迴產生數列

看板Visual_Basic作者AA64 (蘇軍最高指揮部)時間14年前 (2009/08/14 15:39)推噓1(1推 0噓 3→)

留言4則, 2人參與討論串1/3 (看更多)

這是一個使用遞迴函數的問題小弟想了三,四天了但是一直寫不出來或是寫錯題目是 X(k+1)= X(k)/2 if X(k)=2n 3*X(k)+1 if X(k)=2n+1 條件:1.須利用遞迴函數(副程式) 2.當 X(k)=1 或 k>500 時停止 3.所建立的數據構成一個陣列初始值X(1)=27 算式中X為一陣列而k表示第k項寫了很久不是寫錯就是跑不出來請各位幫幫忙好嗎以下是我的程式碼 sub rec(k) dim X(1 to 500) if k=1 then X(k)=val(inputbox("輸入X(1)")) elseif X(k)=1 or k>500 then exit sub elseif X(k) mod 2 =0 then X(k+1)=X(k)/2 elseif X(k) mod 2 =1 then X(k+1)=X(k)*3+1 else end if call rec(k+1) end sub -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 61.223.226.130 ※ 編輯: AA64 來自: 61.223.226.130 (08/14 15:50)

→

MOONRAKER

08/14 17:19, , 1^F

08/14 17:19, 1^F

→

MOONRAKER

08/14 17:19, , 2^F

08/14 17:19, 2^F

→

MOONRAKER

08/14 17:45, , 3^F

08/14 17:45, 3^F