杭州交通信息网安徽财经大学宿舍图片:关于一个编程问题
来源：百度文库 编辑：杭州交通信息网 时间：2024/05/12 05:47:47
我编的程序错在哪里?
问题是:已知图圆柱体的高为12，底面圆的半径为7，求圆柱体表面积。
以下是我编的程序：
Program ex7;
const h=12;
r=7;
var s:real;
begin
realn(h,r);
s:=pi*2*r*h+pi*r*r*2;
writeln(s);
end.
我错在哪里了？
问题是:已知图圆柱体的高为12，底面圆的半径为7，求圆柱体表面积。
以下是我编的程序：
Program ex7;
const h=12;
r=7;
var s:real;
begin
realn(h,r);
s:=pi*2*r*h+pi*r*r*2;
writeln(s);
end.
我错在哪里了？
pi变量未声明。
在const里面加上
pi=3.1415926;
(学Pascal呢，是吧？我8岁的时候就学完了)
应该是：
（1）readln拼错了有d
（2）h和r被定义成常数，再用readln读值是错误的
另：
pi是pascal中已有的函数，不用在Const定义
=====>
Program ex7;
const h=12;
r=7;
var s:real;
begin
s:=pi*2*r*h+pi*r*r*2;
writeln(s);
end.