![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() ![]() |
![]() |
@WARlock@ |
![]()
Сообщение
#1
|
![]() Новичок ![]() Группа: Пользователи Сообщений: 26 Пол: Мужской Репутация: ![]() ![]() ![]() |
Дан текстовый файл. Вывести на экран те символы которые встречаются в нем ровно один раз.
|
Lapp |
![]()
Сообщение
#2
|
![]() Уникум ![]() ![]() ![]() ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 6 823 Пол: Мужской Реальное имя: Лопáрь (Андрей) Репутация: ![]() ![]() ![]() |
Дан текстовый файл. Вывести на экран те символы которые встречаются в нем ровно один раз. Читай посимвольно и считай количество появлений каждого символа в массив array[0..255]of integer потом выведи те символы, у которых значение массива равно 1 Сообщение отредактировано: lapp - -------------------- я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой |
Lapp |
![]()
Сообщение
#3
|
![]() Уникум ![]() ![]() ![]() ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 6 823 Пол: Мужской Реальное имя: Лопáрь (Андрей) Репутация: ![]() ![]() ![]() |
Символы, наверное, имеются в виду неуправляющие..
Примерно так можно: f:file of byte; Сообщение отредактировано: volvo - -------------------- я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой |
klem4 |
![]()
Сообщение
#4
|
![]() Perl. Just code it! ![]() ![]() ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: ![]() ![]() ![]() |
Это что приказ ? Уже можно выпполнять ?
![]() Ты сам хоть что-нибудь сделал ? Если нет, то привиди хоть одну вескую причину по которой кто-то должн сесть и сделать эту задачу (неоднократно решенную на офруме) еще раз, ЗА тебя. решение lapp скрыто Сообщение отредактировано: klem4 - -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
@WARlock@ |
![]()
Сообщение
#5
|
![]() Новичок ![]() Группа: Пользователи Сообщений: 26 Пол: Мужской Репутация: ![]() ![]() ![]() |
Как вывести содержимое файла на экран это не проблема. Я просто не знаю алгоритм который находит числа встречающиеся один раз.
|
klem4 |
![]()
Сообщение
#6
|
![]() Perl. Just code it! ![]() ![]() ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: ![]() ![]() ![]() |
Открываю тебе вариант lapp'a, раз уж сам ничего придумать не смог.
Правда я бы делал немного по другому, читал бы строками, раз уж файл тектсовый
Сообщение отредактировано: volvo - -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
@WARlock@ |
![]()
Сообщение
#7
|
![]() Новичок ![]() Группа: Пользователи Сообщений: 26 Пол: Мужской Репутация: ![]() ![]() ![]() |
uses crt; Во-первых, тегами пользуйся... А во-вторых, тебе же так и подсказали, зачем постить уже данное решение еще раз? Сообщение отредактировано: volvo - |
![]() ![]() |
![]() |
Текстовая версия | 8.12.2023 6:05 |