
Дан файл f = file of integer. Удалить из файла все повторяющееся элементы, БЕЗ создания дополнительного файла, матриц и т.п.

Заранее огромное спасибо!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() |
mapblwka |
![]() ![]()
Сообщение
#1
|
Новичок ![]() Группа: Пользователи Сообщений: 13 Пол: Женский Реальное имя: Марина Репутация: ![]() ![]() ![]() |
Уже не один день мучаю свой мозг..
![]() Дан файл f = file of integer. Удалить из файла все повторяющееся элементы, БЕЗ создания дополнительного файла, матриц и т.п. ![]() Заранее огромное спасибо! ![]() |
![]() ![]() |
mapblwka |
![]()
Сообщение
#2
|
Новичок ![]() Группа: Пользователи Сообщений: 13 Пол: Женский Реальное имя: Марина Репутация: ![]() ![]() ![]() |
ой! ребята! Вы такие умные тут! Все намного оказалось проще... Дошла до инута спросила "умных": "че делать???", ответ был до боли простой! truncate(var F) и все дела.
Переписывать письменный вариант решенной задачки честно лень, устала очень, позже выложу. Но вся фишка в том что: берем элемент файла, проверяем его на повторяемость, если повторяется, то каждый повторный элемент методом сдвига перегоняем в конец файла и truncate. Complete! ![]() Так вот в следующий раз СНАЧАЛА спроси у них "Че делать", а потом иди на форум. Понятно? Блин, мало того, что помоги человеку, так он еще и фыркает в ответ... ![]() Сообщение отредактировано: volvo - |
![]() ![]() |
![]() |
Текстовая версия | 10.09.2025 13:40 |