![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() ![]() |
![]() |
*(Slim)* |
![]() ![]()
Сообщение
#1
|
Гость ![]() |
как написать прогу заменяющую в введенном славе "ab" на "bc"...
|
NorthAngel |
![]()
Сообщение
#2
|
![]() Новичок ![]() Группа: Пользователи Сообщений: 25 Пол: Женский Репутация: ![]() ![]() ![]() |
Даже ТАКОЕ лень самостоятельно писАть
![]() Код if pos('ab',s)<>0 then begin insert('c',s,pos('ab',s)+2); delete(s,pos('ab',s),1); end; -------------------- ошибки легче всего делаются и труднее всего находятся в самых простых местах программы =))
|
klem4 |
![]()
Сообщение
#3
|
![]() Perl. Just code it! ![]() ![]() ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: ![]() ![]() ![]() |
ну только всетаки зациклить надо
![]() while(pos('ab',s)<>0) do begin -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
Костет |
![]()
Сообщение
#4
|
![]() Группа: Пользователи Сообщений: 3 Пол: Мужской Репутация: ![]() ![]() ![]() |
А если надо удалить из введенного текста все слова, длина которых меньше 3 символов? Я тож нуп
![]() -------------------- Последняя рюмка... Невнятные фразы...
И взляд как качан увядшей капусты глядит на закуску... Говоря не членораздельно, пытался спросить где мне взять покурить... Но услышал лишь пьяный бред, что в квартире нет сигарет... |
klem4 |
![]()
Сообщение
#5
|
![]() Perl. Just code it! ![]() ![]() ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: ![]() ![]() ![]() |
-------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
volvo |
![]()
Сообщение
#6
|
Гость ![]() |
Это - немного сложнее... Вычисляй позицию и длину каждого слова (о том, КАК это сделать - Разбиение на слова. Все способы), и потом проходи в обратном порядке (от последнего слова к первому), и удаляй (процедурой Delete) все слова, длина которых меньше 3-х символов...
klem4, пример приведи... ![]() |
![]() ![]() |
![]() |
Текстовая версия | 1.09.2025 18:14 |