Структуры и алгоритмы обработки данных




Операция GetNode


Разработаем процедуру, которая будет создавать пустой элемент списка с указателем Р.

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

P = Avail

Avail = Ptr(Avail)

Перед этим надо проверить, есть ли элементы в списке. Пустота свободного списка (Avail = Nil), эквивалентна переполнению функционального списка. 

If Avail = Nil then Print “Переполнение”  Stop

Else

  P = Avail

  Avail = Ptr(Avail)

Endif

 




Содержание  Назад  Вперед