rekursive funktion

[maxfromgermany]

also, ich bin ein ziehmlicher neuling in delphi :) deswegen brauch ich ein bissle hilfe ...
ich soll also eine rekursive funktion erstellen. gegeben habe ich folgendes:

Delphi-Quellcode:

Fak=1
if n=1 then Fak  
else Fak=n*Fak(n-1)

dann soll ich einmal n=4 einsetzen und dann erklären was passiert, und dann soll ich noch ne for schleife zu dem ganzen schreiben. habe allerdings wirklich keine ahnung wie das gehen soll! kann mir da bitte jemand helfen?

[Treffnix]

Irgendwas fehlt in der 2. Zeile des Beispielcodes.

[maxfromgermany]

bitte entschuldige wenn ich keine ahnung davon habe, aber was kann denn da noch fehlen, damit es funktioniert?

[himitsu]

Ein Hallöle von http://www.FrankNStein.de/Smiley-Wolke.gif und ein herzliches Willkommen in der DP-Gemeinde,

nicht nur in der 2. Zeile.

Von Recursieven Funktionen sehe ich auch nichts - könnte mir zwar was vorstellen, aber bei fremden Hausaufgaben ist das was anderes.

[ADD]
Am Besten, du zeigst mal die gesamte Ausgabenstellung.

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

[mirage228]

soll das ne berechnung von ! (Fakultät) werden?

mfG
mirage228

[Treffnix]

Also dem fak wird ja gar kein Wert zugewiesen wenn n = 1 ist. Was genau zugewiesen werden muss, kann ich dir auch nicht sagen, da ich ja nicht weiss, was du bezweckst.

[OT] Sagt dir 44557 was? [/OT]

[maxfromgermany]

lol, Q89 ... :) deine omni?

es geht darum, dass wir in info ne klausur schreiben und unser lehrer ne ziehmliche flsche im erklären ist :) und der andere kurs hat zufällig die selbe klausur geschrieben die wir morgen schreiben, und das sind alle informationen die ich dazu habe...

[maxfromgermany]

also nochmal :)

Delphi-Quellcode:

if n=1 then Fak:=1
else Fak:=n*Fak(n-1)

dann sollen wir wohl n=4 als probe einsetzen ...

[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.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

[maxfromgermany]

und wie kann ich da jetz ne for schleife einbringen?

[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?