Определить количество слов, начинающихся заданным символом - QBasic

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

Помогите пожалуйста В исходной строке а$ определить количество слов, начинающихся заданным символом x$. Вывести строку, результат анализа и найденные слова.

Решение задачи: «Определить количество слов, начинающихся заданным символом»

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

                            CLS
DIM A AS STRING
DIM S AS STRING
DIM x AS STRING
x = " x"
INPUT "TEXT"; A
A = " " + A + " "
 
k1 = 1
DO
   k1 = INSTR(k1, A, x)
   IF k1 THEN
      k2 = INSTR(k1 + 1, A, " ")
      n = n + 1
      S = MID$(A, k1 + 1, k2 - k1 - 1)
      PRINT S
      k1 = k2
   ELSE
      EXIT DO
   END IF
LOOP
PRINT "N ="; n
END
                        

Оцени полезность:

10 голосов , оценка 4.7 из 5

Похожие ответы