Добавил:
Studfiles2
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Программирование на Pascal / Delphi / Лабораторные работы3 / Лабораторная работа 1 / LAB1_1
.PAS {Lab 1_1}
uses Crt;
var
p, x, y, b: real;
f: text;
begin
assign (f, 'lab1_1.txt');
rewrite (f);
clrscr;
x:=25; y:=15;
p:=((ln(x)/ln(10))-exp(x+y))/(sqrt(2)+sqr(y)+abs((exp(3*ln(x))-ln(y))));
writeln ('p=', p:4:3);
writeln (f, 'p=', p:4:3);
writeln (f);
b:=0;
if (x-y)=0 then b:=ln(x/y)+exp(3*ln(sqr(x)+y));
if (x-y)>0 then b:=ln(abs(x*y))+exp(3*ln(sqr(x)+y));
if (x-y)<0 then b:=exp(3*ln(sqr(x)+y));
writeln ('b=', b:8:3);
writeln (f, 'b=', b:8:3);
close (f);
end.
uses Crt;
var
p, x, y, b: real;
f: text;
begin
assign (f, 'lab1_1.txt');
rewrite (f);
clrscr;
x:=25; y:=15;
p:=((ln(x)/ln(10))-exp(x+y))/(sqrt(2)+sqr(y)+abs((exp(3*ln(x))-ln(y))));
writeln ('p=', p:4:3);
writeln (f, 'p=', p:4:3);
writeln (f);
b:=0;
if (x-y)=0 then b:=ln(x/y)+exp(3*ln(sqr(x)+y));
if (x-y)>0 then b:=ln(abs(x*y))+exp(3*ln(sqr(x)+y));
if (x-y)<0 then b:=exp(3*ln(sqr(x)+y));
writeln ('b=', b:8:3);
writeln (f, 'b=', b:8:3);
close (f);
end.
Соседние файлы в папке Лабораторная работа 1