Подготовка к ЕГЭ - QBasic

Формулировка задачи:

Просьба к участникам форума, выкладывать в данную тему задания типа егэ.

Решение задачи: «Подготовка к ЕГЭ»

Листинг программы

DIM b$(26)
DO
INPUT C$
IF C$ <> "." THEN b$(ASC(C$)-96) = b$(ASC(C$)-96) + C$
LOOP UNTIL C$ = "."
FOR i = 1 TO 26
FOR j = 2 TO 26
IF LEN(b$(j)) < LEN(b$(j - 1)) THEN SWAP b$(j), b$(j - 1)
NEXT
NEXT
FOR i = 1 TO 26
IF b$(i) <> "" THEN PRINT LEFT$(b$(i), 1);
NEXT

Объяснение кода листинга программы

Создается массив b$ размером 26 ячеек, предназначенный для хранения строки.
Запускается цикл DO, который будет выполняться до тех пор, пока пользователь не введет символ ..
В каждой итерации цикла пользователь вводит символ.
Если введенный символ не равен . (то есть это не конец строки), он добавляется в массив b$.
Цикл UNTIL останавливается, когда пользователь вводит ..
Запускается цикл FOR, который проходит по всем элементам массива b$ от 1 до 26.
В каждой итерации внутреннего цикла проверяется длина строки в текущей ячейке массива и если она меньше, чем длина следующей строки, то строки меняются местами с помощью функции SWAP.
Запускается цикл FOR, который проходит по всем элементам массива b$ от 1 до 26.
В каждой итерации внутреннего цикла выводится первая буква строки, хранящейся в текущей ячейке массива.