[QBasic] i komanda randomize

[ lonelyrider_44 @ 14.08.2006. 16:34 ] @

OK, postoji u QBasic-u komanda randomize i radi, ali meni treba takva komanda koja ce recimo da izmesa 52 broja tako da se svaki posle toga pojavljuje... "Randomize timer" to ne radi...

[ anon75319 @ 12.09.2006. 20:51 ] @

Nisam bas skuzio sto zelis ali mislim da zelis da ti se brojevi od 1-52 izmjesaju i da se to ponovi 52 puta i da se svaki put random broj ispise?
Ako je tako smjesti funkciju randomize u for petlju od 1 to 52 i to je to...

[ thePOET @ 13.09.2006. 16:06 ] @

Code:

DIM a(1 TO 52) AS INTEGER
DIM b(1 TO 52) AS INTEGER

CLS

FOR i = 1 TO 52
   a(i) = i
NEXT

RANDOMIZE TIMER

FOR i = 52 TO 1 STEP -1
   n = INT(RND * i) + 1
   b(i) = a(n)
   a(n) = a(i)
   PRINT b(i);
NEXT

[ X Files @ 23.04.2008. 16:34 ] @

(23.04.2008. - 18:34) Tema je premeštena iz foruma Art of Programming u forum Ostali programski jezici.