Forum: Object-Pascal / Delphi-Language
Delphi
by himitsu,
31. Mär 2006
Ups ... neee, dat war auf 3_of_8's Post bezogen °_°
Also auf Beitrag #3 und
Und das SET ist hier auch nicht schlecht, aber sobald die Zahlen nicht zwischen 0 und 255 liegen wird es damit etwas schwer, bis unmöglich :)
Forum: Object-Pascal / Delphi-Language
Delphi
by himitsu,
31. Mär 2006
nein, der Code sollte nicht ordnungsgemäß funtionieren:
isdouble:=False; muß for die Schleife, denn so wird nur die letzte Zahl geprüft.
for J:=1 to 6 do du prüfst auf Zahlen, die es noch nicht gibt (funktioniert zwar, ist aber nicht schön).
Und wozu 2 Schleifen?
procedure GenerateLottoNumbers;
var isdouble: Boolean;
I, J: Integer;
zahl: array of Integer;
Forum: Object-Pascal / Delphi-Language
Delphi
by himitsu,
31. Mär 2006
Oder so, wenn er nicht unbeding in 'ner Schleife alles machen will.
Wozu erst setzten, dann prüfen und danach was neues suchen, wenn man gleich passend suchen kann ^^
zahl := random(49) + 1;
repeat
zahl := random(49) + 1;
until zahl <> zahl;
repeat
zahl := random(49) + 1;
until (zahl <> zahl) and (zahl <> zahl);
repeat