[morkovka]

казалось бы банальная сортировка пузырьком, но с динамическими переменными что-то не получается пожалуйста помогите!!!

[morkovka]

сортировка цепного односвязного списка

[Страдалецъ]

Для "облегчения" задачи, ваш код видимо вы решили скрыть от общественности.

[PhoeniX]

"Исходник в студию!" ©

[morkovka]

буду откровенна,я просто решила не позориться...
а вообще я сегодня уточнила само задание. сортировать ничего не надо, а просто вводимое число вставлять в односвязный список в порядке возростания...вот как-то так...
проблем от этого у меня не убавилось, возник новый вопрос условия цикла по сортировки

[lmikle]

А зачем сортировка, если у тебя только вставка по возрастанию.
Просто идешь по списку и если следующий член больше твоего числа, то вставляешь перед ним. Ну и на конец списка тоже проверяешь.

Код:

type
   PListItem = ^TListItem;
  TListItem = record
    Value : Integer;
    Next : PListItem;
  end;

var
  MyList : PListItem;

function AddItem(AList : PListItem; AValue : Integer);
var
  NewItem : PListItem;
begin
  While AList.Next <> Nil Do
    Begin
      If AList.Value > AValue Then Break;
      AList := AList.Next;
    End;

  New(NewItem);
  NewItem.Value := AValue;
  NewItem.Next := AList.Next;
  AList.Next := NewItem;
end;

Фсё...