作业帮 > 综合 > 作业

pascal 语言 while 语句

来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/05/01 16:02:30
pascal 语言 while 语句
小球从100高处自由落下,着地后又弹回高度的一半再落下.求第20次着地时,小球共通过多少路程?
新手.
var s:integer;
n:real;
begin
n:=100;
s:=0;
while s
再问: 它求的是总路程吧?一共是20次着地。要全部加起来的。。我搞定了。。 program cx3; var a,s:real;c:integer; begin s:=100; c:=1; a:=s; while c