获取斐波那契数列的函数

文章作者 100test 发表时间 2011:03:22 18:44:30
来源 100Test.Com百考试题网

导读:获取 "斐波那契数列" 的函数。 　　{　斐波那契数列:　1、2、3、5、8、13、21、34、55、89、144　...　等于前两数之和　}　
　　{　昂纳多·斐波那契(Leonardo　Fibonacci,　1170-1240,　意大利数学家)　}
　　uses　Types.
　　{参数　2　是要获取的总数}
　　procedure　fbnc(var　A:　TInt64DynArray.　Count:　Integer).
　　var
　　i:　Integer.
　　begin
　　SetLength(A,　Count).
　　A[0]　:=　1.
　　A[1]　:=　2.
　　for　i　:=　2　to　Count　do　A[i]　:=　A[i-2]　 　A[i-1].
　　end.
　　{测试}
　　procedure　TForm1.Button1Click(Sender:　TObject).
　　var
　　ns:　TInt64DynArray.
　　n:　Int64.
　　begin
　　fbnc(ns,　90).
　　Memo1.Clear.
　　for　n　in　ns　do　Memo1.Lines.Add(IntToStr(n)).
　　end.
　　{查看其黄金分割比}
　　procedure　TForm1.Button2Click(Sender:　TObject).
　　var
　　ns:　TInt64DynArray.
　　i:　Integer.
　　begin
　　fbnc(ns,　90).
　　Memo1.Clear.
　　for　i　:=　0　to　Length(ns)　-　1　do
　　begin
　　if　i　=　0　then　Continue.
　　Memo1.Lines.Add(FloatToStr(ns[i]　/　ns[i-1])).
　　end.
　　end.

　　推荐:

　　#0000ff>如何用弹出窗口显示进度

　　更多相关资料:

　　#0000ff>百考试题教育全国计算机等级考试在线测试平台

　　#0000ff>全国计算机等级考试论坛