Unterschied While-Schleife <-> RepeatUntil-Schleife

[Maya]

Du könntest doch einfach ein kleines Progi machen, mit einen Edit-Feld, wo du Zahlen eingibst und zwei Labels, eine für die WHILE-Schleife und eine für die REPEAT-Schleife.

Beim Knöpfchen-Drücken, werden dann die Schleifen mit der eingegebenen Zahl ausgeführt. In den zwei Labels wird dann angezeigt, wie oft die Schleife ausgeführt wurde. Wenn die Schleife

Ich hab da mal was vorbereitet: (bitte das jetzt mit der legendären Jean Pütz-Stimme vorstellen)

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var Zahl: Integer;
    Beschriftung: String;
begin
  if Trim(Edit1.Text)<>'' then
    begin
      Zahl:=StrToInt(Edit1.Text);
      While Zahl<10 do
        begin
          Beschriftung:=lblWhile.Caption+#10#13+IntToStr(Zahl);
          lblWhile.Caption:=Beschriftung;
          Zahl:=Zahl+1;
        end;

      Zahl:=StrToInt(Edit1.Text);
      Repeat
        Beschriftung:=lblRepeat.Caption+#10#13+IntToStr(Zahl);
        lblRepeat.Caption:=Beschriftung;
        Zahl:=Zahl+1;
      Until Zahl<10;
    end;
end;

Ich weiß jetzt nicht, welches Delphi du nimmst, ggf. musst du bei dem Edit halt einstellen, dass da nur Zahlen 'reindürfen (NumbersOnly) oder halt kurz was kleines Schreibseln, dass da nur Zahlen 'rein können.

EDIT: Mir fällt gerade auch auf, dass bei der REPEAT-Schleife sich bei Zahlen, die größer als 10 sind, eine Endlosschleife bildet. Ich war schon immer Meisterin der Endlosschleifen. -.- Ich schau mal, ob ich das behoben bekomme.

[Bummi]

Bei Zahlen kleiner Zehn hast Du auch eine Problem bei Deiner Repeatschleife

[Maya]

Zitat von Bummi:

Bei Zahlen kleiner Zehn hast Du auch eine Problem bei Deiner Repeatschleife

Nein, wieso? Er führt sie einmal aus und dann war's das. Hab es eigentlich mehrmals getestet.

Nicht gleich schreien: ich teste noch mal!

EDIT: Er führt die bei mir genau einmal durch. Da sieht man doch den gewünschten Unterschied.

[Bummi]

das hast Du:

Delphi-Quellcode:

var
zahl:Integer;
begin
      Zahl:=1;
      Repeat
        Memo1.lines.Add(IntToStr(Zahl));
        Zahl:=Zahl+1;
      Until Zahl<10;
end;

das schätze ich meinst Du, wenn man von einer Schleife sprechen will (oder ich verstehe Dein Beispiel nicht):

Delphi-Quellcode:

var
zahl:Integer;
begin
      Zahl:=1;
      Repeat
        Memo1.lines.Add(IntToStr(Zahl));
        Zahl:=Zahl+1;
      Until Zahl>10;
end;

[Sir Rufo]

@Maya

Das ist der weitere besondere Unterschied zwischen den Schleifen

• WHILE => Start-Bedingung ( i < 10 )
• REPEAT => Abbruch-Bedingung not ( i < 10 ) oder ( i >= 10 )

[himitsu]

Zitat von Sir Rufo:

Das ist der weitere besondere Unterschied zwischen den Schleifen

• WHILE => Start-Bedingung ( i < 10 )
• REPEAT => Abbruch-Bedingung not ( i < 10 ) oder ( i >= 10 )

Zitat von himitsu:

Bei REPEAT wird erst der Schleifeninhalt ausgeführt und dann die Abbruchbedingung (eigentlich die Fortzetzungsbedingung) gebrüft,

bei WHILE ein True = Ausführen
bei REPEAT UNTIL ein True = Abbrechen

Man kann es sich auch ganz einfach merken:
True = gehe zum nächsten Befehl (meist die nächste Quellcodezeile)
- WHILE = geh in die nachfolgende Schleife rein
- REPEAT = geh aus der vorherigen Schleife raus

[Maya]

Ich denke, das kann man drehen und wenden wie man will, wenn man es nur zur Veranschaulichung nutzen möchte und es keinen direkten Nutzen/Zweck/Ziel hat.

Beide Versionen zeigen, dass diese Schleifen unterschiedlich funktionieren.

[Jonas Shinaniganz]

Also für die Schule würde Ich vielleicht ein Beispiel bringen, welches richtig schön anschaulich ist.

Dazu verwendest du am besten stimmige Variablennamen:

Beispiel:

In ein Fass können 10 Eimer Wasser gefüllt werden.
Das Fass darf nicht überlaufen und muss gefüllt werden.

Delphi-Quellcode:

var
  FassIstVoll : Boolean;

While not(FassIstVoll) do
  KippeEimerRein;

repeat
  KippeEimerRein;
until(FassIstVoll)

Wenn das Fass mit 10 Eimern gefüllt ist, würdest du in der repeat Schleife einen Eimer rein kippen, dann würde das Fass überlaufen. In der While Schleife würde dies nicht passieren, weil du zuerst überprüfst ob die Bedingung TRUE ergibt.

Grüße