Работа со строками

@tarakano · Регистрация: 24.12.2010

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

вводим с клавиатуры некоторые слова. потом вводим букву, которую нужно вставить перед заданной буквой. т.е.

дана строка: "папа снег брат "
вставляем букву "б"
перед символом "а"
в итоге у нас должно выйти: "пбапба снег брбат"

Добавлено через 1 минуту
вот код этой программы на паскале:

Pascal

program moy;
var s,st,ch:string;
i:integer;
procedure vstavka(b,c:string;var a:string);
begin
i:=1;
     repeat
     begin
         if a[i]=c then
         begin
         insert(b,a,i); i:=i+length(b);
          end;
          inc(i);
          end;
     until i>length(a);
end;
procedure vuvod(var a:string);
begin
for  i:=1 to length(a) do
     write (a[i]);
     writeln;
end;
begin
 writeln ('vvedite slovo ili slova');
readln(s);
 writeln ('vvedite simvol ili clovo vstavki');
     readln(st);
      writeln ('vvedite simvol pered katorim vstavit`');
       readln(ch);
     vstavka(st,ch,s);
     writeln ('v itog');
     vuvod(s);
     readln;
end.

@DeadAnyKey · 30.05.2011, 20:50

Я бы Replace использовал.

@tarakano · 30.05.2011, 23:19 **[ТС]**

DeadAnyKey

спасибо, решил

@DeadAnyKey 16 / 16 / 1 Регистрация: 08.03.2011 Сообщений: 37
	30.05.2011, 20:50	2
	Я бы Replace использовал. 1

@tarakano 34 / 26 / 0 Регистрация: 24.12.2010 Сообщений: 165
	30.05.2011, 23:19 [ТС]	3
	DeadAnyKey спасибо, решил 0