Рассортировать слова исходной фразы а$ по алфавиту (по заданному номеру). Исходная...

Question

Рассортировать слова исходной фразы а$ по алфавиту (по заданному номеру). Исходная информация вводится с клавиатуры (QBasic)

Comments

Изя, привет! Ну, как дела?

---

Привет, дела не очень( сессия приближается

---

Задачи сдала? Приняли?

---

Нет еще, сто-то долго нас мучают (

---

что-то

---

На измор берут))) Ждут, пока созреете)))

---

Задача опять для подружки?

---

даа :)

---

Тут я использовал много из предыдущей задачи, они наполовину похожи. Если это для разных подружек, то надо переделать, чтобы сходство в глаза не бросалось. Ну, или пусть говорят, что совместно работали))

---

Аааа ничего страшного :)

Answer 1

INPUT s$
k = LEN(s$) + 1
FOR i = 1 TO k
    IF MID$(s$, i, 1) = " " THEN n = n + 1 'считаем число слов
NEXT i
n = n + 1
DIM f$(n)
j = 1
FOR i = 1 TO k 'разрезаем фразу на слова и заносим их в массив f
    t$ = MID$(s$, i, 1)
    f$(j) = f$(j) + t$
    IF t$ = " " THEN j = j + 1
NEXT i
f$(n) = f$(n) + " "
FOR i = 1 TO n 'делаем сортировку массива
    FOR j = 1 TO n
        IF LEFT$(f$(i), 1) < LEFT$(f$(j), 1) THEN
            P$ = f$(i)
            f$(i) = f$(j)
            f$(j) = P$
        END IF
    NEXT j
NEXT i
FOR i = 1 TO n
    PRINT f$(i);
NEXT i

Comments

спасибо :)