Вычислить объем V либо площадь боковой поверхности S конуса - Turbo Pascal

Формулировка задачи:

Вычислить объем V либо площадь боковой поверхности S конуса, если заданы радиус основания конуса R и его высота H.

Код к задаче: «Вычислить объем V либо площадь боковой поверхности S конуса - Turbo Pascal»

textual
uses crt;
var r,h,l,v,s:real;
    w:char;
begin
clrscr;
writeln('Введите радиус основания и высоту конуса');
readln(r,h);
repeat
clrscr;
writeln('1-вычислить объем');
writeln('2-вычислить площадь боковой поверхности');
writeln('Другое-выход');
readln(w);
case w of
'1':begin
    clrscr;
    v:=pi/r*r*h/3;
    writeln('r=',r:0:2,' h=',h:0:2,' V=',v:0:2);
    readln
    end;
'2':begin
    clrscr;
    l:=sqrt(r*r+h*h);
    s:=pi*r*l;
    writeln('r=',r:0:2,' h=',h:0:2,' S=',s:0:2);
    readln
    end;
else exit;
end;
until not(w in ['1','2']);
end.

11   голосов, оценка 3.636 из 5


СОХРАНИТЬ ССЫЛКУ