Написать процедуру подобно insert, которая после каждого вхождения символа C в строку S1 вставляет строку S2

[Poma][a]

Можно так (для FPC (для делфи убрать uses SysUtils))

uses SysUtils;

var
	s, instr : string;
	ch : Char;

begin
	ReadLn (s);
	ReadLn (ch);
	ReadLn (instr);
	
	WriteLn (StringReplace (s, ch, ch+instr, [rfReplaceAll]))
end.

Думаю можно с циклом for и 2-мя строками.. или с while и одной строкой..
Вся беда в том, что в instr может оказаться этот самый ch...

[Mad_Cat]

var s1,s2:string; c1:char;
procedure InsertStringAfterChar(c:char;var s,str:string);
var i:integer;
k:integer;
buf:string;
begin
buf:='';
for i:=1 to length(s) do
if s[i]=c then
buf:=buf+c+str
else buf:=buf+s[i];
s:=buf;
end;
begin
 s1 := 'abcdbeob';
 s2 := 'yyy';
 c1 := 'b';
 InsertStringAfterChar(c1,s1,s2);
 writeln(s1);
end.

abyyycdbyyyeobyyy

[azalia]

Спасибо большое!

[azalia]

А можно сделать так, чтобы изменялась сама строка s1, в которую вставляем подстроку, а не buf? Предыдущий вариант, конечно, подходит, но с меня еще и так требуют.

[Serge_Bliznykov]

А можно сделать так, чтобы изменялась сама строка s1,

в коде Mad_Cat пост #13 так и происходит, после процедуры InsertStringAfterChar изменяется s1


Вы, наверное, хотите, чтобы дополнительная переменная (строка buf) не использовалась, да?

[Poma][a]

в коде Mad_Cat пост #13 так и происходит, после процедуры InsertStringAfterChar изменяется s1

ТС хочет решение без доп. строк..

Я бы использовал while и после вставки Inc (i, Length(s2)) (а в конце while идет уже Inc(i))..

[azalia]

Спасибо, попробую)

[azalia]

var
  s1, s2: string;
  c: char;

///После каждого вхождения символа С в строку S1 вставляет строку S2
procedure Insert_str(var s1, s2: string; c: char);
var
  i, j, p: integer;
begin
  i := 1;
  while i <= s1.length do
  begin
    if s1[i] <> c then i := i + 1
    else
    begin
      SetLength(s1, s1.length + s2.length);
      for j := 1 to (s1.Length - i - s2.Length) do
        s1[s1.Length + 1 - j] := s1[s1.Length + 1 - j - s2.Length];
      for p := 1 to s2.length do       
        s1[i + p] := s2[p];
      i := i + s2.Length + 1;
    end;
  end;
end;

begin
  write('Введите строку: ');
  readln(s1);
  write('Введите строку: ');
  readln(s2);
  write('Введите символ: ');
  readln(c);
  Insert_str(s1, s2, c);
  write(s1);
end.