Repeat-Until Schleife ???

[robkoz]

Zweck der Repeat-Until-Schleife:
Eine Reihe von Anweisungen sollen ausgeführt werden bis eine bestimmte Bedingung vorliegt
zum Beispiel:

Es soll solange gewürfelt werden, bis man eine 6 würfelt
und die benötigte Anzahl der Würfe soll ausgegeben werden:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var Wurf, Anzahl: Integer;
begin
  randomize;
  Anzahl:=0;
  Repeat
    Wurf:=Random(6)+1;
    Anzahl:=Anzahl+1;
  Until Wurf=6;
  ShowMessage('Es waren '+IntToStr(Anzahl)+' Würfe nötig!');
end;

Es wird keine begin-end-Klammer benötigt und die Repeat-Until schleife wird mindestens einmal durchlaufen.

Gruß robkoz

[edit=r_kerber]Delphi-Tags gesetzt. Mfg, r_kerber[/edit]