инфа / Глава 1 раздел 1

Лабораторная работа №2

Основы работы в среде Delphi

Дратцев Матвей АТ-13

program Project2;

{$APPTYPE CONSOLE}

uses math;

var a, x, Y, F: real;

begin

a:=2;

x:=4.5;

Y:=(x+a)*(Arctan(x)-sqrt(Abs(exp(3*Ln(x-a))))+Ln(exp(3*Ln(x))+1));

writeln ('Y=', Y:6:2);

F:=Sin(x)-exp((0-a)*x)+Ln(Abs(x+a)+2);

write ('F=', F:6:2);

readln;

readln;

end.

program Project2;

{$APPTYPE CONSOLE}

uses math;

var b, x, Y, F: real;

begin

b:=0.5;

x:=1.5;

Y:=(x+b)*(Arctan(x)-sqrt(Abs(exp(3*Ln(x-b))))+Ln(exp(3*Ln(x))+1));

writeln ('Y=', Y:6:2);

F:=Sin(x)-exp((0-b)*x)+Ln(Abs(x+b)+2);

write ('F=', F:6:2);

readln;

readln;

end.