Лабы по программированию (КИ МГОУ) / Лабы по программированию 1 курс / Лаба1 / Целиндр

Программный код:

program Project2;

{$APPTYPE CONSOLE}

uses

SysUtils;

var r,h,v:real;

begin

write('vvedite r,h= ');

readln(r,h);

v:=pi*r*r*h;

if r<0 then writeln ('resheniya net')

else

if h<0 then writeln ('resheniya net')

else begin

writeln('v= ',v:4:2);

writeln('***End program***');

end;

readln;

end.

Исходные данные:

r,h,

Результаты расчета:

Блоксхема: