Как отсортировать динамический список ?

Question

[Евгений Трофимов]

У меня есть динамический список (TSpisok), в котором есть наименование, цена и диагональ. Как мне отсортировать этот список по размеру диагонали ? Только через массив ?

type
  TPSpisok=^TSpisok; //указатель на тип TSpisok

  TSpisok = record
  name:string[20];  // имя
	price: string[20]; // цена
  diagonal: string[20];  // диагональ
	next: TPSpisok;    // следующий элемент списка
  end;

var
  head: TPSpisok;  // начало (голова) списка

// добавить элемент в начало списка
procedure TForm1.Button1Click(Sender: TObject);
var
   curr: TPSpisok;  // новый элемент списка
begin
   new(curr); // выделить память для элемента списка
   curr^.name:= Edit1.Text;
   curr^.price:= Edit2.Text;
   curr^.diagonal:= Edit3.Text;

   // добавление в начало списка
   curr^.next := head;
   head := curr;


   // очистить поля ввода
   Edit1.text:='';
   Edit2.text:='';
   Edit3.text:='';
end;

Answer 1

[Армянское Радио]

Ужас-то какой, зачем же диагональ строкой-то хранить...

По делу.
Внешний перебор всех элементов с первого до последнего
Внутри еще перебор с того элемента на котором стоит внешний перебор и до последнего
если диагональ_того_на_котором_внешний_перебор < диагонали_того_на_котором_стоит_внутренний_перебор - обменять их местами.

Comments

[Евгений Трофимов]

Спасибо, действительно, лучше уж цену и диагональ в integer или real =)

[pi314]

зачем же диагональ строкой-то хранить...

А это, вероятно - в дидактических целях, чтоб отгрести по полной при попытке сравнивать строки в процессе сортировки по условию больше-меньше :) Если сортировка в конечно итоге заработает, автор на всю жизнь запомнит, что так делать не нужно, а если нет - запомнит, что сортировка перестановками "не подходит для сортировки телевизоров". В любом случае, эффект будет трудно не заметить :)

[Армянское Радио]

pi314: помнится мне, паскаль сравнивает строки, и делает это в лексикографическом порядке. Это конечно же не совсем оно, но работать будет.
deadrime: никогда не пытайтесь хранить деньги и количества в real! Из-за погрешностей округления вы получите всякие чудеса, от которых бухгалтеры моментально поседеют. Для денег и количеств - только формат с фиксированной запятой!

[pi314]

Армянское Радио:

в лексикографическом порядке

Именно это я и имел ввиду. Pезультат лексикографического сравнения сравнения ' 17' s '15,6' может сильно удивить :)