编程计算半径为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.

C++程序:
#include<iostream>
using namespace std;
int main()
{
  const float pi=3.14;
  float r,s,c;
 
  cout<<"输入半径"<<endl;
  cin>>r;
  s=pi*r*r;
  c=2*pi*r;

  cout<<"面积为:"<<s<<endl
      <<"周长为:"<<c<<endl;
  return 0;
}

lz没定义pi的值.

楼主发这个干吗啊

引用第1楼cefly于2006-07-31 22:29发表的“”:
C++程序:
#include<iostream>
using namespace std;
int main()
{
.......

你来我也来，看谁程序短！（语言不同，属于不正当竞争）

var r:real;
begin
read(r);
writeln(pi*r*r);
write(2*pi*r);
end.

Who can give me another short one? Please!

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

别人在为为新手服务

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

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

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

只有去问 SRbGa 了~~~

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

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