paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-05 17:08:01 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed compilation

Browse Source 
git-svn-id: trunk@8784 -
This commit is contained in:
Jonas Maebe 2007-10-14 08:50:24 +00:00
parent 3ccdad2abe
commit 1c8d0eef9b
1 changed files with 23 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
tests/webtbs/tw9919.pp
View File

@ -1,21 +1,23 @@
type
TForm1 = class
function crash(n:integer):real;
end;
function TForm1.crash(n:integer):real;
begin
case n of
0: Result:=0;
1..100: Result:=crash(n-1)+crash(n-1);
end;
end;
var
f : TForm1;
begin
f:=TForm1.create;
writeln(f.crash(15));
f.Free;
end.
{$mode objfpc}
type
TForm1 = class
function crash(n:integer):real;
end;
function TForm1.crash(n:integer):real;
begin
case n of
0: Result:=0;
1..100: Result:=crash(n-1)+crash(n-1);
end;
end;
var
f : TForm1;
begin
f:=TForm1.create;
writeln(f.crash(15));
f.Free;
end.