喜剧总动员郑恺:递归排序算出1,1,2,3,5,8……的第30个数?
来源:百度文库 编辑:高考问答 时间:2024/08/30 08:39:31
用程序写出来?
Private Sub Command1_Click()
Dim f(15) As Integer
List1.Clear
f(1)=1:f(2)=1
p=Format("Fib("& 1 &"):","!@@@@@@@@@@@@@@")& Format(f(1),"########")
List1.AddItem p,0
For i=3 To 15
f(i)=f(i-1)+f(i-2)
p=Format("Fib("& i &"):","!@@@@@@@@@@@@@@")& Format(f(i),"########")
List1.AddItem p,i-1
Next
End Sub
菲薄那切数列
也是著名的 洋灰三角!!!
任意一个数都等于上上一个数乘2+上上上一个数。
第30个数就等于第28个数乘2加上第27个数第28个数就等于第26个数乘2加上第25个数依次往前,等于7668
?
切割!
bu
第三个数为前两项之和,自己拿张纸推一下
应该是7668