文件名称：Delphi 裴波纳契数列求和.rar
文件大小：6KB
文件格式：RAR
更新时间：2022-07-30 10:57:39
Delphi源码-界面编程
一个Delphi数列求和算法范例：裴波纳契数列求和，我们可参照要求写出以下代码： procedure TForm1.Button1Click(Sender: TObject); var int1,n,a,b:longint; begin ListBox1.Clear; a:=1;b:=1; try int1:=StrToInt(edit1.Text); for n:=1 to int1 do begin ListBox1.Items.Add(IntToStr(a)); ListBox1.Items.Add(IntToStr(b)); a:=a b; b:=a b end except showmessage('请输入要计算数字的前多少位'); end; end; 运行效果请参见截图，完整的源码请下载。
【文件预览】：
codesc.net
----裴波纳契数列求和()
--------Project1.res(876B)
--------Unit1.dfm(934B)
--------Unit1.ddp(51B)
--------Project1.cfg(434B)
--------Unit1.pas(874B)
--------Project1.dpr(188B)
--------Project1.dof(2KB)
--------Unit1.dcu(4KB)