Программирование на Pascal / Delphi / Лабораторные работы3 / Лабораторная работа 1 / LAB1_2

{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.