Добавил:
Studfiles2
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Программирование на Pascal / Delphi / Лабораторные работы3 / Лабораторная работа 1 / LAB1_2
.PAS {Lab 1_2}
uses Crt;
var
p, x, y, b: real;
f: text;
begin
assign (f, 'lab1_2.txt');
rewrite (f);
clrscr;
randomize;
x:=random;
write ('Write Y type real:');
read (y);
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);
delay (10000);
if (x-y)=0 then b:=ln(x/y)+exp(3*ln(sqr(x)+y))
else if (x-y)>0 then b:=ln(abs(x*y))+exp(3*ln(sqr(x)+y))
else if (x-y)<0 then b:=exp(3*ln(sqr(x)+y))
else b:=0;
writeln ('b=', b:8:3);
writeln (f, 'b=', b:8:3);
close (f);
delay (10000);
end.
uses Crt;
var
p, x, y, b: real;
f: text;
begin
assign (f, 'lab1_2.txt');
rewrite (f);
clrscr;
randomize;
x:=random;
write ('Write Y type real:');
read (y);
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);
delay (10000);
if (x-y)=0 then b:=ln(x/y)+exp(3*ln(sqr(x)+y))
else if (x-y)>0 then b:=ln(abs(x*y))+exp(3*ln(sqr(x)+y))
else if (x-y)<0 then b:=exp(3*ln(sqr(x)+y))
else b:=0;
writeln ('b=', b:8:3);
writeln (f, 'b=', b:8:3);
close (f);
delay (10000);
end.
Соседние файлы в папке Лабораторная работа 1