fork download
copy 
  1. var x,t,e,s:real;
  2.     n:integer;
  3. begin
  4. write('|x|<1 x=');
  5. readln(x);
  6. x:=abs(x);
  7. e:=0.0001;
  8. n:=0;
  9. t:=1;
  10. s:=t;
  11. while abs(t)>e do
  12.  begin
  13.   n:=n+1;
  14.   t:=-t*x*(2*n-1)/(2*n);
  15.   s:=s+t;
  16.  end;
  17. writeln('S=',s:0:4);
  18. write('f=',1/sqrt(1+x):0:4);
  19. end.
Time limit exceeded #stdin #stdout 5s 9136KB
comments (?)
stdin
copy 
3
stdout
copy 
|x|<1 x=
https://ideone.com/u6LBaT
language:
Pascal (gpc 20070904)
created:
6 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!