Сортировка списков Опции

[Rom1k]

Нашёл сортировку списков методом вставки,который писал volvo .
Она мне не подходит.Мне нужна такая сортировка,которую можно применить несколько раз,так,как мне список сначала надо отсортировать по фамилиям,потом по среднему балу.

Имеется таковая?

[volvo]

получается ,что надо писать одно и то же 2 раза ,только изменять аргумент в каджой сортировке?

А если подумать? И сделать так:

type functype = function (a, b: node): boolean;

function insert_sort(l: plist; less: functype): plist;

  function insert(a: plist; l: plist): plist;
  begin
    a^.next := nil;
    if l = nil then insert := a
    else
      if less(a^, l^) then begin
        a^.next := l; insert := a;
      end
      else begin
        l^.next := insert(a, l^.next);
        insert := l;
      end;
  end;

begin
  if l = nil then insert_sort := nil
  else insert_sort := insert(l, insert_sort(l^.next, less));
end;

И вызывать с разной функцией сравнения?

function less_1(a, b: node): boolean; far;
begin
  less_1 := a.field_1 < b.field_1
end;
function less_2(a, b: node): boolean; far;
begin
  less_2 := a.field_2 < b.field_2
end;

...
{ вызываем для упорядочивания по первому полю: }
first := insert_sort(first, less_1);
...
{ а теперь - сортируем по второму полю: }
first := insert_sort(first, less_2);
...

Попробуй...

Сообщение отредактировано: volvo - 17.05.2007 4:01