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

问题描述：

用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个数.

1个回答分类：综合 2014-12-12

问题解答：

我来补答

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;

展开全文阅读

上一页：壬

下一页：判断题。