Односвязный список. Delphi

[Nazerbaev]

Всем, Привет! Вот у меня задача: "Упорядочить елементы списка по убыванию используя сортировку посредством выбора максимального елемента." Помогите написать код )) Заранее благодарен

[capta1n]

сортировка через указатели или через данные?

[Nazerbaev]

Сообщение от capta1n

сортировка через указатели или через данные?

Точно забыл написать, сортировка через указатели )

ребята, пока задача не решена )) азы этого знаю.. но блин ничего не получаеться(

[Serge_Bliznykov]

ну так приводите СВОЙ исходный код, который строит/заполняет список, процедуру ображения списка.
Тогда будет разговор о сортировке...
а так пока не видно, что Вы сделали..

p.s. идея сортировки через указатели заключается в том, что сами значения элементов списка не трогаются, а изменяются только ссылки...
вот, простейший случай - сортировка "пузырьком".
допустим P1->P2->P3->P4->nil
если мы сравнили P2.MyData > P3.MyData
значит надо поменять P2 и P3.
меняем указатели:
переписываем указатели в P1 чтобы показывал на P3
в P3 чтобы показывал на P2
в P2 чтобы показывал на P4
получаем:
P1->P3->P2->P4->nil

[Nazerbaev]

Угу.. вот что получаеться:

type
  TPSpisok=^TSpisok;
  TSpisok = record
  chislo:integer;  
  next: TPSpisok; 
  end;

Ввод делаю так:

var
   curr: TPSpisok;
begin
   new(curr); //создание нового елемента списка
   curr^.chislo:=strtoint(Edit1.Text);

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

Вывод:

var
 curr: TPSpisok;
 n:integer; 
 st:string; 
begin
 n:=0;
 st:='';
 curr:=head;
 while curr <> NIL do
    begin
      n:=n+1;
      st:=st+inttostr(curr^.chislo)+#13;
      curr:=curr^.next;
    end;
 if n <> 0
    then ShowMessage('Список:'+#13+st)
    else ShowMessage('В списке нет елементов.');
end;

P.s. Думаю вы теперь поможете)

From Stilet: А код когда оформлять научимся?

[Nazerbaev]

Stilet: Sorry я невонький )) Скоро научусь.

[Nazerbaev]

ну и кто поможет?

[Дамир]

Может как-то так:

Procedure Sort(P:PLIst);
Var F,F1:PList;Sorted:Boolean;

Begin
  Sorted:=False;
  While Sorted Do Begin
 	Sorted:=True;
        F:=P;
	While (f<>nil)and(F^.link<>nil) Do Begin
 	    F1:=F;
    	    F:=F^.Link;
 	    If F^.Info>F1^.Info Then Begin
		f1^.Link:=F^.link;
		F^.Link:=f1;
		If p=f1 Then p:=f;
 		F:=F^.Link;	
		Sorted:=False;
	    End;
	End;
  End;
End;

Только правь код, как тебе надо

[Nazerbaev]

Спасибо, ребята получилось! ))

[IAmRock]

Nazerbaev
А ты не мог бы показать, что получилось? Пожалуйста!