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

LabWork3

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

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

Program Lab3;

var R,H: array [0..1000] of real;

    N,i,c: integer;

    V: real;

begin

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

    c:=0; V:=0;

    writeln('Количество резервуаров N: '); 

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

    i:=0; 

    while i<N do

    begin

        writeln('Номер резервуара i: ',i+1);

        readln(R[i]); readln(H[i]);

        write('Радиус резервуара R: ',R[i]:5:2);

        write('Уровень топлива H: ',H[i]);

        if ((R[i]<=0) or (H[i]<0) or (2*R[i]<H[i])) then

        begin

            writeln('Данные не корректны');

            c:=1; break;

        end

        else

            if H[i]>0 then 

                V:=V+Pi*exp(2*ln(H[i]))*(R[i]-H[i]/3);  

        i:=i+1;

    end;

    if c=0 then

    begin

        write('Суммарный объем топлива V: ',V:15:4);

    end;

end.

STDIN

5

282.26

112.35

246.19

184.01

943.02

0

902.51

1414.61

245.93

91.32