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

LabWork5
📑 Compile Pascal Online

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

Program Lab5;

var A,KX1,KdX,X,Y: real;

    N,i: integer;

begin

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

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

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

    write('Значение параметра A: '); 

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

    write('KX1 => X1=KX1*A: '); 

    readln(KX1); X:=KX1*A;

    write(KX1:5:2); write('=>'); writeln(X:5:2);  

    write('KdX => dX=KdX*A: '); 

    readln(KdX); write(KdX:5:2); 

    write('=>'); writeln(KdX*A:5:2);

    i:=1; writeln('Таблица значений');

    while i<N+1 do

    begin

        if X<3*A then

            Y:=-A*Exp(X-3*A)

        else

            Y:=-A-A*Ln(X-3*A);

        write(X:5:2); write(', '); writeln(Y:5:4);

        X:=X+KdX*A; i:=i+1;

    end;

end.

STDIN

20

0.8

-4

0.4