Rekursive Funktion???

[Marco E.]

Hallo!

Ich möchte eine rekursive Funktion schreiben, die eine Addition ausführt.
Die Addition soll mit dem Wert 0 beginnen und immer um +1 erhöht werden.
Die Abbruchbedingung für die rekursive Funktion soll heißen: Wenn der Rüchgabewert=100, dann verlasse die Funktion.

Vielen Dank und viele Grüße,
Marco

[Mario.Noack]

FUNCTION Sum(Wert: Integer): Integer;

BEGIN

IF Wert >= 100 THEN Result := Wert ELSE Result := Sum(Wert + 1);

END;<p>
Aufruf: Ergebnis := Sum (0)