Удаление слов, нужно удалить слова |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Удаление слов, нужно удалить слова |
-Марина- |
Сообщение
#1
|
Гость |
Помогите! Нужна процедура, которая бы удаляла из текста слова, содержащие две или более разные гласные буквы.
P.S. Текст файлового типа и слова в нём уже разделены пробелами. |
-Марина- |
Сообщение
#2
|
Гость |
мне никто не поможет?
|
klem4 |
Сообщение
#3
|
Perl. Just code it! Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
вот тебе пример для одной строки:
uses crt; -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
-Марина- |
Сообщение
#4
|
Гость |
[quote]ok := pos(volwes[i], copy(word, p + 1, 255)) = 0;
Где volwes[i] паскаль пишет, что Invalid qualifier. Что делать? |
klem4 |
Сообщение
#5
|
Perl. Just code it! Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
const Сообщение отредактировано: klem4 - -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
-Марина- |
Сообщение
#6
|
Гость |
А как применить эту прогрмамму ко всему тексту, а не только к одной строке?
|
klem4 |
Сообщение
#7
|
Perl. Just code it! Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Читаешь входной файл построчно, применяешь к очередной прочитанной строке процедуру ReformString и пишешь измененную строку в выходной файл.
-------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
volvo |
Сообщение
#8
|
Гость |
Может быть выгоднее читать посимвольно из файла, и уже во время составления слова подсчитывать число разных гласных в нем:
const |
Текстовая версия | 18.04.2024 9:40 |