0
已解决
初级光能
问一下什么代码可以让Pascal不停的输入，谢谢
0
已采纳
初级光能
program Area;
const pi=3.14159;
var s,r:real;
begin
while not eoln do
begin
readln(r);
s:=pi*sqr(r);
writeln('s=',s);
end;
end.
这个屏幕输入输出无法结束，要按右边的CTRL+SCROLL LOCK（右上角3个键的中间那个）结束
文件输入输出可以结束
while not eoln do的意思是查看有没有剩余的字符，有就运行，没有就结束。（因为屏幕输入输出可以无限输入，所以无法结束）
或者
program Area;
const pi=3.14159;
var s,r:real;
i,n:longint;
begin
readln(n);
for i:=1 to n do
begin
readln(r);
s:=pi*sqr(r);
writeln('s=',s);
end;
end.
先输入N，N为几就输入几次，次数可以调节
0
高级光能
这个真不知道
0
初级光能
什么意思啊？
0
高级天翼
1
