Подсчитать количество слов которые начинаются на букву а. - Turbo Pascal
Формулировка задачи:
Решение задачи: «Подсчитать количество слов которые начинаются на букву а.»
Const AA : Set of Char = ['a','A','а','А']; Var numA : Longint; S : String; i : Byte; Begin numA:=0; S:='a it"s testing A staring for аcheck work Аpascode '; s:=' '+s; For i:=1 to Length(S) do If (S[i] in AA) and (S[i-1]=' ') then Inc(numA); Writeln(numA); End.
Объяснение кода листинга программы
В данном коде используется язык программирования Turbo Pascal. Он предназначен для подсчета количества слов, которые начинаются на букву а
.
Константа AA
представляет собой множество символов, включающее букву а
и ее заглавную версию.
Переменная numA
является целочисленной и инициализируется значением 0. Она будет использоваться для подсчета количества слов, начинающихся на букву а
.
Строка S
инициализируется значением a it
s testing A staring for аcheck work Аpascode . Она содержит текст, в котором мы хотим найти слова, начинающиеся на букву
а. Целочисленная переменная
iинициализируется значением 1 и будет использоваться в цикле для перебора символов строки
S. Внутри цикла происходит проверка каждого символа строки
S. Если символ является буквой
аи предыдущий символ является пробелом, то переменная
numAувеличивается на единицу. По завершении цикла выводится значение переменной
numA, которое и будет являться количеством слов, начинающихся на букву
а`.