Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/6: Рейтинг темы: голосов - 6, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 05.10.2012
Сообщений: 29
1

Преобразовать строку

11.12.2012, 07:54. Показов 1172. Ответов 1
Метки нет (Все метки)

Помогите!!


Преобразовать строку таким образом, что бы после каждого заданного символа sym1 был вставлен символ sym2, если sym2 не следует за sym1 в исходной строке.
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.12.2012, 07:54
Ответы с готовыми решениями:

Преобразовать данную строку в строку из тех же букв, но с чередованием больших и малых
Помогите, пожалуйста:scratch: Задана строка из смеси строчных и заглавных букв. Преобразовать её...

Преобразовать число в строку записать строку в обратном порядке
Дано шестизначное натуральное число. Преобразовать его в строку. Записать полученную строку в...

Дана строка S и число N. Преобразовать строку S в строку длины N
Дана строка S и число N. Преобразовать строку S в строку длины N следующим образом: если длина...

Дана строка S и число N. Преобразовать строку S в строку длины N следующим образом: если длина строки S больше N, то отбросить первые символы
Дана строка S и число N. Преобразовать строку S в строку длины N следующим образом: если длина...

1
Модератор
64056 / 47472 / 32727
Регистрация: 18.05.2008
Сообщений: 115,185
11.12.2012, 09:17 2
Лучший ответ Сообщение было отмечено bober223 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses crt;
var s:string;
    sim1,sim2:char;
    i:byte;
begin
clrscr;
writeln('Введите строку:');
readln(s);
repeat
write('Введите символ, посде которого вставлть sim1=');
readln(sim1);
if pos(sim1,s)=0 then writeln('Такого символа нет в строке, повторите ввод');
until pos(sim1,s)>0;
write('Введите символ для вставки sim2=');
readln(sim2);
for i:=length(s) downto 1 do
if(s[i]=sim1)and(s[i+1]<>sim2)then
insert(sim2,s,i+1);
write(s);
readln
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.12.2012, 09:17

Преобразовать строку S в строку длины N
Дана строка S и число N. Преобразовать строку S в строку длины N следующим образом: если длина...

Преобразовать строку S в строку длинны N
budu ochen' blagodarna!!!!!pomogite proshu!!!! 1.Дано натуральное число N. Напишите функцию public...

Преобразовать строку
Дана строка. Преобразовать её, удалив каждый символ * и повторив каждый символ, отличный...

преобразовать строку
указания к работе:Разработать алгоритм и составить программу для решения задачи таким образом, ...


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

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

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