怎么用PASCAL输入已知圆柱体的高为12,底面的半径为7,求圆柱体表面积?

Question

怎么用PASCAL输入已知圆柱体的高为12,底面的半径为7,求圆柱体表面积?

Answer 1

Program SurfaceArea;
Var h,r,s:Real;//定义三个实数类型变量：h高,r底面半径,s表面积
Begin
Readln(h,r);//读入
s:= 2 * Pi * Sqr(r) + 2 * Pi * r * h;//圆柱体的表面积等于底面积的两倍与侧面积的和
Writeln(s:0:2);//输出,保留了两位小数
End.