fork download 
  1. program ideone;
  2.  
  3. Function Recursion(n : Integer) : Real;
  4. Var
  5. 	Result : Real;
  6.  
  7. Begin
  8. 	if (n = 40) then
  9. 		Result := Cos(n)
  10. 	else
  11. 		Result := Cos(n + Recursion(n+1));
  12.  
  13. 	Recursion := Result;
  14. End;
  15.  
  16. Begin
  17. 	Write('Result is: ', Recursion(1));
  18. End.
Success #stdin #stdout 0s 2060KB
comments (?)
stdin 
Standard input is empty
stdout 
Result is:  3.495651208261755e-02
https://ideone.com/sjWDku
language:
Pascal (gpc 20070904)
created:
9 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!