Advertisement
Guest User

Untitled

a guest
Sep 28th, 2016
88
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.27 KB | None | 0 0
  1. const a=4; b=2;
  2. var
  3.   x, y, f:real;
  4. begin
  5.   write('Enter x=');
  6.   readln(x);
  7.   y:=exp(ln(x)*5) * cos(a+x) - exp(ln(Abs(2*x-a)) * (1/3)) + ln((x-2)*(x-2) + 2);
  8.   f:=exp(ln(a*x*x+b*x) * (1/2)) * exp(-a*x) + ln(Abs(a-x) + 3);
  9.   writeln('y=', y);
  10.   writeln('F=', f);
  11. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement