rekursive funktion

[scp]

Zitat:

Zitat von maxfromgermany

und wie kann ich da jetz ne for schleife einbringen?

Kommt drauf an, was die for-Schleife bewirken soll.

[scp]

Zitat:

Zitat von 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;

Führt das nicht zu einer Endlos-Schleife?

[maxfromgermany]

was kann die for schleife denn in diesem fall alles bewirken

[maxfromgermany]

Zitat:

Zitat von scp

Führt das nicht zu einer Endlos-Schleife?

es soll ja n=4 eingesetzt werden. aso käm dann raus

Delphi-Quellcode:

Else Fak := 4 * Fak(4 - 1);

was 12 sein sollte

[himitsu]

:oops: 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.delphipraxis.net/images/common/divider.jpg
http://www.FrankNStein.de/Smiley-Kuss.gif * * http://www.FrankNStein.de/Smiley-Spinne.gif * * * http://www.FrankNStein.de/Smiley-Winken.gif

[scp]

Alles! :-) Eine for-Schleife wiederholt einen Code-Abschnitt innerhalb eines vrgegebenen Bereiches.

Delphi-Quellcode:

for i := 1 to 5 do
  begin
    // Hier Code
  end;

Hier z.B. wird der Abschnitt zwischen begin und end; fünfmal durchlaufen, die Variable i enthält dabei die aktuelle Zahl des Durchlaufs.

[maxfromgermany]

super, dankesehr :)

[Christian Seehase]

Moin Zusammen,

man sollte vielleicht noch berücksichtigen, dass 0! = 1 ist.

[APP]

Hallo Max,

Zitat:

Zitat von maxfromgermany

und wie kann ich da jetz ne for schleife einbringen?

bedenke, mit der FOR-Schleife machst Du die Rekursion überflüssig, möchtest Du das?