В исходной строке b$ определить количество слов, начинающихся заданным символом x$ - QBasic (27623)
Формулировка задачи:
В исходной строке b$ определить количество слов, начинающихся заданным символом x$.
Решение задачи: «В исходной строке b$ определить количество слов, начинающихся заданным символом x$»
textual
Листинг программы
INPUT st$ st$=st$+" " INPUT x$ k=1 WHILE k<LEN(st$) IF MID$(st$, k, 1)=x$ THEN r=r+1 k=INSTR(k, st$, " ")+1 WEND PRINT r
Объяснение кода листинга программы
- Вводим строку в переменную st$
- Добавляем пробел в конец строки
- Вводим символ, за которым нужно найти слова
- Инициализируем переменную k единицей
- Пока k меньше длины строки st$
- Если k-й символ строки равен заданному символу
- Увеличиваем значение переменной r на единицу
- Увеличиваем значение переменной k на единицу, пропуская пробелы
- Выводим значение переменной r
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д