Ergebnis der Suchanfrage

• Forum: Programmieren allgemein

  Re: rekursive funktion

   
    by himitsu, 2. Dez 2003
  :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:
  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
• Forum: Programmieren allgemein

  Re: rekursive funktion

   
    by himitsu, 2. Dez 2003
  Dann ist das wohl so richtig (vermutlich):
  Function Fac(N: Integer = 1): Integer;
  Begin
  Fak := 1;
  If N = 1 Then Fak
  Else Fak := N * Fak(N - 1);
  End;
  
  Oder so:
  Function Fac(N: Integer): Integer;
• Forum: Programmieren allgemein

  Re: rekursive funktion

   
    by himitsu, 2. Dez 2003
  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.
  
  
  Am Besten, du zeigst mal die gesamte Ausgabenstellung.
  
  http://www.delphipraxis.net/images/common/divider.jpg