Билет 53. Добавление компонента в середину списка.

Совсем не трудно вставить компоненту (NPoint) в середину списка, когда имеется ссылка на компоненту, предшествующую данной в реорганизованном списке. Назовём её OPoint.

NPoint^.next := OPoint^.next;

OPoint^next := NPoint;

Эти операторы будут правильно работать и в том случае, если OPoint – последняя компонента в списке, т.е. OPoint^.next = nil. Если OPoint = nil, то выполнение этих операторов приводит к ошибке.

procedure InsertAfter (OPoint, NPoint: link);

begin NPoint^.next := OPoint^.next;

OPoint^next := NPoint end;

Труднее организовать процедуру InsertBefore, т.к. тогда новую компоненту надо вставлять перед компонентой, на которую у неё есть ссылка.

procedure InsertBefore (OPoint, NPoint: link; var head: link);

var cur: link;

begin If OPoint = head then begin

NPoint^.next := head;

head := NPoint; end

else begin

cur := head;

while cur^.next<>OPoint do cur := cor^.next;

cur^.next := NPoint;

NPoint^next := OPoint end;

end;

Имеется ещё один способ реализации процедуры InsertBefore. Им пользуются тогда, когда кол-во информации, содержащейся в компонентах списка не очень велико, а список достаточно длинный. Сначала новая компонента с помощью процедуры InsertAfter помещается в список, но попадает не на своё место, а затем меняется местами содержимое компонент.

procedure InsertBefore2 (OPoint, NPoint: link);

var temp:Point; begin NPoint^.next:=OPoint^.next; OPoint^.next:=NPoint; temp:=OPoint^; OPoint^:=NPoint^; NPoint^:= temp; end;

Билет 54. Исключение компонент из середины списка.

Операция исключения компонент из середины списка будет простй тогда, когда имеется ссылка на компоненту, предшествующую исключаемой компоненте. Назовем её PREV.

prev^.next := prev^.next^.next;

Здесь также можно рассмотреть два варианта:

1) Удаление первого объект из списка и присваивание указателя на него в переменную out.

Procedure delete_head(ver out:link); Begin Out:=head Head:=head^.next; End;

2) Удаление из списка элемента, стоящего после prev, на который имеется ссылка, и присвоение указателю на него переменной Out происходит следующим образом.

procedure DeleteAfter (prev: link; var Out: link); begin Out := prev^.next; prev^.next := prev^.next^.next; end;

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

procedure Delete (our: link; var head: link); var cur: link; begin if out= head then head := out^.next else begin cur := head; while cur^.next<>out do cur := cur^.next; cur^.next := out^.next; end; end;