удалить второе вхождение подстроки в строку без использования стандартных функций Паскаля.

[Max$$]

Добрый вечер!

Задание лабораторной написать программу, удаляющую второе вхождение подстроки в исходную строку, обе задаются с экрана, не используя стандартные функции для работы со строками (за исключением функции определения длины строки).

Читал про специальные алгоритмы поиска подстроки в строке (Бойера-Мура), но пример программы не нашел.

Может кто-нибудь решал подобную задачу? Поделитесь знанием, пожалуйста.

[min@y™]

46.png

[Max$$]

Нельзя использовать стандартные функции Паскаля, кроме Length! Используя Posex, я написал, все работает.

[Аватар]

Предложили же не PosEx использовать, а код из нее. А там только Length

add
ну и PosEx ни капли не стандартная функция паскаля ))

[min@y™]

Сообщение от Max$$

Нельзя использовать стандартные функции Паскаля, кроме Length! Используя Posex, я написал, все работает.

d2i1ob5p.jpg

[Max$$]

Спасибо. Хотя там есть функция Pos (в 572 строке), а она уж точно стандартная.

[Max$$]

Нашел функцию по алгоритму Бойера-Мура, но программа работает так, что удаляет все вхождения, а мне нужно каждое второе. Почему не срабатывает?

Program lab2; //ищет в строке подстроку и удаляет все вхождения
uses crt;

function BMSearch(StartPos: Integer; const S, P: String): Integer;
type
TBMTable = array[0..255] of Integer;
var
Pos, lp, i, kol: Integer;
BMT: TBMTable;
begin

for i := 0 to 255 do BMT[i] := Length(P);
for i := Length(P) downto 1 do if BMT[Byte(P[i])] = Length(P) then
BMT[Byte(P[i])] := Length(P) - i;

lp := Length(P);
Pos := StartPos + lp -1;
while Pos <= Length(S) do
if P[lp] <> S[Pos] then Pos := Pos + BMT[Byte(S[Pos])] else
if lp = 1 then begin Result := Pos; Exit; end else
for i := lp - 1 downto 1 do if P[i] <> S[Pos - lp + i] then
begin
Inc(Pos);
Break;
end else if i = 1 then
begin
Result := Pos - lp + 1;

Exit;
end;
Result := 0;
end;

Procedure Vvod(var s1,s2:string);
begin
Writeln('Введите исходную строку: ');
readln(s1);
writeln('Введите подстроку: ');
readln(s2);
end;

Procedure Vivod(s1,s2:string);
begin
writeln('Результат: ',s1);
end;

function Del(s1, s2: String):string;
var i, n: integer;
begin
i := 0; n := 1;

repeat
n := BMSearch(1, s1, s2);
if n > 0 then
begin
inc(i);
if i mod 2 = 0 then delete(s1, n, length(s2)) else inc(n);
end;
until n = 0;
Del := s1;
end;

var
s1, s2: string;

begin
Vvod(s1,s2);
s1 := Del(s1, s2);
Vivod(s1,s2);
readln;
end.

[min@y™]

54.png

[Max$$]

Спасибо! Только таких типов данных PascalABC не понимает (.

PWideChar и UnicodeString ..... какими типами можно заменить? Какими ни пытался. ругается , что не может преобразовать string в char.

[Plague]

a Delete это не стандартная функция?

Вот Вам пример:

begin
  var s := ReadString('Введите строку: ');
  var ss := ReadString('Введите подстроку: ');
  
  s := ss + '#' + s;
  
  var ns := s.Length;
  var z := new integer[ns]; //z-функция
  var nss := ss.Length;
  
  for var i := 0 to ns - 1 do
    while (i + z[i] < ns) and (s[z[i] + 1] = s[i + z[i] + 1]) do z[i] += 1;
  
  z.Println; //вывод z-функции
  
  for var i := nss + 2 to ns do
    Writeln(s[i], z[i - 1] = nss ? ' - с этой позиция подстрока входит в строку' : '');
end.