作业帮pascal编程!今天就要!
来源：学生作业帮 编辑：作业帮 分类：综合作业 时间：2024/05/28 12:13:30
pascal编程!今天就要!
小球从100米高处落下,着地后又弹回高度的一半,求第20次着地时,小球共同过多少路程
小球从100米高处落下,着地后又弹回高度的一半,求第20次着地时,小球共同过多少路程
program xiaoqiu;
var b:integer;
a,c:real;
begin
a:=100;
c:=100;
for b:=2 to 3 do{第一次落地时走过路程为100,也就是a,所以从第2次开始循环}
begin
c:=c/2;{弹回高度的一半}
a:=a+c*2;{小球弹起来还会落下,所以c*2}
end;
writeln(a:10:4);
readln;{暂停看结果}
end.
如果不明白此题,最好画个图,看起来会更明白.
var b:integer;
a,c:real;
begin
a:=100;
c:=100;
for b:=2 to 3 do{第一次落地时走过路程为100,也就是a,所以从第2次开始循环}
begin
c:=c/2;{弹回高度的一半}
a:=a+c*2;{小球弹起来还会落下,所以c*2}
end;
writeln(a:10:4);
readln;{暂停看结果}
end.
如果不明白此题,最好画个图,看起来会更明白.