fork download
copy 
  1. program for23;
  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 begin
  13.    while y>e do
  14.       begin
  15.       s:=s+y*z;
  16.       z:=-z;
  17.       y:=y*x*x/(2*i-2)*(2*i-1);
  18.       end;
  19.    end;
  20. writeln(s);
  21. writeln(sin(x));   
  22. end.
  23.  
Success #stdin #stdout 0.01s 252KB
comments (?)
stdin
copy 
6
100
60
stdout
copy 
 0.000000000000000E+000
-3.0481062110221671E-0001
https://ideone.com/Iwn3D
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!