Реализация на Pascal

Данные

Указатель

Type PElem = ^Elem;

Elem = record

Data: integer

Next: PElem;

End;

Var

Head, p: PElem;

Begin

Head:=nil;

New(p);

P^.data:=10;

P^.next:=head;

Head:=p;

End.

Как это работает:

HEAD

NIL

Если мы добавим ещё 1 элемент, то произойдёт следующее

HEAD

*

NIL

Смещение последнего элемента на 1(но не удаление его из памяти!)

Type PElem = ^Elem;

Elem = record

Data: integer

Next: PElem;

End;

Var

Head, p: PElem;

Begin

P:=head;

Head:=head^.next;

End.