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

LabWork9
📑 Compile Pascal Online

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

Program Lab9;

var X1,HX,Z1,HZ,X,Z,Y: real;

    N,M,i,j: integer;

begin

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

    write('Количество значений N аргумента X: '); 

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

    write('Количество значений M аргумента Z: '); 

    readln(M); writeln(M:3);

    write('Начальное значение аргумента X1: '); 

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

    write('Изменение значения аргумента HX: '); 

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

    write('Начальное значение аргумента Z1: '); 

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

    write('Изменение значения аргумента HZ: '); 

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

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

    i:=1; X:=X1;

    while i<N+1 do

    begin

        j:=1; Z:=Z1;

        while j<M+1 do

        begin

            write(X:5:2,'',Z:5:2,' ');

            if Z*3.3=1 then

                writeln('Y не существует')

            else

            begin

                Y:=(ln(sqrt(pi))+abs(2-X))/(3.3-1/Z)+exp(1/3*ln(Z*Z))*cos(X*X);

                writeln(Y:5:4);

            end;

            Z:=Z+HZ; j:=j+1;

        end;

        X:=X+HX; i:=i+1;

    end;

end.

STDIN

4

3

6.7

0.1

3.3

0.2