0
已采纳
李泽远
高级天翼
高级天翼
programli1(input,output);//程序首部
var
r,l,s:real;//定义变量
begin
write('inputr:');
readln(r);
s:=pi*r*r;
//pi是pascal系统定义的常量,即圆周率,FP中按实数输出为3.1415926535897932E+0000
l:=2*pi*r;
writeln('s=',s:0:6);
//":0:6"是双场宽,用于实型变量的输出,":0"是场宽,":6"是小数部分长度
writeln('l=',l:0:6);
end.//结束
(我这是框架)。
0
0
0
0
0