Implementation. Создать список из одного элемента

Создать список из одного элемента

procedure CreateList(var ListN, ListK: PElem; r: real);

New(ListN);

ListK: =ListN; // конец и начало совпадают

ListN^.info: =r;

ListN^.next: =nil;

end;

Добавить новый элемент перед первым

procedure AddFirst(var ListN: PElem; ListK: PElem; r: real);

begin

new(Elem);

Elem^.info: =r;

Elem^.next: =ListN;

ListN: =Elem; // теперь он 1-ый

end;

Добавить новый элемент в конец

begin

new(ListK^.next);

ListK^.next^.info: =r;

ListK^.next^.next: =nil;

ListK: = ListK^.next;

end;

// добавить новый элемент в середину после ListC (не в конец)

procedure AddMedium(ListN, ListC, ListK: PElem; r: real);

begin

new(Elem);

Elem^.info: =r;

Elem^.next: =ListC^.next; // после него то, что было после ListC

ListC^.next: =Elem; // а он сам после ListC

end;