fork(1) download
copy 
  1. program test;
  2.  
  3. uses
  4. SysUtils;
  5.  
  6. var
  7.  i,n:integer;
  8.  s,a,x:real;
  9. begin
  10.   readln(x,n);
  11.   s:=1-1/2*x;
  12.   a:=-1/2*x;
  13.   for i:=2 to n do begin
  14.     a:=-a*(2*i-1)/(2*i)*x;
  15.     s:=s+a;
  16.   end;
  17.   write('s=',1/sqrt(1+x):8:4, '    s=',s:8:4);
  18. end.
Success #stdin #stdout 0.01s 340KB
comments (?)
stdin
copy 
0.1 4
stdout
copy 
s=  0.9535    s=  0.9535
https://ideone.com/6LOBTr
language:
Pascal (fpc 3.0.4)
created:
11 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!