作业帮pascal 编程,求输出斐波那契数列,例题答案如下,求高人解释一下每一步什么意思,鄙人渣新.
来源：学生作业帮 编辑：作业帮 分类：综合作业 时间：2024/05/05 19:13:12
pascal 编程,求输出斐波那契数列,例题答案如下,求高人解释一下每一步什么意思,鄙人渣新.
program w11;
var a0,a1,a2,i:integer;
begin
a0:=0;
a1:=1;
write(a0,' ',a1,' ');
for i:=2 to 20 do
begin
a2:=a0+a1;
write(a2,' ');
if i mod 5=4 then
writeln;
a0:=a1;
a1:=a2;
end;
end.
program w11;
var a0,a1,a2,i:integer;
begin
a0:=0;
a1:=1;
write(a0,' ',a1,' ');
for i:=2 to 20 do
begin
a2:=a0+a1;
write(a2,' ');
if i mod 5=4 then
writeln;
a0:=a1;
a1:=a2;
end;
end.
知道什么叫斐波那契数列吧?就是从第3个数开始,每个数是前面两个数的和.
program w11;
var a0,a1,a2,i:integer; //声明几个变量
begin
a0:=0;//给第一个数赋值
a1:=1;//给第二个数赋值
write(a0,' ',a1,' ');//输出前两个数,每个数后面有空格
for i:=2 to 20 do//循环19次
begin
a2:=a0+a1;//第三个数为前两个数的和
write(a2,' ');//输出第三个数加一个空格
if i mod 5=4 then//如果i对5取余得4,
writeln;//就另起一行.这样每行是五个数
a0:=a1;//重新给a0和a1赋值,用于计算下一个数.
a1:=a2;
end;
end.
program w11;
var a0,a1,a2,i:integer; //声明几个变量
begin
a0:=0;//给第一个数赋值
a1:=1;//给第二个数赋值
write(a0,' ',a1,' ');//输出前两个数,每个数后面有空格
for i:=2 to 20 do//循环19次
begin
a2:=a0+a1;//第三个数为前两个数的和
write(a2,' ');//输出第三个数加一个空格
if i mod 5=4 then//如果i对5取余得4,
writeln;//就另起一行.这样每行是五个数
a0:=a1;//重新给a0和a1赋值,用于计算下一个数.
a1:=a2;
end;
end.