Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- const
- eps = 0.00001;
- x = 1 / 5;
- x2 = 1 / 239;
- var
- d, s, s2, p, p2: real;
- k: integer;
- begin
- S := x;
- P := x;
- k := 0;
- while(abs(p/(2*k+3)) >= eps) do
- begin
- inc(k);
- p := (-p)*(x*x)*(2*k+1);
- s := s + (p/(2*k+3));
- end;
- S2 := x2;
- P2 := x2;
- k := 0;
- while(abs(p2/(2*k+3)) >= eps) do
- begin
- inc(k);
- p2 := (-p2)*(x2*x2)*(2*k+1);
- s2 := s2 + (p2/(2*k+3));
- end;
- d := (16 * s) - (4 * s2);
- writeln(d)
- end.
Advertisement
Add Comment
Please, Sign In to add comment