ЛР2 Программирование (1.3.1 В21) - III

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

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

Program Lab2;

var D: array [0..1000] of real;

    N,i: integer;

    A,R,T: real;

begin

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

    writeln('Время перемещения в секундах N: '); 

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

    writeln('Ускорение A в м/с^2: '); 

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

    writeln('Расстояние в начальный момент времени R: '); 

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

    writeln('Миимальное расстояние T: '); 

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

    if ((A<=0) or (R<T)) then

        writeln('Введите другие данные')

    else

    begin

        i:=1; 

        writeln('Таблица значений расстояния D');

        while i<N+1 do

        begin

            D[i]:=sqrt(T*T+exp(2*ln(abs(0.5*A*i*i-sqrt(R*R-T*T)))));

            writeln(i:3,' ',D[i]:7:4);

            i:=i+1;

        end;

    end;

end.

STDIN

7

3.2

23.1

9.4