program a1_1;{$APPTYPE CONSOLE}
var R,S:Real;begin
{ TODO -oUser -cConsole Main : Insert code here }
Write('请输入园的半径: ');
Readln(s);
S:=Pi*R*R; //pi系统定义 Write('面积是=' ,S);
Readln;
end.
程序也能执行,就是结果不对
var R,S:Real;begin
{ TODO -oUser -cConsole Main : Insert code here }
Write('请输入园的半径: ');
Readln(s);
S:=Pi*R*R; //pi系统定义 Write('面积是=' ,S);
Readln;
end.
程序也能执行,就是结果不对
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货