Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Vymažte displej akéhokoľvek iného kódu na začiatku programu zadaním " CLS " ako prvý riadok . Stlačte tlačidlo " Enter " pre presun na ďalší riadok
2
Zadajte nasledujúci príkaz do QBasic : .
ROKOV DATA = 10
DIM A ( dáta )
Tým sa vytvorí premennú s názvom " DATA " s 10 položkami a uistite sa , že BASIC vie , že ju chcete použiť ako pole .
3
Pridajte nasledujúci program :
NUM = 1 TO DATA
ROKOV ( NUM ) = INT ( RND * 100 ) + 1
NEXT NUM
V tomto bloku kódu , môžete nastaviť slučku , kde sú vytvárané a dať do " DATA " premenné náhodné čísla medzi 1 a 100. V prvom riadku , môžete nastaviť prvé číslo , ktoré chcete opakovať , kým pole končí . Vnútri slučky , " RND " sa vynásobí 100 a 1 pridal. To je preto , že " RND " vždy vracia číslo medzi 0 a 1 , a celá , non - nula čísla sú jednoduchšie pre ľudí , aby pochopili
4
Zadajte nasledujúci kód nižšie : .
< P > PRE vONKAJŠIE = 1 DAT - 1
PRINT vONKAJŠIE ;
INNER = vONKAJŠIE + 1 až DATA
IF ( vonkajšie ) < = ( INNER ) THEN GOTO NOCHANGE
SWAP ( vonkajšie ) , ( INNER )
NOCHANGE :
NEXT INNER
ĎALŠIE vONKAJŠIE
kód je skutočný radenie kódu . " Vnútorné " a " vonkajšie" sú dve premenné , ktoré môžete použiť na predstavujú prvý a druhý položiek v poli . Ak jeden je väčší , potom program swapy . Ak nie, bude to ísť do " NOCHANGE : " markeru a jednoducho pracovať na ďalšom kroku programu
5
Pridajte nasledujúci kód : .
NUM = 1 predmety