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