Задача на строки, помогите разобраться |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Задача на строки, помогите разобраться |
DIasT |
9.05.2007 18:37
Сообщение
#1
|
Группа: Пользователи Сообщений: 7 Пол: Мужской Реальное имя: Константин Репутация: 0 |
В общем задача состоит в следующим: Дана последовательность символов. Заменить все восклицательные знаки на точки, все точки на многоточие, ряды тоящих рядом точек одной точкой.
Например a!!.bc....d..e.! => a.....bc.d.e.... в общем вот что у меня получилось: var восклицательные знаки заменяются нормально. Но при добавлении такого же цикла для точек он уходит в себя. Как сделать правильно? Еще вопрос как превратить последовательность рядом стоящих точек в одну. Я нашел только как превращать последовательность ЛЮБЫХ символов в один. var s:string; Помогите решить задачку. Или дайте ссылку на подобную (то что я нашел - написал выше) Заранее благодарен. Сообщение отредактировано: DIasT - 9.05.2007 18:39 |
volvo |
9.05.2007 19:42
Сообщение
#2
|
Гость |
Цитата Но при добавлении такого же цикла для точек он уходит в себя. Такого же - это как понять? Ты точку на точку менять собрался? Или на что?Цитата как превратить последовательность рядом стоящих точек в одну. Вот так, например: i := 1; |
DIasT |
9.05.2007 20:24
Сообщение
#3
|
Группа: Пользователи Сообщений: 7 Пол: Мужской Реальное имя: Константин Репутация: 0 |
|
Айра |
9.05.2007 23:44
Сообщение
#4
|
Профи Группа: Пользователи Сообщений: 731 Пол: Женский Репутация: 25 |
Цитата Но при добавлении такого же цикла для точек он уходит в себя. Правильно. Ведь ты точку, не удаляешь, а заменяешь на много точек, а выход из цикла у тебя тогда, когда точек уже не найдено. Поэтому он крутится бесконечно))) Чтобы нормально заменялись группа точек и одна, предлагаю сделать так: сначала мы все отдельностоящие точки заменяем на '?', потом издеваемся над остальными знаками (сначала над группами точек, потом над '!'), а затем ?-ы меняем на '...'. выглядит это приблизительно воть так: uses wincrt; Сообщение отредактировано: Айра - 9.05.2007 23:45 |
Malice |
10.05.2007 0:06
Сообщение
#5
|
Профи Группа: Пользователи Сообщений: 705 Пол: Мужской Репутация: 20 |
Вроде все красиво, но результата такого же не получается..
uses crt; |
Айра |
10.05.2007 6:54
Сообщение
#6
|
Профи Группа: Пользователи Сообщений: 731 Пол: Женский Репутация: 25 |
Цитата Вроде все красиво, но результата такого же не получается.. Malice, а у меня твой код вообще ошибкой 202 ругается.. |
DIasT |
10.05.2007 7:42
Сообщение
#7
|
Группа: Пользователи Сообщений: 7 Пол: Мужской Реальное имя: Константин Репутация: 0 |
ВСЕМ БОЛЬШОЕ СПАСИБО! ОЧЕНЬ ВЫРУЧИЛИ!
|
samec |
10.05.2007 7:54
Сообщение
#8
|
Бывалый Группа: Пользователи Сообщений: 180 Пол: Мужской Реальное имя: Юра Репутация: 1 |
Вроде все красиво, но результата такого же не получается.. потому что ты сначала заменяешь все ряды стоящих рядом точек точками, а потом эти же точки (которые получились из рядов рядом стоящих точек) заменяешь на многоточие. А в условии задачи, немного по-другому: uses crt; Так что код предложенный Айра более правильный. |
DIasT |
10.05.2007 18:03
Сообщение
#9
|
Группа: Пользователи Сообщений: 7 Пол: Мужской Реальное имя: Константин Репутация: 0 |
если не затруднит помогите еще вот что решить: дана последовательность символов раздененная двоеточиями. Выписать то, что стоит между 1-м и 2-м, 3-м и 4-м двоеточиями: as:sdf:gh:jkl:qwe => sdfjkl
|
klem4 |
10.05.2007 18:19
Сообщение
#10
|
Perl. Just code it! Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
В следующий раз создавай отдельную тему.
function _pos(s: String; count, curr: Byte): Byte; Сообщение отредактировано: klem4 - 10.05.2007 18:20 -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
DIasT |
10.05.2007 18:31
Сообщение
#11
|
Группа: Пользователи Сообщений: 7 Пол: Мужской Реальное имя: Константин Репутация: 0 |
|
Текстовая версия | 28.04.2024 23:39 |