|
#1
|
|||
|
|||
сортировочка
казалось бы банальная сортировка пузырьком, но с динамическими переменными что-то не получается пожалуйста помогите!!!
|
#2
|
|||
|
|||
сортировка цепного односвязного списка
|
#3
|
||||
|
||||
Для "облегчения" задачи, ваш код видимо вы решили скрыть от общественности.
Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#4
|
||||
|
||||
"Исходник в студию!" ©
Оставайтесь хорошими людьми... VK id2634397, ds [at] phoenix [dot] dj |
#5
|
|||
|
|||
буду откровенна,я просто решила не позориться...
а вообще я сегодня уточнила само задание. сортировать ничего не надо, а просто вводимое число вставлять в односвязный список в порядке возростания...вот как-то так... проблем от этого у меня не убавилось, возник новый вопрос условия цикла по сортировки |
#6
|
|||
|
|||
А зачем сортировка, если у тебя только вставка по возрастанию.
Просто идешь по списку и если следующий член больше твоего числа, то вставляешь перед ним. Ну и на конец списка тоже проверяешь. Код:
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; Фсё... |