Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.92/12: Рейтинг темы: голосов - 12, средняя оценка - 4.92
буська
0 / 0 / 0
Регистрация: 16.10.2010
Сообщений: 51
1

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

26.02.2011, 10:20. Просмотров 2205. Ответов 1
Метки нет (Все метки)

Даны строки S1, S2 и символ C. Перед (после) каждого вхождения символа C в строку S1 вставить строку S2.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.02.2011, 10:20
Ответы с готовыми решениями:

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

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

После каждого вхождения символа C в строку S вставить строку S0
Дан символ C и строки S, S0. После каждого вхождения символа C в строку S...

После каждого вхождения символа C в строку S вставить строку S0
Даны символ C и строки S, S0. После каждого вхождения символа C в строку S...

Дан символ C и строки S, S0. Перед каждым вхождением символа C в строку S вставить строку S0.
Дан символ C и строки S, S0. Перед каждым вхождением символа C в строку S...

1
Puporev
Модератор
54590 / 42094 / 29065
Регистрация: 18.05.2008
Сообщений: 99,319
26.02.2011, 11:05 2
Лучший ответ Сообщение было отмечено буська как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
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
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.02.2011, 11:05

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

Дан символ C и строки S, S0. После каждого вхождения символа C в строку S вставить строку S0
Дан символ C и строки S, S0. После каждого вхождения символа C в строку S...

Вставить символ х после каждого вхождения символа у
Вставляет символ х после каждого вхождения в символ у


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru