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

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

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

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

Ответ
 
Опции темы Поиск в этой теме
Старый 12.06.2012, 22:09   #1
Snube
Новичок
Джуниор
 
Регистрация: 12.06.2012
Сообщений: 1
Восклицание Написать прогу. Вроде нереал на типизированных файлах.

Записать в файл n целых чисел. Поменять в новом файле минимальный элемент с последним. Никак не получается.
Snube вне форума Ответить с цитированием
Старый 12.06.2012, 22:50   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

ничего сложного. как раз только с типизированными файлами эта задача может быть решена.

решение такое:
находите индекс минимального элемента (считая, что первый элемент в файле имеет индекс НУЛЕВОЙ).
дальше просто
Код:
  seek(f, FileSize(f)-1);
  Read(f, LastElement);
  seek(f, IndexMinElement);
  Read(f, MinElement);
  seek(f, IndexMinElement);
  Write(f, LastElement);
  seek(f, FileSize(f)-1);
  Write(f, IndexMinElement);

p.s. можно обойтись и меньшим числом команд seek,
то так, имхо, понятнее...
Serge_Bliznykov вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Сумма цифр в типизированных файлах Шпилька Помощь студентам 0 15.05.2012 16:29
Нужно написать прогу на CompModel-что то вроде ассемблера TheRomul Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 2 01.06.2011 05:37
Электронная Энциклопедия на типизированных файлах! (Delphi) Willes Помощь студентам 0 06.05.2011 11:00
как удалить значение в типизированных файлах Лукманов Александр Общие вопросы Delphi 3 10.03.2009 10:07