Unterschied While-Schleife <-> RepeatUntil-Schleife

[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