fork download
copy 
  1. program while27;
  2. var i,n:integer; 
  3.     s,y,z,e,x:real;
  4. begin
  5. readln(n);
  6. readln(e);
  7. readln(x);
  8. s:=0;
  9. y:=x;
  10. i:=1;
  11. z:=1;
  12. for i:=2 to n do
  13.       begin
  14.       s:=s+y*z;
  15.       z:=-z;
  16.       y:=y*x*x/(2*i-2)*(2*i-1);
  17.       end;
  18. writeln(s);
  19. writeln(sin(x));   
  20. end.
  21.  
Success #stdin #stdout 0.01s 252KB
comments (?)
stdin
copy 
7
100
60
stdout
copy 
-9.818550234214233E+019
-3.0481062110221671E-0001
https://ideone.com/9SwKE
language:
Pascal (fpc 3.0.4)
created:
14 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!