Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:инфа / Глава 1 раздел 1
.docЛабораторная работа №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.
Соседние файлы в папке инфа