REPEAT-UNTIL-Schleife

 zurück

Die Anweisung zwischen Wiederhole (repeat) und bis (until) heißt Schleifenkörper, die Bedingung nach bis Abbruchbedingung, sie legt fest, wann eine weitere Wiederholung der Schleife abgebrochen wird.

 
wiederhole
  Anweisung
bis Bedingung erfüllt

Beispiel 1: Wurzelberechnung nach Heron

Erläuterungen
auch Erläuterungen
Applet

Variante 1

Variante 2

AB für einfaches Programm, inkl. Struktogramm AB
Flussdiagramm  
Heron1, selbstentpackend Heron2, selbstentpackend

Üben Sie die beiden Versionen der Wurzelberechnung nach Heron in Delphi!

Beispiel 2 (Delphi)

 

procedure TForm1.Button1Click(Sender: TObject);
var i, Summe: Integer;
begin
  i := 0;
  Summe := 0;
  repeat
    i := i + 1;
   Summe := Summe + i;
  until i = 10;
ShowMessage('Die Summe der ersten 10 natürlichen Zahlen ist ' + IntToStr(Summe));
end;
Addiere die ersten 10 natürlichen Zahlen