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:

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:

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
:hi:

[ibp]

Zitat:

Zitat von ibp

Zitat:

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 :mrgreen:

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