free pascal 圆锥体积运算源码

来源:学生作业帮助网 编辑:六六作业网 时间:2025/01/23 10:23:51
freepascal圆锥体积运算源码freepascal圆锥体积运算源码freepascal圆锥体积运算源码programaaa;varr,h:longint;beginreadln(r,h);wri

free pascal 圆锥体积运算源码
free pascal 圆锥体积运算源码

free pascal 圆锥体积运算源码
program aaa;
var
r,h:longint;
begin
readln(r,h);
write((r*r*pi*h)/3);
readln;
readln;
end.

const pi=3.14;
var r,h,s,v:real;
begin
readln(r,h);
s:=pi*r*r;
v:=s*h;
writeln(v:0:2);
end.