Objektorientierte Programmierung mit Object-Pascal

Die wichtigste aller Schleifenarten ist die abweisende Schleife. Alle anderen könnte man aus dieser aufbauen. Bei einer kopfgesteuerten Schleife wird vor der Bearbeitung der Anweisungen des Schleifenkörpers geprüft, ob die Schleifeneintrittsbedingung erfüllt ist.

Es wird also die Anweisung bzw. der Schleifenkörper möglicherweise niemals ausgeführt.

Zur Konstruktion einer kopfgesteuerten Schleife wird die WHILE-DO-Anweisung eingestetzt.

WHILE Bedingungsausdruck DO Anweisung(en);

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

var i, Summe: Integer;

i := 0;
Summe := 0;

WHILE i <= 100 DO
begin
    Summe := Summe + i;
    i := i + 1;
end;

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