Spicke

45545

Jan 20th, 2017
143
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.36 KB | None | 0 0
  1. uses compl;
  2.  
  3. const eps = 0.00001;
  4.  
  5. var z, x, y, p, s: complex;
  6.     k: integer;
  7.    
  8. begin
  9.     zero(s);
  10.     one(p);
  11.     input(z);
  12.     while(moduz(p) >= eps) do
  13.     begin
  14.         inc(k);
  15.         prod(1/k,z,x);
  16.         prod((2*k-1)/(2*k-3),x,y);        
  17.         mult(p,y,p);
  18.         add(s,p,s);
  19.     end;
  20.     output(s);
  21.     writeln
  22. end.
Advertisement
Add Comment
Please, Sign In to add comment