Сколько раз в тексте встречается заданное слово

Сколько раз в тексте встречается заданное слово

Задача

Дан файл с учебным расписанием. Написать программу, которая определяет количество лекционных, практических и лабораторных занятий. Вывести их количество на экран.

Решение

  • f — файловая переменная;
  • s — очередная строка текста файла;
  • i — сохранение результата от функции pos();
  • lect, pract, lab — счетчики слов.

Алгоритм решения задачи:

Если в каждой строке файла может встретится только одно из трех слов ("лекц.", "практ." и "лаб."), то если находится первое слово, нет надобности искать остальные. Поэтому следует использовать ветку else .

Функция pos() ищет вхождение подстроки в строку и возвращает номер первого символа подстроки в строке. Если подстрока не была найдена, то возвращается 0.

Если возникла необходимость посчитать, сколько раз в тексте может встретится строка, слово, значение, буква или сочетание букв, то можно воспользоваться встроенной в язык PHP функцией mb_substr_count.

Функция mb_substr_count возвращает количество вхождений подстроки.
Пример поиска сочетания букв `ст` в виде строки в произвольном тексте, присвоенный переменной $text:

Var
s,ss:string;
i,j,n,k:integer;
begin
Write(‘Введите текст: ‘); Readln(s);
s:=’ ‘+s+’ ‘;
Write(‘Введите искомое слово: ‘); Readln(ss);
ss:=’ ‘+ss+’ ‘;
n:=Length(ss);
i:=Pos(ss,s); k:=0;
if i>0 then
repeat
Inc(k);
Delete(s,i,n);
i:=Pos(ss,s);
until i=0;
Writeln(‘Слово встречается ‘,k,’ раз(а)’)
end.

Тестовое решение:
Введите текст: по дороге, по тропинке, по леску пойдем
Введите искомое слово: по
Слово встречается 3 раз(а)

Читайте также:  Что можно сделать из зажимов для бумаги
Ссылка на основную публикацию
Скайп не приходят сообщения
Общение – основная цель любого мессенджера, и Скайп – не исключение. Бывает, что сообщения в Скайпе не отправляются – эта...
Сборка пк без корпуса
Если серьезно, то компьютер без корпуса работать может и даже будет, но это достаточно опасно, особенно когда вы плохо понимаете...
Сборка пк на райзен 3 1200
Socket AM4, 4-ядерный, 3100 МГц, Turbo: 3400 МГц, Summit Ridge, Кэш L2 - 2048 Кб, Кэш L3 - 8192 Кб,...
Скайп предыдущие версии с официального сайта
На данной странице представлены все версии Скайп для компьютера (полноценные инсталляторы скаченные с официального сайта) и телефона, выпущенные за последние...
Adblock detector