Spicke

32542325

Jan 20th, 2017
183
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.54 KB | None | 0 0
  1. const
  2.   eps = 0.00001;
  3.   x = 1 / 5;
  4.   x2 = 1 / 239;
  5.  
  6. var
  7.   d, s, s2, p, p2: real;
  8.   k: integer;
  9.  
  10. begin
  11.     S := x;
  12.     P := x;
  13.     k := 0;
  14.     while(abs(p/(2*k+3)) >= eps) do
  15.     begin
  16.         inc(k);
  17.         p := (-p)*(x*x)*(2*k+1);
  18.         s := s + (p/(2*k+3));
  19.     end;
  20.    
  21.     S2 := x2;
  22.     P2 := x2;
  23.     k := 0;
  24.     while(abs(p2/(2*k+3)) >= eps) do
  25.     begin
  26.         inc(k);
  27.         p2 := (-p2)*(x2*x2)*(2*k+1);
  28.         s2 := s2 + (p2/(2*k+3));
  29.     end;
  30.    
  31.     d := (16 * s) - (4 * s2);
  32.    
  33.     writeln(d)
  34. end.
Advertisement
Add Comment
Please, Sign In to add comment