Даны строки S1, S2 и символ C. Перед (после) каждого вхождения символа C в строку S1 вставить строку S2.

@буська · Регистрация: 16.10.2010

@Puporev · 26.02.2011, 11:05

Pascal

uses crt;
var s1,s2,s:string;
    c,w:char;
    i:byte;
begin
clrscr;
writeln('Введите строку, в которую будем вставлять:');
readln(s1);
writeln('Введите строку, которую будем вставлять:');
readln(s2);
repeat
write('Введите символ из строки, перед(после) котрого вставлять c=');
readln(c);
if pos(c,s1)=0 then writeln('Такого символа нет в строке, повторите ввод.');
until pos(c,s1)>0;
repeat
clrscr;
writeln('Куда вставлять?');
writeln('1-перед');
writeln('2-после');
writeln('другое-выход');
readln(w);
case w of
'1':begin
     s:=s1;
     for i:=length(s)downto 1 do
     if s1[i]=c then insert(s2,s,i);
     write(s);
     readln;
     end;
'2':begin
     s:=s1;
     for i:=length(s)downto 1 do
     if s1[i]=c then insert(s2,s,i+1);
     write(s);
     readln;
     end;
else exit;
end;
until not(w in ['1'..'2']);
end.

Если после вставки длина строки будет больше 255 символов, то лишние отрежет.

@буська 0 / 0 / 0 Регистрация: 16.10.2010 Сообщений: 51
		1
	Даны строки S1, S2 и символ C. Перед (после) каждого вхождения символа C в строку S1 вставить строку S2. 26.02.2011, 10:20. Просмотров 3961. Ответов 1 Метки нет (Все метки) Даны строки S1, S2 и символ C. Перед (после) каждого вхождения символа C в строку S1 вставить строку S2. 0

Опции темы

Даны строки S1, S2 и символ C. Перед (после) каждого вхождения символа C в строку S1 вставить строку S2.

Решение