Выяснить, входит ли данное слово в указанный текст, и если да, то сколько раз.

@i.ramiz05 · Регистрация: 04.12.2010

Author24 — интернет-сервис помощи студентам

Дан файл ,содержащий произвольный текст на русском языке. Выяснить, входит ли данное слово в указанный текст, и если да, то сколько раз.

@Arustarh Dark · 05.07.2011, 10:09

1. Открываешь файл.
2. Читаешь построчно.
3. Считаную строку проверяешь на вхождение твоего слова (функция pos)

@Mawrat · 05.07.2011, 11:06

Функция Pos() здесь не подойдёт. Например: исходная строка: "Появилась радуга.", искомое слово: "дуга". Функция Pos() определит, что подстрока "дуга" присутствует в тексте. Но на самом деле, по условию задачи, нам надо искать не подстроки, а слова. В заданном тексте нет слова "дуга".
---
Вот функция, которая подсчитывает сколько раз заданное слово встречается в строке.

Pascal

//Подсчитывает количество присутствий слова aSWord в строке aStr.
function CountWord(const aStr, aSWord : String) : Integer;
const
  //Разделители слов.
  D = ['.', ',', ':', ';', '!', '?', '-', ' ', #9, #10, #13];
var
  i, Pos1, Len, Res : Integer;
begin
  Res := 0;
  Len := Length(aStr);
  Pos1 := 0;
  for i := 1 to Len do begin
    //Пропускаем разделители.
    if aStr[i] in D then Continue;
    //Отслеживаем начало слова.
    if (i = 1) or (aStr[i - 1] in D) then Pos1 := i;
    //Отслеживаем конец слова.
    if (i = Len) or (aStr[i + 1] in D) then begin
      if aSWord = Copy(aStr, Pos1, i - Pos1 + 1) then
        Res := Res + 1
      ;
    end;
  end;
  
  CountWord := Res;
end;

@Arustarh Dark · 05.07.2011, 11:35

Как все сложно...
Я бы просто заменял все разделители на пробелы и искал с помощью pos, добавиви к искомому по пробелу в начале и в конце.

Mawrat: Да - можно так. А тот алгоритм, который я привёл - он мне нравится по тому что он построен на принципе конвейерной обработки. В него удобно встраивать дополнительные возможности - например, одновременное выделение предложений, слов, других конструкций, различные подсчёты и пр.

@i.ramiz05 2 / 2 / 0 Регистрация: 04.12.2010 Сообщений: 31
		1
	Выяснить, входит ли данное слово в указанный текст, и если да, то сколько раз. 05.07.2011, 07:47. Показов 2577. Ответов 3 Метки нет (Все метки) Дан файл ,содержащий произвольный текст на русском языке. Выяснить, входит ли данное слово в указанный текст, и если да, то сколько раз. 0

@Arustarh Dark 62 / 63 / 13 Регистрация: 08.06.2008 Сообщений: 243
	05.07.2011, 10:09	2
	1. Открываешь файл. 2. Читаешь построчно. 3. Считаную строку проверяешь на вхождение твоего слова (функция pos) 0

@Arustarh Dark 62 / 63 / 13 Регистрация: 08.06.2008 Сообщений: 243
	05.07.2011, 11:35	4
	Как все сложно... Я бы просто заменял все разделители на пробелы и искал с помощью pos, добавиви к искомому по пробелу в начале и в конце. Mawrat: Да - можно так. А тот алгоритм, который я привёл - он мне нравится по тому что он построен на принципе конвейерной обработки. В него удобно встраивать дополнительные возможности - например, одновременное выделение предложений, слов, других конструкций, различные подсчёты и пр. 0