Поиск N-го вхождения подстройки в строку

@Aragorn1 · Регистрация: 14.12.2015

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

Реализовать вариант функции поиска N-го вхождения подстройки Subs в строку S.

@ZX Spectrum-128 · 21.12.2015, 13:03

Взято отсюда:
Просьба помочь разобраться с поиском в строке по алгоритму Бойера-Мура

Pascal

function Subs(s, sb: string; n: integer): integer;
var
  i, count: integer;
  temp: string;
begin
  count := 0;
  temp := '';
  for i := 1 to length(s) do
  begin
    temp := temp + s[i];
    if pos(sb, temp) <> 0 then
    begin
      inc(count);
      if count = n then
        subs := i - length(sb) + 1;
      temp := ''
    end;
  end;
end;
 
var
  s, sb: string;
 
begin
  s := 'маммам мыла раму';
  sb := 'мам';
  writeln('Подстрока начинается с ', Subs(s, sb, 2), ' позиции.');
end.

@Aragorn1 0 / 0 / 0 Регистрация: 14.12.2015 Сообщений: 5
		1
	Поиск N-го вхождения подстройки в строку 21.12.2015, 01:12. Показов 2170. Ответов 1 Метки нет (Все метки) Реализовать вариант функции поиска N-го вхождения подстройки Subs в строку S. 0

	21.12.2015, 13:03

Опции темы

Поиск N-го вхождения подстройки в строку

Решение