Jump to content

Find limit of recursion: Difference between revisions

Find limit of recursion (view source)

Revision as of 06:59, 26 July 2011

54 bytes added ,  12 years ago
→‎{{header|Delphi}}
Line 348:
----
=={{header|Delphi}}==
{{works with|Delphi|5.02010 (and probably all other versions)}}
<lang delphi>program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
 
function Recursive(Level : integerInteger) : integerInteger;
begin
try
Level := Level + 1;
Result := Recursive(Level);
except on e: Exception do
Resulton E:= Level;EStackOverflow do
Result := Level;
end;
end;
 
var
GetInput : integer;
 
begin
Writeln('Recursion Level is ' + inttostrIntToStr(Recursive(0)));
Writeln('Press any key to Exit');
Readln(GetInput);
end.</lang>
 
Output:
<pre>Recursion Level is 423354828781</pre>
 
=={{header|E}}==
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/147395"
Cookies help us deliver our services. By using our services, you agree to our use of cookies.
More information