一道程序作业题

来源：百度知道 编辑：UC知道 时间：2024/05/16 19:19:49
用Pascal语言编写一道计算题：已知某圆半径R=139，求该圆的周长C与面积S？

回答要快！！！
我急呐!要是满意还会加分!

Program xxx(input,output);
const
pi=3.14;
var
r,c,s:real;
begin
read(r);
c:=2*pi*r;
s:=pi*r*r;
writeln('zhouchangshi:',c);
write('mianjishi:',s);
end.
太简单了，自己看一下书就行了！

C=2*pi*r
s=pi*r*r

pi不用定义，pascal的保留字……

我的更简单，更准确：
begin
writeln('zhouchang:',2*139*pi:0:X);
writeln('mianji:',139*139*pi:0:X);
end.
(注：当你想保留几位小数，X就等于几。如保留2位小数，X的值就为2。这是pascal中的双场宽，你应该知道)
给上面几位大侠的几句话：“R：=139，不需要你去赋值。”
（来我的空间看我的文章呦）

program rjy;
const
pi=3.14;
var
i,c,s:real;
begin
i:=139;
s:=pi*i*i;
c:=pi*i*2;
writeln('s:=',s:8:2,'c:=',c:8:2);
end.

PROGRAM xxx (input,output)
VAR
r:integer;c,s,p:real
CONST
r=139;p=3.14159265358979323846
BEGIN
c:=r*2*p
s:=r*r*p
writeln("the c=",c:20:10,".the s=",s: