Revision; result überschreiben

[himitsu]

Zitat von Mokus:

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.