fork(13) download
copy 
  1. Program Exponentiel;
  2. Var x, s, epsilon, p, f:real;
  3. i:integer;
  4. Begin
  5. Writeln('epsilon = ');
  6. Readln(epsilon);
  7. Writeln('x = ');
  8. Readln(x);
  9. s:=1;
  10. i:=1;
  11. p:=1;
  12. f:=1;
  13. Repeat
  14. p:=p*x;
  15. f:=f*i;
  16. s:=s+p/f;
  17. i:=i+1;
  18. Until abs(p/f) <= epsilon;
  19. Writeln('expn = ', s:2:10);
  20. End.
Success #stdin #stdout 0s 288KB
comments (?)
stdin
copy 
0.000000000255245
25
stdout
copy 
epsilon = 
x = 
expn = 72004899337.3859000000
https://ideone.com/1WpXmH
language:
Pascal (fpc 3.0.4)
created:
7 years ago
visibility:
secret

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!