Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program z2;
- const
- x = 0.82413;
- y = 3.15874;
- function ArcSin(x:real):real;
- begin
- arcsin:=arctan(x/sqrt(1-sqr(x)));
- end;
- function step(x, st: real): real;
- begin
- step := exp(st * ln(x));
- end;
- function f(x, y: real): real;
- begin
- 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));
- end;
- var
- z: real;
- begin
- z := f(x, y);
- writeln(z:20:18);
- readln;
- end.
Advertisement
Add Comment
Please, Sign In to add comment