作业帮 > 综合 > 作业

用delphi Fibonacci数列,前几个数为0,1,1,2,3,5,…,其规律是:F1=0 (n=1) F2=1

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/23 20:44:59
用delphi Fibonacci数列,前几个数为0,1,1,2,3,5,…,其规律是:F1=0 (n=1) F2=1 (n=2) Fn=Fn-1
Fibonacci数列,前几个数为0,1,1,2,3,5,…,其规律是:
\x05\x05F1=0 (n=1)
\x05\x05F2=1 (n=2)
\x05\x05Fn=Fn-1+Fn-2 (n≥3)
\x05编程序求此数列的前40个数.
function TForm1.getFibo:string;
var
a:array [0..40] of integer;
i:integer;
begin
Result := '0 1';
a[0] := 0;
a[1] := 1;
for i:=2 to 40 do
begin
a[i] := a[i-1]+a[i-2];
Result := Result + ' ' + IntToStr(a[i]);
end;
end;
procedure TForm1.btn1Click(Sender:TObject);
begin
ShowMessage(getFibo);
end;