Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.74/19: Рейтинг темы: голосов - 19, средняя оценка - 4.74
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
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.02.2011, 10:20
Ответы с готовыми решениями:

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

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

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

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

1
Модератор
62918 / 46943 / 32350
Регистрация: 18.05.2008
Сообщений: 113,745
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
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.02.2011, 11:05

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

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

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

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

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


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

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

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