相当简单的PASCAL问题

来源：百度知道 编辑：UC知道 时间：2024/06/03 00:29:41
1.一只小虫身长1厘米,它每天都长大1倍.他5天身长多少?

用For 循环..

2.条件一样,,问题:问小虫几天超过1米?

用Repeat循环..

1
n:=1;
for i:=1 to 5 do n:=n*2;
2
n:=1;
i:=1;
repeat
n:=n*2;
i:=i+1;
until i>5;

程序一

var i,l:integer;
begin
l:=1;
for i:=1 to 5 do l:=l*2;
writeln('五天后的长度是：',l,'里面');
end.

程序二
var i,l:integer;
i:=0;
l:=1;
repeat
i:=i+1;
l:=l*2;
until l>100;
writeln(i,'天之后长度超过1米，为：',l,'里面');
end.