Удаление элемента из конца списка

Удаление элемента из конца списка производится, когда указатель dx показывает на предпоследний элемент списка, а х – на последний.

Изобразим удаление графически:

{Найдем предпоследний элемент}

x:= Head;

dx:=Head;

while x^.Next<>Nil do

Begin

dx:= x;

x:= x^.Next;

End;

{Удаляем элемент x^ из списка и освобождаем занимаемую им память}

dx^.Next:= Nil;

Dispose(x);

Теперь опишем процедуру удаления элементов из списка в общем случае:

Procedure Del(Gigit: integer; Var u: Ukazatel);

Var

x, dx: UKAZATEL;

Begin

x:= Head;

while x<>Nil do

if x^.Data=Digit

then

Begin

if x=y

then

Begin

Head:= Head^.Next;

Dispose(x);

x:= Head;

End;

else

Begin

dx^.Next:= x^.Next;

Dispose(x);

x:= dx^.Next;

End;

End;

else

Begin

dx:= x;

x:= x^.Next;

End;

End;

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

Не нашли, что искали? Воспользуйтесь поиском: