Срочно нужна программа для курсовой на линейные списки Опции

[Gizmo]

Вот и сессионый петух клюнул в неподходящее время в неподходящее место,поэтому огромная просьба помочь в написании программы на создание и упорядоченние линейных списков.
1)Создать список упорядоченный по возрастанию ключей.Структура данных эл-та:фамилия,номер телефона.По номеру тел. звонящего абонента выдать его фамилию.
2)По заданной фамилии выдать телефоны всех однофамильцев.
Разницы нету что использовать :стеки,деки или очереди.
PS Уже писал на других форумах посвящённых этой тематики,им оказалось СЛАБО.

[Gizmo]

Сликом геморройно переделывать эту прогу для моей(я уже писал что в списках я ноль).Мне не вся прога нужна а токо кусок чтобы сортировал ключи по возрастанию(по фамилии сортируем).Но всё равно Thanks
Если у кого есть этот кусок проги ,просьба скинуть.
PS А чё с моим вводом данных в файл,он правильный или нет?У меня прога пашет,но здесь писали типа это ерунда.

Сообщение отредактировано: Gizmo - 23.05.2006 22:02

[volvo]

Сликом геморройно переделывать эту прогу для моей(я уже писал что в списках я ноль). Мне не вся прога нужна а токо кусок чтобы сортировал ключи по возрастанию(по фамилии сортируем).

Ну я же написАл, что исправлений будет очень мало:

С учетом тех типов, которые привел в программе klem4, функция сортировки будет выглядеть так:

function insert_sort(L: pitem): pitem;

  function insert(a: pitem; L: pitem): pitem;
  begin
    a^.next := nil;
    if l = nil then insert := a
    else
      if a^.data.name < L^.data.name 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));
end;

P.S. Не забудь как она вызывается !!!

DataBase := insert_sort(DataBase);

, и никак иначе...