fork download
copy 
  1. program ideone;
  2. uses math;
  3. var s, e, x, a, a1 :real;
  4. k:integer;
  5. begin
  6. k:=1;
  7. s:=0;
  8. e:=0.00001;
  9. writeln('Input x');
  10. readln(x);
  11. a:=(-1)*(x/2);
  12. repeat
  13. a1:=a;
  14. a:=power((-x),2)/((2*k+1)*(2*k+2));
  15. s:=s+a;
  16. k:=k+1;
  17. until abs(a1-a)>e;
  18. writeln('Sum = ',s:5:5,'  kol = ',k);
  19. end.
Success #stdin #stdout 0s 448KB
comments (?)
stdin
copy 
3
stdout
copy 
Input x
Sum = 0.75000  kol = 2
https://ideone.com/o3cuyW
language:
Pascal (fpc 3.0.4)
created:
9 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!