Delphi演示斐波那契數列計算

Delphi演示斐波那契數列計算數字的前多少位，斐波那契數列計算用Delphi代碼來實現，需要的朋友可參考下，網上收集的代碼：

Delphi裴波納契數列求和實例代碼：

vIEw source print? 01 unit Unit1; 02 interface 03 uses 04   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 05   Dialogs, StdCtrls; 06 type 07   TForm1 = class(TForm) 08     Button1: TButton; 09     ListBox1: TListBox; 10     Edit1: TEdit; 11     Label1: TLabel; 12     procedure Button1Click(Sender: TObject); 13   private 14     { Private declarations } 15   public 16     { Public declarations } 17   end; 18 var 19   Form1: TForm1; 20 implementation 21 {$R *.dfm} 22 procedure TForm1.Button1Click(Sender: TObject); 23 var 24   int1,n,a,b:longint; 25 begin 26   ListBox1.Clear; 27   a:=1;b:=1; 28   try 29     int1:=StrToInt(edit1.Text); 30     for n:=1 to int1 do 31     begin 32       ListBox1.Items.Add(IntToStr(a)); 33       ListBox1.Items.Add(IntToStr(b)); 34       a:=a+b; 35       b:=a+b 36     end 37   except 38     showmessage('請輸入要計算數字的前多少位'); 39   end; 40 end; 41 end.