не могу разобраться с текстовыми переменными в паскале, вот условие задачи(делал её на фортране, а на паскале не получается) |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
не могу разобраться с текстовыми переменными в паскале, вот условие задачи(делал её на фортране, а на паскале не получается) |
maklir |
Сообщение
#1
|
Новичок Группа: Пользователи Сообщений: 16 Пол: Мужской Реальное имя: Михаил Репутация: 0 |
вводится непустая(проверить на пустоту вод одних пробелов или цифр) последовательность символов(не более70), отдельные слова разделены пробелами, вывести в лексикографическом порядке слова, начинающиеся с приставки "раз".
|
klem4 |
Сообщение
#2
|
Perl. Just code it! Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Разбиение на слова. Все способы. ? В следующий раз сначала используй поиск.
-------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
maklir |
Сообщение
#3
|
Новичок Группа: Пользователи Сообщений: 16 Пол: Мужской Реальное имя: Михаил Репутация: 0 |
да смотрел я туда, мне в принципе только ввод строки нужен и желаельно без встроенных паскалевских функций в самом примитиве
|
klem4 |
Сообщение
#4
|
Perl. Just code it! Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Если лова разделены исключительно одним пробелом.
вот достаточно коротки вариант: var -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
Текстовая версия | 29.03.2024 16:42 |