Составить программу для определения, сколько раз в заданном тексте встречается заданное слово

@Царап · Регистрация: 13.03.2017

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

Составить программу для определения, сколько раз в заданном тексте встречается заданное слово

Подскажите, пожалуйста, с кодом PascalABC.

@Alexandr212 · 13.03.2017, 18:06

Функция для нахождения количества повторений слова в тексте.

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;

Взято от сюда.

@Царап · 13.03.2017, 18:08 **[ТС]**

Спасибо.

@Царап 0 / 0 / 0 Регистрация: 13.03.2017 Сообщений: 2
		1
	Составить программу для определения, сколько раз в заданном тексте встречается заданное слово 13.03.2017, 17:57. Показов 1937. Ответов 2 Метки нет (Все метки) Составить программу для определения, сколько раз в заданном тексте встречается заданное слово Подскажите, пожалуйста, с кодом PascalABC. 0

@Царап 0 / 0 / 0 Регистрация: 13.03.2017 Сообщений: 2
	13.03.2017, 18:08 [ТС]	3
	Спасибо. 0

Опции темы

Составить программу для определения, сколько раз в заданном тексте встречается заданное слово

Решение