Delphi-PRAXiS - Einzelnen Beitrag anzeigen

**scp**

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?

scp Registriert seit: 31. Okt 2003 1.120 Beiträge Delphi 7 Personal	#12 Re: rekursive funktion 2. Dez 2003, 18:02 Zitat von himitsu: Dann ist das wohl so richtig (vermutlich): markieren 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?
	Zitat