переупорядочение файла, с помощью списка Опции

[Svetlana]

Всем доброго дня и ночи! Сегодня у меня был экзамен и надо было решить такую задачу:
Дан файл целых чисел.Переупорядочить его по неубыванию с помощью списка.Оформить в виде процедуры
Вот что я написала:

procedure Upor (var tsl;f);
var           x,min:integer;
begin       repeat begin reset(f); min:=0; while not eof(f) do begin
                                  read(f,x); if x<min then min:=x end;

                                  in-list(p,min,q);
                                     
                                  reset(f); 
                                  while not eof(f) do begin
                                  read(f,x); if x<min then min:=x end;
                                  {здесь оператор(станд. процедура или функция),который удаляет найденное число}

                                                           end
             until filesize(f)<>nil
Close(f)
end;

Теперь поясню то,что я хотела этим сказать:1.Ищем в файле мин.число,включаем его в список
2.Удаляем из файла минимум
3.Опять ищем в файле минимум,включаем его в список и удаляем из файла...Получается цикл,который заканчивается,когда файл станет пустым.

Моя ошибка,на которую указал преподаватель в том,что я минимуму присваиваю 0. Т.е. я не предуссматриваю случаи с отрицательными числами.И вообще она не эффективная...Укажите на ошибки,пожалуйста,если они здесь ещё есть.И как можно было решить эту задачу по-другому?Очень интересно...

Сообщение отредактировано: Svetlana - 29.06.2009 12:10

[Krjuger]

допустимы только три операции:просмотр списка,добавление элемента и удаление одного элемента

Вот именно!!! различные комбинации этих действий и будут давать вам ваш результат.Вы знакомы с сортироваками в массиве?принцип такой же может быть.Например, вы смотрите на вашу информационную часть первого элемента списка,запоминаете ее,затем переходите ко второму элементу и сравниваете его информационную часть,если у второго меньше, то записываете на первое место,если нет,то переходите дальше к третьему и тд.Я правда подзабыл,как такая сортировка называется,вроде сортировка кучей.А вообще можно любую сортировку приспособить для списка.

Переупорядочить его по неубыванию

Тобиш надо упордочить по возрастанию?:0 Велик и богат наш русский язык.
А вообще ключевые слова в вашем задании:
......с помощью списка....
А ты посути просто береш список и туда уже в упорядоченном виде записываеш.А задание предполагает,что ты заполниш список,как есть в файле и уже в списке начнеш упорядочивать,ну или вариант Volvo"сразу добавлять элемент в список, сохраняя его упорядоченность по неубыванию".Иначе использование списка становится совсем бессмысленным.И еще желательно было указать какой список вы подразумеваете:однонаправленный или двунаправленный....
И еще у вас в коде указана процедура in-list,ну так почему вы ее не выложите?Ведь ее реализовать тоже можно по разному.

Сори,когда писал не видел сообщение Volvo(его тогда е было,когда начал писать).

Значит, тебе надо открыть файл и пройти по нему 49 раз (а это значит, сколько всего элементов ты прочитаешь из файла за эти 49 проходов?)

В худшем случае 49! да и еще не надо забывать,что помимо открытия ей еще надо перезаписывать файл удаляя элемент из него,а это еще замедляет процесс.49 раз как никак придется открыть, считать, удалить, закрыть

Сообщение отредактировано: Krjuger - 29.06.2009 13:06

[Svetlana]

procedure in-list(var p:tsl;a:telement;q:tsl);
{p-указатель ссылки на начало списка,а-включаемая в список запись,q-сылка на звено,после которого нужно включить новую запись,еслиq=nil,то включение в начало списка}
var           r:tsl;
begin        new®; r^.element:=a;r^.next:=nil;
                if p=nil then {список пустой}p:=r  else 
                                    if q=nil then {включение в начало списка} begin r^.next:=p;p:=r end else 
                                                          begin r^.next:=q^.next;q^.next:=r end
end;

Добавлено через 3 мин.
Спасибо за ссылку!

З.Ы. Ту последовательность,что ты дал...её же нельзя упорядочить по возрастанию?Так получается. Вот по неубыванию можно...