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

Заменить в заданном тексте буквосочетание «abc» на «klmn»

06.05.2010, 23:06. Просмотров 1069. Ответов 1
Метки нет (Все метки)

Составить программу в паскале , которая заменяет в заданном тексте буквосочетание «abc» на «klmn».
например eABCd = eKLMNd
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.05.2010, 23:06
Ответы с готовыми решениями:

Заменить в заданном тексте буквосочетание «abc» на «klmn»
Составить программу в паскале , которая заменяет в заданном тексте...

Заменить в заданном тексте буквосочетание «abc» на «klmn» и удалить лишние пробелы
Составить программу, которая заменяет в заданном тексте буквосочетание «abc» на...

Заменить в заданном тексте буквосочетание "min" на "max".
Замените в заданном тексте буквосочетание "min" на "max".

В заданном тексте заменить все (а) на букву (о)
1) подставить количество элементов одномерного массива для каторых выполняется...

В заданном тексте везде заменить слово А1 на А2
в заданном тексте везде заменить слово А1 на А2. длины слов не совпадают

1
STGE
771 / 576 / 324
Регистрация: 17.06.2009
Сообщений: 1,188
07.05.2010, 01:03 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
s1:='abc';
s2:='ABC';
s3:='klmn';
s4:='KLMN';
for i:=1 to length(s) do
begin
if copy(s,i,length(s1))=s1 then 
begin
delete(s,i,length(s1));
insert(s3,s,i);
end;
if copy(s,i,length(s2))=s2 then
begin
delete(s,i,length(s2));
insert(s4,s,i);
end;
end;
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.05.2010, 01:03

В заданном тексте, заменить повторяющиеся слово на другое
В заданном тексте, содержащем повторяющиеся слова, заменить указанное слово на...

В заданном тексте заменить все знаки препинания на *
В заданном тексте заменить все знаки препинания на *

В заданном тексте заменить последовательность символов x(i) на a(i) и подсчитать число произведенных замен.
Прошу помочь в Лабе. завтра сдавать... боюсь погареть!* искал в нете пободного...


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

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

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