Работа 3.8 Упр.11 ГДЗ Семакин 10 класс (Информатика)

Рассмотрим вариант решения задания из учебника Семакин, Хеннер, Шеина 10 класс, Бином: 11. Определить, сколько раз в тексте встречается заданное слово. *Цитирирование задания со ссылкой на учебник производится исключительно в учебных целях для лучшего понимания разбора решения задания. 10 semakin10 pract/3-8/11 98

Чтобы определить, сколько раз заданное слово встречается в тексте, удобно последовательно просматривать текст и сравнивать с ним подстроку той же длины, что и искомое слово.

Для удобства поиска к тексту и слову добавим пробелы в начале и в конце. Тогда можно искать слово как отдельный фрагмент, не путая его с частью другого слова.

var s, sl, sc: string;
i, k: integer;
begin
  write(‘Введите текст ‘);
  readln(s);
  write(‘Введите слово ‘);
  readln(sl);
  s := ‘ ‘ + s + ‘ ‘;
  sl := ‘ ‘ + sl + ‘ ‘;
  for i := 1 to length(s) — length(sl) + 1 do
  begin
    sc := copy(s, i, length(sl));
    if sc = sl then inc(k);
  end;
  if k = 0 then writeln(‘Не встречается’)
  else writeln(‘Встречается ‘, k, ‘ раз’);
end.

В цикле берётся каждая подстрока длины искомого слова и сравнивается с ним. Если они совпадают, счётчик увеличивается на 1.

Ответ: программа подсчитывает количество вхождений заданного слова в тексте.