CLS
DATA "512","101","324","712","310","520","001","721" REM A$ n = 8
DIM a$(n)
PRINT " "
FOR i = 1 TO n
READ a$(i)
PRINT " "; a$(i);
NEXT i
REM
FOR i = 1 TO n
FOR j = 1 TO n k = 1
IF ASC(MID$(a$(i), k, 1)) < ASC(MID$(a$(j), k, 1)) THEN
SWAP a$(i), a$(j) ELSE
IF ASC(MID$(a$(i), k, 1)) = ASC(MID$(a$(j), k, 1)) THEN
k = k + 1
END IF
IF MID$(a$(j), k, 1) = "" THEN SWAP a$(i), a$(j)
NEXT j
NEXT i
REM
PRINT ""
FOR i = 1 TO n
PRINT " "; a$(i);
NEXT i
:
512 101 324 712 310 520 001 721
001 101 310 324 520 512 712 721
:
. ., ., ., ., .. , ., ., .
., ., .., ., ., ., ., ., ., .
. , , . i . j . , .
19. $ , $.
.
a$ = "123456"
b$ = "654"
DO
k = k + 1
tmp$ = MID$(b$, k, 1)
IF INSTR(a$, tmp$) = 0 THEN rez = 1: EXIT DO
LOOP WHILE k < LEN(b$)
IF rez = 1 THEN PRINT " " ELSE PRINT " "
:
. , BS AS. , , $ $. , . , , , ; , .
Qbasic , , . , :
_ + + .
, 0$="" . $="" I "B"+"C".
. , , . , .
|
|
. , , . :
__ + _.
, $= "ABC" . G$=""+"".
.
20. QuickBasic 4.5, , k ». ( , k - 5- , - 9- $).
a$ = "QuickBASIC 4.5"
b$ = LEFT$(a$, 5) + "_" + RIGHT$(a$, 9)
PRINT b$
:
Quick_BASIC 4.5
. $ A$, , , .