Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 25.12.2008, 01:26   #1
matavella
Новичок
Джуниор
 
Регистрация: 16.11.2008
Сообщений: 1
По умолчанию Девушке поможете? ну помогите же

Добрый день помогите пожалуйста ....
Дан файл целых чисел (типизированный). Преобразовать этот файл так чтобы сначала были числа кратные 3, потом которые при делении на 3 дают 1, а остальные удалить из файла........желательно функцией seek без массивов.... помогите

Последний раз редактировалось matavella; 25.12.2008 в 10:30.
matavella вне форума Ответить с цитированием
Старый 26.12.2008, 00:16   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

насколько я помню, удалить из типизированного файла ничего не получится. может быть, если сдвинуть все элементы на один вверх, а потом сделать файлу truncate - возможно и получится. но это только если операция truncate применима к типизированному файлу... да и зачем такие сложности.
Надо так - читаете по одному числу - если кратное 3 - записывайте в НОВЫЙ файл, потом ещё раз пройтись по входному файлу, опять читаем числа и если выполняется условие - "потом которые при делении на 3 дают 1", дописываем их в выходной файл. после окончания.
удаляем исходный файл. а НОВЫЙ переименовываем в то имя, которое было у исходного файла.
в принципе, я пишу тут дольше, чем это можно было на Паскале написать...
Serge_Bliznykov вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Нашёл код не поможете доработать его eldar Работа с сетью в Delphi 6 24.01.2010 21:27
Помогите, пожалуйста, девушке... Pushinka Microsoft Office Access 18 06.06.2008 00:03
Поможете на экзамене? Cyberbest Помощь студентам 3 04.06.2008 05:16