Delphi-Quellcode:
Repeat
....
....
x:=x+0,0-irgendwas;
until x> y;
?? Ich hoffe mal, du initialisiert x noch und stellst 'irgendwas' negativ ein, sonst wird er an der Schleife keine Freude haben. (oder besser gesagt, sehr lange
)
Erwarte das Beste und bereite dich auf das Schlimmste vor.