rekursive funktion

[himitsu]

Ups scp - Ich habs bloß versuch zu erweitern, was oben Stand und nicht auf eine endlosrecursion geprüft:

dan wird also das zweite wohl die Richtige Funktion sein:

Delphi-Quellcode:

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

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