Objektorientierte Programmierung mit Object-Pascal

Bei einer fußgesteuerten Schleife wird am Ende des Schleifenkörpers über eine Bedingung geprüft, ob die Schleife erneut durchlaufen werden soll.

Es wird also die Anweisung bzw. der Schleifenkörper mindestens ein mal ausgeführt.

Zur Konstruktion einer fußgesteuerten Schleife wird die REPEAT-UNTIL-Anweisung eingestetzt.

REPEAT
    Anweisung(en)
UNTIL Bedingungsausdruck;

Mit folgendem Beispiel werden die ersten 100 natürlichen Zahlen addiert, indem Zahl i um eins vergrößert und addiert wird, bis 100 erreicht ist.

var i, Summe: Integer;

i := 0;
Summe := 0;

REPEAT
    i := i + 1;
    Summe := Summe + i;
UNTIL i = 100;

ShowMessage('Die Summe der ersten 100 natürlichen Zahlen ist ' + IntToStr(Summe));