Guest User

Untitled

a guest
May 13th, 2012
26
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.46 KB | None | 0 0
  1. program z2;
  2.  
  3. const
  4.   x = 0.82413;
  5.   y = 3.15874;
  6.  
  7. function ArcSin(x:real):real;
  8. begin
  9. arcsin:=arctan(x/sqrt(1-sqr(x)));
  10. end;
  11.  
  12.  
  13. function step(x, st: real): real;
  14. begin
  15.   step := exp(st * ln(x));
  16. end;
  17.  
  18. function f(x, y: real): real;
  19. begin
  20.   f := (exp(-y) + arcsin(x / 2)) / (step((step(x, 2) + sqrt(step(x, 3) + y)), 1 / 3) + step(x + step(x + y, 1 / 3), 2));
  21. end;
  22.  
  23. var
  24.   z: real;
  25.  
  26. begin
  27.   z := f(x, y);
  28.   writeln(z:20:18);
  29.   readln;
  30.   end.
Advertisement
Add Comment
Please, Sign In to add comment