Лекция: Задачи на удаление элементов из линейного однонаправленного списка без головного элемента.

Графическое представление выполняемых действий дано на рисунке 22.

Удаление элемента из начала списка.

ПРИМЕЧАНИЕ: перед выполнением операции удаления элемента или списка желательно запрашивать у пользователя подтверждение удаления.

Procedure Del_beg_list ( Var First: el);

Var

p: el;

answer: string;

Begin

If First <> Nil then

Begin { список не пуст }

writeln ('Вы хотите удалить первый элемент?(да/нет) ');

Readln ( answer );

if answer = 'да' then

Begin

p:=First;

If p^.Next = Nil Then{в списке один элемент }

Begin

Dispose (p);{уничтожение элемента}

First:=Nil;{список стал пустым }

End

Else

Begin

P := first;{адрес удаляемого элемента }

First:=first^.Next;

{адрес нового первого элемента}