Создание списка

Begin

Else

r:= q; иначе подтягиваем r к q

q:= q^.Next; и делаем шаг по списку указателем q

End;

сейчас ссылка q указывает на элемент -3, то есть q^.Inf = -3, а поле q^.Next содержит адрес элемента -12. Ссылка r указывает на предыдущий элемент списка, то есть на 5, а в r^.Next содержится адрес удаляемого элемента - r^.Next = q:

3. в ссылочное поле r^.Next помещается адрес, хранящийся в q^.Next, то есть адрес элемента -12:

r^.Next:= q^.Next;

Сейчас оба элемента (5 и -3) будут соединены с элементом -12,

а связь между элементами 5 и -3 разрывается.

4. освобождаем память от удаленного элемента -3 и возвращаем указатели q и r в голову списка:

Dispose(q); удаляем из памяти элемент -3

q:= head^.Next; на первый элемент списка

r:= head; на указатель на голову списка

Пример: сформировать список из элементов 5, -3, 17, -12 и вывести его на экран. Удалить из списка несколько элементов (конец удаления – число 0), каждый раз выводя новый список на экран.

Интерфейс:

Первое число: -12

Следующее число: 17

Следующее число: -3

Следующее число: 5

Следующее число: 0

Введено чисел: 4

Введенные числа:

Дата добавления: 2014-01-06