PASCAL语言编程问题

来源：百度知道 编辑：UC知道 时间：2024/05/16 04:20:24
1、Faibonacci数列前几列为：0，1，1，2，3，5，8．．．，其规律是从第三项起，每项均等于前两项之和。求前30项，并以每行5个数的格式输出。
2、小球是从100高处自由落下，着地之后又弹回高度的一半在落下。求第20次着地时，小球共通过多少路程？
如果答对了我会给20分悬赏！绝对会给的哦！

1.
var a,b:longint;
i:integer;
j:integer;//计数器

begin

write('0 1 ');
j:=2;

a:=0;
b:=1;

for i:=3 to 30 do
begin
b:=a+b;
a:=b-a;

write(b,' ');
inc(j);
if j mod 5=0 then writeln;
end;

end.
——————
2.
var i:integer;
high:real;
s:real;

begin
high:=100;

for i:=1 to 20 do
begin
s:=s+high*1.5;
high:=high/2;
end;

writeln(S:0:5);
end.