Unterschied While-Schleife <-> RepeatUntil-Schleife

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

[stina]

uses
SysUtils;
var
Zahl1: Integer;
Zahl2: Integer;

begin
repeat

until (zahl1<>zahl2);
Writeln('Zufallszahl: geben sie eine Zahl zwischen 0 und 20 ein. Sie haben 3 Versuche');
randomize;
Zahl2:= Random(20);
readln(Zahl1);
if Zahl1=Zahl2 then write('Richtig es ist:'+IntToStr(Zahl2));
if Zahl1<Zahl2 then write('Falsch es ist zu klein');
if Zahl1>Zahl2 then write('Falsch es ist zu groß');
readln;
writeln('Zweiter Versuch');
readln(Zahl1);
if Zahl1=Zahl2 then write('Richtig es ist:'+IntToStr(Zahl2));
if Zahl1<Zahl2 then write('Falsch es ist zu klein');
if Zahl1>Zahl2 then write('Falsch es ist zu groß');
readln;
writeln('Dritter Versuch');
readln(zahl1);
if Zahl1=Zahl2 then write('Richtig es ist:'+IntToStr(Zahl2));
if Zahl1<Zahl2 then write('Falsch es ist zu klein');
if Zahl1>Zahl2 then write('Falsch es ist zu groß');
readln;
if Zahl1>Zahl2 then write('Die richtige Zahl ist: '+IntToStr(zahl2));
if Zahl1<Zahl2 then write('die richtige Zahl ist: '+IntToStr(zahl2));
readln;



try
{ TODO -oEntwickler -cKonsole Main : Hier Code einfügen }
except
on E: Exception do
Writeln(E.ClassName, ': ', E.Message);
end;

end.





is das richtig so????? is für zufallszahlen möchte aber wissen ob die schleife richtig is

[DeddyH]

Editiere Deinen Beitrag doch bitte noch einmal, markiere den Code und drücke dann auf die "Helm"-Schaltfläche, um Delphi-Tags zu setzen. Dadurch wird der Quelltext viel lesbarer.

[Dalai]

Zitat von stina:

is das richtig so?????

Auch wenn schon wieder jemand schneller war, frage ich mal ganz unvoreingenommen: Findest du den Code in deinem Beitrag lesbar?

Ich muss(te) mich echt zusammenreißen, um nicht "deutlicher" zu werden...

MfG Dalai

[Klaus01]

.. was mag das "Hier Code einfügen bedeuten"?

Delphi-Quellcode:

begin

  try
  { TODO -oEntwickler -cKonsole Main : Hier Code einfügen }
  except
  on E: Exception do
    Writeln(E.ClassName, ': ', E.Message);
end;

end.

Dein Schleifenrumpf mag ok. sein.

Delphi-Quellcode:

repeat

until (zahl1<>zahl2);

Allerdings fehlt das was die Schleife tun soll.

Da zahl1 und zahl2 nicht mit einem Wert vorbelegt (initialisiert) sind
hast Du hier eine Endlosschleife, denn innerhalb der Schleife werden die
Werte auch nicht geändert.

Delphi-Quellcode:

versuche :=0;
repeat
  Write('Bitte erste Zahl eingeben: ');
  readln(zahl1);
  Write('Bitte zweite Zahl eingeben: ');
  readln(zahl2);
  if (zahl1 = zahl2) then
    Write('Gewonnen')
  else
    Write('Ein neuer Versuch');

  versuche := versuche +1;

until (zahl1 <> zahl3) or (versuche < 3);

Grüße
Klaus