0，1，1，2，3
basic:
dim a as integer
dim b as integer
dim s as integer
a=1
b=1
s=2
for i = 3 to n;
s=a+b
a=b
b=s
end for
c:
void main()
{
int i;
int array[n];
array[0]=0;
array[1]=1;
for (i=2;i=array[i-1]+array[i-2];
}
}
delphi:
begin
{
integer array[n];
int i;
array[0]=0;
array[1]=1;
for (i=2;i=array[i-1]+array[i-2];
}
end;作者: x86 时间: 2005-4-11 21:58 标题: [讨论]用数组实现求第N个斐波那契数
