Подсчитать количество слов которые начинаются на букву а. - Turbo Pascal

Узнай цену своей работы

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

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

Решение задачи: «Подсчитать количество слов которые начинаются на букву а.»

textual
Листинг программы
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 its testing A staring for аcheck work Аpascode . Она содержит текст, в котором мы хотим найти слова, начинающиеся на буквуа. Целочисленная переменнаяiинициализируется значением 1 и будет использоваться в цикле для перебора символов строкиS. Внутри цикла происходит проверка каждого символа строкиS. Если символ является буквойаи предыдущий символ является пробелом, то переменнаяnumAувеличивается на единицу. По завершении цикла выводится значение переменнойnumA, которое и будет являться количеством слов, начинающихся на буквуа`.

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

11   голосов , оценка 4 из 5
Похожие ответы