Delphi-Quellcode:
function TForm1.Fakulitaet(
n : integer;
max : integer;
iErgebnis: integer): integer;
var
I: integer;
begin
if n <= max then
begin
iErgebnis := iErgebnis * n;
n := n + 1;
result := iErgebnis;
self.Fakulitaet(n, max, iErgebnis);
end;
end;
Dein Compiler gibt da nicht zufällig eine Warnung aus, bezüglich "Result sei nicht initialisiert"
(Nja, und "i wurde deklariert, aber nicht verwendet".)
Und daß du das Ergebnis von dem rekursiven Fakulitaet-Aufruf nicht auswertest, hatte hier schon jemand erwähnt.
PS: Seit 2009 kannst du auch beruhigt "Fakulität" schreiben.