编程计算半径为R的圆的面积和周长 [复制链接]

解：这是一个简单问题，按数学方法可分以下几步进行处理：
  ① 从键盘输入半径的值R；       { 要求告诉圆的半径R }
    ② 用公式 S=πR2 计算圆面积；
  ③ 用公式 C=2πR 计算圆周长；
  ④ 输出计算结果。

Pascal程序:
Program Ex13；                   {程序首部 }
Var R，S，C: Real；       {说明部分 }
Begin                               {语句部分 }
  Write (''R=?'')；
  Readln(R)；           {输入半径 }
  S:=Pi*R*R；           ｛圆面积公式S=πR2｝
  C:=2*Pi*R；           ｛圆周长公式C=2πR｝
  Writeln(''S=''，S)；         {输出结果 }
  Writeln(''C=''，C)；              
  Readln               ｛等待输入回车键｝            
End.

main (){int r;fout<<"c="<<2*3.14*r<<endl<<"s="<<3.14*r*r<<endl;}
看谁短？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？

强！确实比我的程序短！

不过，还可以更短~~~

var r:real;
begin
read(r);
write(pi*r*r, #13, 2*pi*r);
end.

不愧是sammy312

var r:real;
begin
read(r);
writeln(pi*r*r, #13, 2*pi*r);
end.

注：#13是回车字符的ASCII码。

引用第8楼caithagoras于2006-08-07 21:40发表的“”:
这不就是入门题吗？
对了，管理员你那道NOI的题目现在又没有做出来？就是很多多边形的重叠面积那一道？

只有去问 SRbGa 了~~~

这个感觉就像是编程入门必做的一道题一样...

呵呵　这也太简单了吧　我刚开始学时就是学这题的　

别人在为为新手服务

管理员哥哥，发难些的题目行吗