.. 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