Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

[QBasic] i komanda randomize

[es] :: Ostali programski jezici :: [QBasic] i komanda randomize

[ Pregleda: 2240 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

lonelyrider_44
Zrenjanin

Član broj: 42310
Poruke: 397
*.smin.sezampro.yu.



Profil

icon [QBasic] i komanda randomize14.08.2006. u 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...
14.08.2006. u 16:34 

anon75319
Varazdin(Hrvatska)

Član broj: 75319
Poruke: 239
*.adsl.net.t-com.hr.



Profil

icon Re: [QBasic] i komanda randomize12.09.2006. u 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...

12.09.2006. u 20:51 

thePOET
Danilo Vidovic
BGD

Član broj: 37493
Poruke: 40
*.dial.b92.net.

ICQ: 214994756
Sajt: thepoet.mojhost.org/blog


Profil

icon Re: [QBasic] i komanda randomize13.09.2006. u 16:06
Laptopovi

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

I woke up this morning and found myself dead.
13.09.2006. u 16:06 

X Files
Vladimir Stefanovic
Pozarevac

SuperModerator
Član broj: 15100
Poruke: 4356
*.dynamic.sbb.rs.

Jabber: xfiles@elitesecurity.org
Sajt: www.antivari.com


Profil

icon Re: [QBasic] i komanda randomize23.04.2008. u 16:34
(23.04.2008. - 18:34) Tema je premeštena iz foruma Art of Programming u forum Ostali programski jezici.
FREEWARE
Di rečnik, v1.0.058 (srp-eng/eng-srp priručni rečnik)
http://www.antivari.com
23.04.2008. u 16:34 

[es] :: Ostali programski jezici :: [QBasic] i komanda randomize

[ Pregleda: 2240 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.