qBasic - generiranje 12 dvoznamenkastih brojeva

poruka: 6
|
čitano: 1.900
|
moderatori: Lazarus Long, XXX-Man, vincimus
1
+/- sve poruke
ravni prikaz
starije poruke gore
15 godina
neaktivan
offline
Problem sa zadatkom

Imam jedan dio u zadatku ,kojeg radim u qbasicu i taj dio mi nije jasan. Govorim o sljedecem:

U tom dijelu se trazi generiranje niza od dvanaest dvoznamenkastih brojeva, i trebalo bi da ide ovako:

 

for i=1 to 12

randomize timer

a(i)=10+int(rnd*89)

print a(i)

next i

 

 

Problem se javlja kod a(i)=10+int(rnd*89) gdje mi pise subscript out of the range.

 

E sad ako netko zna kako napisati ispravno da bude u rasponu,neka pomaze.

FORZA INTER!!!
 
0 0 hvala 0
17 godina
moderator
offline
qBasic - generiranje 12 dvoznamenkastih brojeva

A kako si deklarirao polje a?

 

 

BTW Mislim da randomize timer ne moras zvati unutar petlje - to napravis na pocetku programa. Nema potrebe da se to ponavlja u svakoj iteraciji.

 
0 0 hvala 0
15 godina
neaktivan
offline
RE: qBasic - generiranje 12 dvoznamenkastih brojev

Ma randomize timer nije problem,stavljao sam ga i prije for-next petlje.Onaj kod sto sam napisao radi normalno kada je u pitanju generiranje 10 dvoznamenkastih brojeva,ali za 12 javlja da nije u datom opsegu. To bi trebalo nesto nastimati ili dodati jer taj a(i) je povezan sa for-next petljom.

FORZA INTER!!!
17 godina
moderator
offline
RE: qBasic - generiranje 12 dvoznamenkastih brojev

Nisi mi odgovorio na pitanje. Jesi kojim slucajem polje a deklarirao naredbom dim a(10) as integer? Ako jesi, onda nije nista cudno, jer si tom deklaracijom rekao QBasicu da ti polje moze primiti samo 10 brojeva, a tebi treba 12. Dakle, ako ces imati 12 brojeva, onda a moras deklarirati s dim a(12) as integer.

16 godina
offline
qBasic - generiranje 12 dvoznamenkastih brojeva

-vjerojatnije nije niti dimenzionirano..

 

- ako se ne varam, rnd je u rasponu 0-0.999...  za ovaj slučaj: INT(RND*90)+10 daje int od 10-99

 

; ****

Dim i as integer

Dim a(12) as integer

 

Randomize Timer

CLS

For i=1 to 12

  a(i)=INT(RND*90)+10

  Print a(i)

Next i

;****

 

C64/TurboModul-OpenSourceProject.org.cn.部分作品为网上收集整理,供开源爱好者学习使用
 
1 0 hvala 0
15 godina
neaktivan
offline
qBasic - generiranje 12 dvoznamenkastih brojeva

QBasic, LOL... Stvarno se još uvijek uči programirati u tome? Vratilo me ovo u mladost... Smijeh

 

 

P.S.

DIMenzioniraj polje (obavezno izvan petlje!). Namigiva

 

Retry. Reboot. Reinstall. Reformat.
Poruka je uređivana zadnji put sub 4.9.2010 23:54 (vlad0).
Moj PC  
0 0 hvala 0
1
Nova poruka
E-mail:
Lozinka:
 
vrh stranice