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

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

26.02.2011, 10:20. Просмотров 2153. Ответов 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. (Turbo Pascal):

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

1
Puporev
Модератор
54149 / 41782 / 28889
Регистрация: 18.05.2008
Сообщений: 98,331
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
Привет! Вот еще темы с решениями:

Дан символ 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