Ćadny brzuch
Czy da sie jakos zrobic w Delphi, zeby program jesli wylosuje liczbe ktora juyz kiedys wylosowal wykonla jakos instrikcje?
var tab: array [1..1000] of byte; i,d: integer; [...] for i:= 0 to 100 do begin d:= random(999)+1; if tab[d]=0 then tab[d]:= 1 else jakastam_procedura; end;
Sry za ewentualne blendy ale z pamieci pisalem
var t:array[0..9]of byte; i:integer; begin randomize; for i:=0 to 9 do t[i]:=random(50)+1; randomize; for i:=0 to 9 do if t[i]=random(50)+1 then {...}????
(...)
A czy kilkukrotne wywoływanie randomize cos daje? :huh: Bo własnie sam nie wiem.
Hm.. sam nie wiem, ale dałem dla bezpieczeństwa :P
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
var tab: array [1..1000] of byte; i,d: integer; [...] for i:= 0 to 100 do begin d:= random(999)+1; if tab[d]=0 then tab[d]:= 1 else jakastam_procedura; end;
Sry za ewentualne blendy ale z pamieci pisalem
var t:array[0..9]of byte; i:integer; begin randomize; for i:=0 to 9 do t[i]:=random(50)+1; randomize; for i:=0 to 9 do if t[i]=random(50)+1 then {...}????
(...)
A czy kilkukrotne wywoływanie randomize cos daje? :huh: Bo własnie sam nie wiem.
Hm.. sam nie wiem, ale dałem dla bezpieczeństwa :P