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

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

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

Program Lab1;

var N,i: integer;

    A,B,X,Y,d: real;

begin

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

    writeln('Количество значений функции N: '); 

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

    writeln('Нижняя границ отрезка A: '); 

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

    writeln('Верхняя границ отрезка B: '); 

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

    i:=1; X:=A; d:=(B-A)/(N-1);

    writeln('Таблица значений аргумента и функции');

    while i<N+1 do

    begin

        write(i:3,' '); write(X:5:2,' ');

        if ((X<0) or (cos(Pi*X)=-1) or (A>=B)) then

            writeln(' NaN')

        else

        begin

            Y:=(sin(Pi*X/2)+exp(ln(X)/5))/(sqrt(abs(cos(Pi*X)+1))*exp(sqrt(X)));

            writeln(Y:5:2);

        end;

        i:=i+1; X:=X+d;

    end;

end.

STDIN

10

1.4

2.9