Сортировка динамической структуры

[Lemo]

Дин. структура представлена типом с полями и указателем
[/CODE]

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
   const
   n=5;
  type
     per=^person;
     person=record
      age:integer;
      next:per;
     end;


 var
 G:array of person;
 i,D:integer;
 L,first:per;



begin




   SetLength(G,N);
   g[0].age:=11;
   g[1].age:=2;
   g[2].age:=8;
   g[3].age:=7;
   g[4].age:=19;


 New(L);
 First:=L;

         for i := 0 to 4 do
         begin
            L^.age:=g[i].age;

                if I<N then
                   begin
                         New(L^.Next);
                         L:=L^.Next;
                   end;

          end;


L^.Next:=First;

                  for i:=1 to n do
              begin

                 write(L^.age, ' ');
                 L:=L^.next;

              end;                // Выводит все норм


    
 // Пытался сделать сортировку дин структуры "пузырьком", но я предполагаю , что  тут ерунда с переадрасацией
    while L^.next<>nil do
       begin
           if L^.age>L^.next^.age then
              begin
              D:=L^.age;                                     
 
              L^.age:=L^.next^.age;
              L^.next^.age:=D;
              end;

          L:=L^.next;

       end;


end.

Тойсть алгоритм я понимаю, а вот толком реализовать не могу...
Тойсть как с массивом:

var i,j:integer;
    begin
   for i:=0 to Length(G)-1 do
    for j:=i+1 to Length(G)-1 do
    begin
      if G[i].KodCycl>G[j].KodCycl then
      begin
        P:=G[i];
        G[i]:=G[j];
        G[j]:=P;
      end;
    end;

только перевести это на динамический лад...

[Lemo]

Кто то что ответит? Тема засыхает =(

[netrino]

    while L^.next<>nil do
       begin
           if L^.age>L^.next^.age then // Тут сравнивается текущий элемент со следующим
              begin
              D:=L^.age;                                     
 
              L^.age:=L^.next^.age;
              L^.next^.age:=D;
              end;

          L:=L^.next;

       end;

А нужно сравнивать нужно какой-то один с каждым.
То есть сначала первый со всеми остальными, потом второй и т.д.
Исправьте это и тогда всё должно быть пучком
Заведите второй указатель, который будет ездить по списку, пока первый будет указывать на первый/второй/третий... элемент

[Пепел Феникса]

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

[Lemo]

2Пепел Феникса
Да вот имено, просто проходим тему с этим "хорошими" указателями и нужно имено в динам виде отсортировать...
2netrino
Я тоже примерно понимаю что нужно еще 1 цикл впихнуть, но не могу норм сформулировать условие...Был бы признателен если ты накинул 2-й цикл...

[netrino]

Дело ещё в том, что суть обмена у Вас неправильна... Вы меняете возраст, а не персон. То есть выходит, если у первой персоны возраст больше, чем у второй, то по этому алгоритму просто присваивается возраст первой персоны второй ) Думаю от вас не этого требовали...

[Lemo]

Стуктура я сам выдумал, тут не важно "возраст" это или нет, главное отсортировать по увеличению....

[netrino]

Ааа) ну раз так, то вот исправленный код, у меня работает, вроде:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
   const
   n=5;
  type
     per=^person;
     person=record
      age:integer;
      next:per;
     end;


var
   G:array of person;
   i,D:integer;
   L, R, first:per;

begin
   SetLength(G,N);
   g[0].age:=11;
   g[1].age:=2;
   g[2].age:=8;
   g[3].age:=7;
   g[4].age:=19;


   New(L);
   First:=L;

   for i := 0 to 4 do
   begin
      L^.age:=g[i].age;

      if I<N then
      begin
         New(L^.Next);
         L:=L^.Next;
      end;

   end;


   L := First;

   for i:=1 to n do
   begin
      write(L^.age, ' ');
      L:=L^.next;

   end;

   L := First;

   while L^.next<>nil do
   begin
      R := L^.next;
      while R^.next <> nil do
      begin
         if L^.age > R^.age then
         begin
            D:=L^.age;
            L^.age := R^.age;
            R^.age := D;
         end;
         R := R^.next;
      end;
      L := L^.next;
   end;

   L := First;
   writeln;

   for i := 1 to n do
   begin
      write(L^.age, ' ');
      L := L^.next;
   end;

   readln;

end.

Там по ходу ещё пара ошибок была, Вы иной раз забывали инициализировать L первым элементом