Вот смысл: есть файл с числами, записанными по одному на строке. В ходе исполнения этот файл пополняется новыми данными (новая строка с новым числом).
Это число может быть больше поледнего( наименьшего).
Задача: отсортировать сей список, чтобы числа стояли в порядке убывания.

Числа - integer

Один вопрос ... файло типизированное или просто текстовое ..?

В чем сложность то ???

Сортировка файла который потенциально нельзя закачать в память ???

Для этого существует 'ленточная' сортировка - файл разбивается на блоки - каждый из которых сортируется в памяти и сохраняется во временном файле.

Сохраняем максимальное значение для каждого блока, по которым выбираем блок с которого начинаем записывать в результирующий файл
Каждое число из 'рабочего' блока сравниваем со списком максимальных, если больше - записываем в 'результат', если меньше - меняем рабочий блок

Или в чем то другом проблема ???

2 Femida
А почему бы сразу не реализовать добавление числа перед самым большим числом в файле?

Цитата

Числа - integer

Это как?

Цитата(Yanis @ 13.7.2005, 07:37)

добавление числа перед самым большим числом в файле

А это как ???

Цитата(vadims @ 13.7.2005, 07:41)

А это как ???

Просто с самого начала в файл записывать числа по порядку, т.е. по убыванию. Что непонятного?

Цитата(Yanis @ 13.7.2005, 08:44)

Просто с самого начала в файл записывать числа по порядку, т.е. по убыванию. Что непонятного?

Сказанно же что:

Цитата

В ходе исполнения этот файл пополняется новыми данными (новая строка с новым числом).

Петрович
ИМХО: В этом варианте только перезаписывать весь файл - иначе как еще ты после строк

4
356
879

всунешь строку 400

Тогда вообще проблемы не вижу - простая реализация руьинных опреаций

Цитата(vadims @ 13.7.2005, 10:17)

ИМХО: В этом варианте только перезаписывать весь файл - иначе как еще ты после строк

Вот и я о том же

Как говорится - утро вечера мудренее
Решил действовать так: записывать числа в Мемо, там сортировать, а потом это писать в файл.

Это просто мысля стукнула - пошел реализовывать

постаивим вопрос по другому: КАК отсортировать? (пробовал через массив - нифига), как только не извращался

Femida
Давай поставим вопрос так - а сколько их, этих твоих integer-ов, может быть по максимуму?
И второй вопрос - чем оправдано требование что это ОДИН файл? Возможен вариант, скажем, сотни файлов, при слепливании которых в нужном порядке получится требуемый?

Цитата

пробовал через массив - нифига

Мало пробовал.

Предлагаю уникальный алгоритм на Delphi с использованием массивов.

Код

const NumOfArray = 30; //или сколько хочеш var a, b  :array of Integer; i, j    :Integer; num :Integer; begin   SetLength(a,NumOfArray+1); //мы без 0-го элемента обойдёмся    SetLength(b,NumOfArray+1);   for i := 1 to NumOfArray do   begin     //здесь инициализируеш свой массив   end;   for i :=  1 to NumOfArray do   begin     for j := 1 to NumOfArray do     begin       if a[i] > a[j] then num := num + 1;     end;     b[num + 1] := a[i];     num := 0;   end;   SetLength(a,0); //память дороже   //b - отсортирован по возрастанию   //ставиш в условии a[i] < a[j] и получаеш по убыванию end;

http://forum.vingrad.ru/index.php?showtopi...1&hl=сортировка

Цитата(Akina @ 15.7.2005, 18:05)

сколько их, этих твоих integer-ов, может быть по максимуму?

Это типа статистики, т.е. сыграл игру - записался результат.

Добавлено @ 17:26
CosmoMan, сэнкс

Нда пузырьковая сортирофка массива это должно быть круто или я ничего не понимаю в программировании
Ведь я так понимаю это самое количество элементоф заранее неизвестно и брать массиф "побольше на фсякий случай ... авось не переполнится" отнють не самый оптимальный вариант товарыщи ...
Как вам идея использовать память динамически ... односвязный список ... попросту говоря

Код

type   PNode = ^Node;   Node = record      i: Integer;      prev: PNode;   end; ....

Зато под любое количество выделяй себе память для нового елемента да и добавляй в список однажды отсортированный в нужное место ... а потом фсё в файло слить еси надо ...

...

Это сообщение отредактировал(а) Quadr0 - 15.7.2011, 00:39