вводишь слова с клавиатуры, программа сортирует их и выводит в алфавитном порядке — Basic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
CLS
INPUT "vvedite kol-vo slov"; n
DIM a$(n), b(n)
FOR i = 1 TO n
    INPUT "vvedite slovo"; a$(i)
NEXT
FOR i = 1 TO n
    q = 10000
    FOR j = 1 TO LEN(a$(i))
        b(i) = b(i) + (ASC(LCASE$(MID$(a$(i), j, 1))) * q)
        q = q / 10
    NEXT
NEXT
FOR i = 1 TO n - 1
    min = 1E38
    FOR j = i TO n
        IF b(j) < min THEN min = b(j): w = j
    NEXT
    SWAP b(i), b(w)
    SWAP a$(i), a$(w)
NEXT
FOR i = 1 TO n
    PRINT a$(i)
NEXT

Похожие записи/страницы: