Удалить подстроку из строки

@hunter_321 · Регистрация: 25.03.2015

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

Реализовать удаление подстроки из строки не используя стандартные функции для работы со строками(delete, insert, copy и т.д.)
есть кое какие наброски, но некорректно выводит

Pascal

var
  i, j, k: byte;
  s, s0, str: string;
 
begin
  str := '';
  write('Введите строку 1: ');
  readln(s); 
  writeln;
  write('Введите строку 2: '); 
  readln(s0);
  k := length(s);
  for i := 1 to k do
  //begin
    for j := 1 to length(s0) do
      if s[i] = s0[j] then
      begin
        s[i] := s[i + 1];
        k := k - 1;
      end;
  //end;
  writeln(s);
end.

@bormant · 29.12.2015, 00:30

Как вариант:

Pascal

var
  i, j, k: Integer;
  s, p: String;
begin
  Write('Строка: ':12); ReadLn(s);
  Write('Подстрока: ':12); ReadLn(p);
  i:=0; k:=Length(s)-Length(p);
  while i<=k do begin
    j:=1; while (j<=Length(p)) and (s[i+j]=p[j]) do Inc(j);
    if j>Length(p) then begin
       Inc(j,i);
      while j<=Length(s) do begin
        Inc(i); s[i]:=s[j]; Inc(j);
      end; s[0]:=Chr(i);
    end;
    Inc(i);
  end;
  Write('Результат: ':12,s);
end.

Добавлено через 33 минуты
Или имелось в виду удаление по индексам как в Delete(s,i,n)?

	29.12.2015, 00:30