fork download
copy 
  1. program du3;
  2.  
  3.  
  4. procedure rp(x:real;n:integer; var p,q:real);
  5. var ps,y:real;
  6. begin
  7. 	if n=0 then 
  8. 		begin
  9. 			p:=trunc(x);
  10. 			q:=1;
  11. 		end
  12. 	else  
  13. 		begin
  14. 			y:=1/(x-trunc(x));
  15. 			rp(y,n-1,p,q);
  16. 			ps:=p;
  17. 			p:=ps*trunc(x)+q;
  18. 			q:=ps;
  19. 		end;
  20. end;
  21.  
  22. var p,q,r,s:real;
  23. begin
  24. rp(pi,10,p,q);
  25. rp(exp(1),10,r,s);
  26. writeln(p:0:0,'/',q:0:0);
  27. writeln(r:0:0,'/',s:0:0);
  28. end.
Success #stdin #stdout 0s 5448KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
4272943/1360120
2721/1001
https://ideone.com/2NvHup
language:
Pascal (fpc 3.0.4)
created:
1 year 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!