x not in [61,62,63]- was ist falsch?

[dummer_info_schüler]

Hallo!
Die Frage steht schon fast im Titel:
Ich habe diesen Programmschnipsel:

Delphi-Quellcode:

repeat
  if h>20 then x:=random(123) else x:=random(111);
  inc(x);
 until x not in [61,62,63,64,65,66,67,68,69];

es erscheint in der Zeile <until x not...> folgende Fehlermeldung:
<missing operator or semicolon>
Wo ist der Fehler???
Ich hätte die kleine Vermutung, dass es was mit dem <not in> zu tun hat, weil der Cursor beim <not> stand, aber über die Suchfunktion kriege ich hier nichts raus, weil die <not>, <and> und <or> schon anders belegt hat.

Danke im Voraus!

[axelf98]

Versuchs mal so:

Delphi-Quellcode:

repeat
  if h>20 then x:=random(123) else x:=random(111);
  inc(x);
until not x in [61,62,63,64,65,66,67,68,69];

[dummer_info_schüler]

jetzt hängt er sich in ´ner endlosschleife auf...
(liegt wirklich nur an dem Teil, habe alles andere eingeklammert [bis auf <h:=20;>])

[ibp]

wie ist denn x vor der schleife definiert?

[dummer_info_schüler]

als integer

[axelf98]

Versuch dann mal das hier:
(Irgendwas war mit der Abbruchbedingung nicht in Ordnung...)

Delphi-Quellcode:

while true do
begin
 if h > 20 then
  x:=random(123)
  else
  x:=random(111);
 inc(x);
 if (x > 69) OR (x < 61) then break;
end;

[ibp]

Zitat von dummer_info_schüler:

als integer

... tschuldigung, ich meinte ist x initialisiert? wenn nicht, dann hat x irgendeinen wert, z.b. -765757632 und wenn dann noch h<21 ist, dann dauerts natürlich, bis x zu 61 hochgezählt hat....oder der zufall zuschlägt...

[axelf98]

Zitat von axelf98:

Versuch dann mal das hier:
(Irgendwas war mit der Abbruchbedingung nicht in Ordnung...)

Delphi-Quellcode:

while true do
begin
 if h > 20 then
  x:=random(123)
  else
  x:=random(111);
 inc(x);
 if (x > 69) OR (x < 61) then break;
end;

Hab noch mal nachgedacht.. Einmal zuviel

Gruss

[ibp]

Zitat von ibp:

Zitat von dummer_info_schüler:

als integer

... tschuldigung, ich meinte ist x initialisiert? wenn nicht, dann hat x irgendeinen wert, z.b. -765757632 und wenn dann noch h<21 ist, dann dauerts natürlich, bis x zu 61 hochgezählt hat....oder der zufall zuschlägt...

quatsch was ich da geschrieben habe...is schon spät

kann eigentlich nicht sein das das eine endlosschleife ist..

lass dir doch mal die werte in eine liste schreiben ..

[Rackergen2]

Delphi-Quellcode:

randomize;
repeat 
  if h>20 then x:=random(123) else x:=random(111); 
  inc(x); 
until not (x in [61..69]);

Also bei mir ist das keine Endlosschleife...

Der Fehler lag wohl in der not-Bedingung...
Denn: not bindet stärker als in und wird zuerst ausgeführt...

aus 64 wird z.B. -65, wobei dann natürlich keine Zahl in die Bedingung passt. Wenn du aber Klammern setzt, wird erst auf in geprüft und dann der entstehende wert ge-not-ed