UC知道pascal初学者的一个无法运行的程序
来源：百度知道 编辑：UC知道 时间：2024/05/30 00:17:06
program qiutiji(input,output);
const
pi=3.14;
var d,r,c,s,v:real;
begin
readln(r);
d:=2*r;
c:=pi*d;
s:=pi*sqr(r);
v:=pi*sqr(d)*d;
writeln(d);
writeln(c);
writeln(s);
writeln(v);
end.
帮忙看看哪里错了
const
pi=3.14;
var d,r,c,s,v:real;
begin
readln(r);
d:=2*r;
c:=pi*d;
s:=pi*sqr(r);
v:=pi*sqr(d)*d;
writeln(d);
writeln(c);
writeln(s);
writeln(v);
end.
帮忙看看哪里错了
运行很正常,请问您是怎样操作运行的.
运行一切正常,请问你是否要输出是小数?
writeln(d); {科学技术法}
writeln(c:10:2); {保留两位小数并对齐至第十位}
writeln(s:0:2); {当对齐位小于总长时,贴着最前面输出(普通)}
writeln(v:10); {将科学技术法对齐至第十位,如总长小于对齐位则省略末尾0}
pascal 中 “:XX” 称为“场宽”，pascal中小数点后最多可保留11位。
还有，pi是不需要定义常量的，pascal已给pi定义了常量，值为3.1415926536。
program qiutiji(input,output);
const
pi=3.14;
var d,r,c,s,v:real;
begin
readln(r);
d:=2*r;
c:=pi*d;
s:=pi*sqr(r);
v:=pi*sqr(d)*d;
writeln(d:3:3);
writeln(c:3:3);
writeln(s:3:3);
writeln(v:3:3);
end.