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...
[QBasic] i komanda randomize
Zaključano
Zakačeno
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...
Ako je tako smjesti funkciju randomize u for petlju od 1 to 52 i to je to...
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
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
(23.04.2008. - 18:34) Tema je premeštena iz foruma Art of Programming u forum Ostali programski jezici.