Дана строка символов. Группы символов в ней между группами пробелов считаются словами. Определить сколько слов содержат ровно три буквы "е". - Pascal

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

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

Дана строка символов. Группы символов в ней между группами пробелов считаются словами. Определить сколько слов содержат ровно три буквы "е".

Решение задачи: «Дана строка символов. Группы символов в ней между группами пробелов считаются словами. Определить сколько слов содержат ровно три буквы "е".»

textual
Листинг программы
uses crt;
var s:string;
    ke,ks,i,j:byte;
begin
clrscr;
writeln('Строка:');
readln(s);
ks:=0;
for i:=1 to length(s) do
if(i=1)or ((s[i]<>' ')and(s[i-1]=' '))then
 begin
  ke:=0;
  j:=i;
  while (s[j]<>' ')and(j<=length(s)) do
   begin
     if s[j]='e' then ke:=ke+1;
     j:=j+1;
   end;
  if ke=3 then ks:=ks+1;
 end;
write('Количество слов с тремя буквами е=',ks);
readln
end.

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

  1. В начале кода используется директива uses crt;, которая позволяет использовать функции и структуры из встроенной библиотеки CRT (Console Read/Write).
  2. Затем объявляются переменные: s типа string для хранения строки, ke и ks типа byte для подсчета количества слов с тремя буквами е, и i и j также типа byte для цикла.
  3. Выводится сообщение «Строка:» для ввода строки.
  4. Строка читается с помощью функции readln().
  5. Переменная ks инициализируется значением 0.
  6. Запускается цикл for, который проходит по каждому символу в строке от 1 до length(s).
  7. Внутри цикла проверяется условие: если текущий символ не равен пробелу или предыдущий символ был пробелом, то текущий символ должен быть равен е.
  8. Если это условие выполняется, то переменные ke и j инициализируются. Цикл while продолжается до тех пор, пока текущий символ не станет равным пробелу и его значение не будет добавлено к переменной ke.
  9. После окончания внутреннего цикла while проверяется условие if ke=3 then ks:=ks+1;. Если количество слов с тремя буквами е равно 3, то переменная ks увеличивается на 1.
  10. После цикла for выводится сообщение «Количество слов с тремя буквами е=», а затем значение переменной ks.
  11. Вызывается функция readln() для завершения программы.

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

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