rekursive funktion

[himitsu]

Dann ist das wohl so richtig (vermutlich):

Delphi-Quellcode:

Function Fac(N: Integer = 1): Integer;
  Begin
    Fak := 1;
    If N = 1 Then Fak 
    Else Fak := N * Fak(N - 1);
  End;

Oder so:

Delphi-Quellcode:

Function Fac(N: Integer): Integer;
  Begin
    If N = 1 Then Fak := 1
    Else Fak := N * Fak(N - 1);
  End;

Das Problem ist jetzt nur, das es für beides eine andere Lösung gibt.


http://www.FrankNStein.de/Smiley-Kuss.gif * * http://www.FrankNStein.de/Smiley-Spinne.gif * * * http://www.FrankNStein.de/Smiley-Winken.gif