Repeat-Until Schleife ???

[Devilo]

HI LEUDE

So ihr alle dürft mia nochma was erklärn !!! wär nett ...

Und zwar die REPEAT-UNTIL Schleife ...
Wieso? Wozu? Warum? Wie? all sowas!
... Mit nen paat schönen leichtverständlichen Beispielen ...
Danke

[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]

[MyRealName]

wichtig zu sagen wäre, daß es die einzigste Schleife ist, die unbedingt mind. 1 mal durchlaufen wird, während die beiden anderen, die es gibt nicht zwingend durchlaufen werden müssen ("For..To" und "While..Do"). Daraus ergeben sich gleich ganz andere Bedingungen des Programmierens

LG, MRN

[Devilo]

Ich muss hia au ma wieda DANKE sagen ...
DANKE an all die netten Leude ...