exer2-6.pas

关于课件 好多种结构的算法 等等 大家自己看吧

program e2_6(input,output);
const
  pi=3.14159;
var
s,p,r,h1,h2:real;
begin
  write('input r,h1,h2');
  readln(r,h1,h2);
  writeln('r=',r,'h1=',h1,'h2=',h2);
  p:=2*pi*r*h1+pi*r*sqrt(h2*h2+r*r);
  s:=pi*r*r*h1+1/3*pi*r*r*h2;
  writeln('p=',p,'   s=',s);
  readln(p)
end.