. , , .
:
. , , , , . .
27. A$.
CLS
a$ = " " PRINT a$ min = LEN(a$) 10: FOR i = 1 TO LEN(a$) ' i- tmp$ = MID$(a$, i, 1): isletter = 0
IF 128 <= ASC(tmp$) AND ASC(tmp$) <= 175 THEN isletter = 1 IF 224 <= ASC(tmp$) AND ASC(tmp$) <= 239 THEN isletter = 1 IF 65 <= ASC(tmp$) AND ASC(tmp$) <= 90 THEN isletter = 1 IF 97 <= ASC(tmp$) AND ASC(tmp$) <= 122 THEN isletter = 1 ' , IF isletter = 1 AND i < LEN(a$) THEN T$ = T$ + tmp$ ELSE
IF LEN(T$) > 0 OR isletter = 1 THEN
IF i = LEN(a$) AND isletter = 1 THEN T$ = T$ + tmp$: tmp$ = "" ' $ ' max
IF LEN(T$) > max THEN max = LEN(T$): wmax$ = T$ 'min IF LEN(T$) < min THEN min = LEN(T$): wmin$ = T$
' rez$
IF switsch = 1 THEN
IF T$ = long$ AND c <> i THEN T$ = short$: c = i
IF T$ = short$ AND c <> i THEN T$ = long$: c = i
rez$ = rez$ + T$
END IF ' switsch
T$ = "" ' T$
END IF ' Len(T$)>0 or....
IF switsch = 1 THEN
rez$ = rez$ + tmp$ '
END IF ' switsch
END IF ' islitter
NEXT i
' 1-
IF short$ = "" THEN
switsch = 1: short$ = wmin$
long$ = wmax$: GOTO 10
ELSE
PRINT rez$ '
END IF
END
. , (wmax$) (wmin$) . GOTO rez$, , .
, .
, , , . , , .
28. $ . .
|
|
CLS
A$ = " - ,,,,, - - -- ??????"
PRINT A$
DIM word$(LEN(A$))
FOR i = 1 TO LEN(A$)
' i-
' ,
' $
k = k + 1
word$(k) = T$ '
T$ = "" ' T$
END IF END IF NEXT i
' word$ ASCII-
FOR i = 1 TO k
FOR j = 1 TO k
f = 1
10: IF ASC(MID$(word$(i), f, 1)) < ASC(MID$(word$(j), f, 1)) THEN
SWAP word$(i), word$(j) ELSE
IF ASC(MID$(word$(i), f, 1)) = ASC(MID$(word$(j), f, 1)) THEN
f = f + 1
IF MID$(word$(i), f, 1) <> "" AND MID$(word$(j), f, 1) <> "" THEN GOTO 10 END IF
END IF
END IF
NEXT j
NEXT i PRINT
PRINT " "
FOR i = 1 TO k
PRINT " "; word$(i);
NEXT i
END
: - ,,,,, - - -- ??????
. $. word$ . ASCII- .
1. ?
2. ?
3. ?
4. ASCII?
5. ?
6. ?
7. ?
8. , ?
9. ?
10. ?
11. ?
12. MID$?
13. LEN?
14. LEFT$ RIGHT$?
15. INSTR$?
16. MID$?
17. ?
18. ?
19. ?
20. ?
1. $ , 1) ; 2) ; 3) .
2. $ $. , $ A$.
3. $ $. $ $.
4. A$(10), .
1). ; 2). ; 3). .
5. A$(10). .
6. $. $ B$.
7. $. , A$ .
8. $. , , .
9. . , QBasic.
10. , . , .
|
|
11.. . , g, k, t.
12. , . .
13. , , . , .
14. . .
15. . , .
16. .
17. , .
18. . , (:),
19. . , : .
20. N , . , .
21. , .
22. , .
6
.