Правила форума :: Скачать Pascal :: FAQ // Ада–2020 :: Скачать GNAT :: OEM–2015 :: Ada -> C/C++
Прочтите прежде чем задавать вопрос!1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
  |
| Типизированные файлы |
| tlotr |
Сообщение
#1
|
|
Гость  |
Подскажите пожалуйста!
Как лучше решить эту задачку: с массивами или можно как-то попроще? Задача: дан файл F типа Fint (type Fint: fyle of Integer), описать процедуру Max(F), которая находит max элемент в нем, а затем отсекает ту часть файла, которая следует за max. |
 
|
|
| Altair |
Сообщение
#2
|
 Ищущий истину  Группа: Пользователи Сообщений: 4 825 Пол: Мужской Реальное имя: Олег Репутация:  45  |
Зачем нужен массив?
откываем файл. читаем каждый элемент, и находя каждый раз наибольший, охраняем текущую позицию в файле. Потом пройдя весь файл и найдя макс. элемент , перемещаемся на максимальныйи начиная после него запихиваем вновый файл. Потом старый стираем а новый переименовываем. Все. никаких массивов. -------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
   |
|
| volvo |
Сообщение
#3
|
|
Гость |
Жестоко
 Цитата(Oleg_Z @ 16.04.05 19:43) ... Потом пройдя весь файл и найдя макс. элемент , перемещаемся на максимальный и... До этого момента - все правильно. Все, что нужно сделать далее: Truncate(f) ;) И никаких переписываний (и переименований файлов)... |
|
|
|
| Altair |
Сообщение
#4
|
|
Ищущий истину Группа: Пользователи Сообщений: 4 825 Пол: Мужской Реальное имя: Олег Репутация: 45 |
нет, ты не прочель условие, емунадо наоборот усечь не конец а начало
-------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
|
|
|
| Altair |
Сообщение
#5
|
|
Ищущий истину Группа: Пользователи Сообщений: 4 825 Пол: Мужской Реальное имя: Олег Репутация: 45 |
а, блин да, это я ошибся.
Тогда Truncate и все -------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
|
|
|
| volvo |
Сообщение
#6
|
|
Гость |
Цитата затем отсекает ту часть файла, которая следует за max да, да, понял уже  я читал быстро и подумал что надо после.А то слишком просто выходит. Олег. Сообщение отредактировано: Oleg_Z - |
|
|
|
|
|
Текстовая версия | 15.05.2024 10:50 |
