主题：新手求助~~!!!!!!GGJJ帮帮忙!
sd1815405
[专家分：0] 发布于 2006-02-20 18:49:00
我们刚刚学Pascle
老师告诉我们了求圆形面积
const pi=3.1416;
var s:real;
r:integer;
begin
writeln('Please input radius:');
readln(r);
s:=pi*r*r;
writeln('s=',s);
readln;
end.
在这个里面,怎么样才能在运行的时候不会退出程序.
可以继续输入 r 求面积??[em18]
回复列表 （共5个回复）
沙发
47 [专家分：590] 发布于 2006-02-20 18:57:00
const pi=3.1416;
var s:real;
r,i:integer;
begin
for i:=1 to 100 do
begin
writeln('Please input radius:');
readln(r);
s:=pi*r*r;
writeln('s=',s);
readln;
end;
end.
板凳
lmj9201 [专家分：1400] 发布于 2006-02-21 12:19:00
const pi=3.1416;
var
s:real;
d,r:integer;
begin
repeat
writeln('Please input 1 or 0');
readln(d);
if d=1 then begin
writeln('Please input radius:');
readln(r);
s:=pi*r*r;
writeln('s=',s);
readln;
end
else d:=0;
until d=0;
end.
你没说什么停止条件，我就自作主张，在输入半径前加了输入1或0来控制
3 楼
lmj9201 [专家分：1400] 发布于 2006-02-21 13:27:00
还有，是Pascal,不是Pascle
4 楼
sd1815405 [专家分：0] 发布于 2006-02-22 12:27:00
呵呵
意外~~~~打错了
谢谢了
5 楼
风花雪月☆雨 [专家分：460] 发布于 2006-02-26 12:56:00
[quote]还有，是Pascal,不是Pascle[/quote]
这都可以，眼神太好使了
我来回复
您所在位置：