ЛР4 Программирование (1.3.3 В22) - III

LabWork4
📑 Compile Pascal Online
Для проверки текст программы копируется в main.pas, 
данные (каждое число на новой строке) - в STDIN.

III. Программа Pascal

Program Lab4;

var R,H,V: real;

    N,i,c: integer;

begin

    writeln('Лаб.4':38);

    c:=0; V:=0;

    write('Количество дисков N: '); 

    readln(N); writeln(N:3);

    write('Радиус колышка R: '); 

    readln(R); writeln(R:5:2);  

    write('Толщина диска H: '); 

    readln(H); writeln(H:5:2);

    if ((R<=0) or (H<=0)) then

    begin

        writeln('Данные не корректны'); c:=1;

    end

    else

        i:=1; 

        while i<N+1 do

        begin

            V:=V+0.5*Pi*H*H*(R+i*H/2-H/6); i:=i+1;

        end;

    if c=0 then

    begin

        write('Объем игрушки V: '); writeln(V:7:4);

    end;

end.

STDIN

3

4.17

2.79