Spicke

1213

Jan 20th, 2017
183
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.58 KB | None | 0 0
  1. const eps = 0.00001;
  2.       x = 1/5;
  3.       x2 = 1/239;
  4. var
  5.    s, s1, s2, next : real;
  6.    i : integer;
  7.  
  8. begin
  9.    next := 1; s1 := 1;
  10.  
  11.    i := 2;
  12.    repeat
  13.       next := next * i * sqr(x) / succ(i) / (sqr(x) + 1);
  14.       inc(i, 2);
  15.       s1 := s1 + next;
  16.    until next < eps;
  17.    s1 := s1 * x / (1 + sqr(x));
  18.  
  19.    next := 1; s2 := 1;
  20.  
  21.    i := 2;
  22.    repeat
  23.       next := next * i * sqr(x2) / succ(i) / (sqr(x2) + 1);
  24.       inc(i, 2);
  25.       s2 := s2 + next;
  26.    until next < eps;
  27.    s2 := s2 * x2 / (1 + sqr(x2));
  28.    
  29.    s := (16 * s1) - (4 * s2);
  30.    writeln(s);
  31. end.
Advertisement
Add Comment
Please, Sign In to add comment