Delphi-PRAXiS - Delphi Repeat-Until Schleife ???

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)

- - Delphi Repeat-Until Schleife ??? (https://www.delphipraxis.net/12763-repeat-until-schleife.html)

Repeat-Until Schleife ???

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

Re: Repeat-Until Schleife ???

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 :xmas:

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

Re: Repeat-Until Schleife ???

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 :love:

LG, MRN

Re: Repeat-Until Schleife ???

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