conisor.pas

来自「This ar the basic programs that i did in」· PAS 代码 · 共 17 行

program con;
{sa sa scrie un program care sa calculeze volumul si aria unui con de raza R=6 si inaltime h=8. }
var V,S,G:real;
    a,z:integer;
const
     R=6;
     h=8;
begin
G:=sqrt(h*h+R*R);
S:=Pi*R*(G+R);
writeln('S= ',S);
a:=R*R div 3;
V:=PI*h*a;
writeln('V= ',V);
read(z);
end.