Дана произвольная фраза. Требуется переставить слова местами в соответствии с уменьшением длины слов (с начало самые длинные, а в конце самые короткие). В новой фразе выделить отдельные, слова. — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
INPUT "vvedite frazu ", b$
DIM a$(100)
b$ = " " + b$
FOR i = 1 TO LEN(b$)
    IF MID$(b$, i, 1) = " " THEN k = k + 1 ELSE a$(k) = a$(k) + MID$(b$, i, 1)
NEXT
FOR i = 1 TO k
    FOR j = 2 TO k
        IF LEN(a$(j)) > LEN(a$(j - 1)) THEN SWAP a$(j), a$(j - 1)
    NEXT
NEXT
FOR i = 1 TO k
    c$ = c$ + a$(i) + " "
NEXT
PRINT c$

Тестирование выполнено в программе QB64 ( Скачать )

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

Leave a Comment