程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> 獲取 斐波那契數列 的函數

獲取 斐波那契數列 的函數

編輯:Delphi

{ 斐波那契數列: 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; 


  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved