ono sto tebi treba je nasumicna permutacija.
Code:
a: array[1..32] of byte;
Randomize;
for i := 1 to 32 do
a[i] := i;
for i := 32 downto 1 do
Swap(a[i], a[Random(i) + 1]);
znaci sad u nizu a imas nasumicno razbacane brojeve od 1 do 32.
e sad, kako to primeniti. nisi bas bio jasan sa "slicicama". sta su ti slicice, gde se klikce itd
Ride the rainbow, crack the sky
DIY gitare, pojacala i efekti
www.diy-fever.com
Random fukcija u delphi-ju.Pomoc
