Question

用pascal 求斐波那契数列前20项，并以每行5个数的格式输出 用while循环

Answer 1

Var
now,i,j,n,m:longint;

Begin
now:=2;write(1:5,1:5);n:=1;m:=1;
while now<20 do
begin
i:=n;n:=m;m:=i+n;write(m:5);
inc(now);if now mod 5=0 then writeln;
end;
End.

Answer 2

var
a:array[1..20]of longint;
s:longint;
begin
a[1]:=1;a[2]:=1;s:=2;//初始赋值
while s<20 do
begin
inc(s);
a[s]:=a[s-1]+a[s-2];//第三项等与前两项之和
end;
s:=0;
for s:=1 to 20 do
begin
write(a[s],' ');//输出
if s mod 5 =0 then writeln;//每5个一换行
end;
end.
希望能帮到你！

Answer 3

program BAIDU(input,output);
uses crt;

var t,i,a,b:integer;

begin
a:=1;
b:=1;
i:=0;
write(a,' ',b,' ');
while (i<18) do begin
write(a+b,' ');
t:=a;
a:=b;
inc(b,t);
inc(i);
end;
readkey();
end.