Двонаправленый список (Pascal)

[spinogryz_ua]

Как добавить 1 елемент в конец двонаправленого списка?

[Stilet]

http://www.programmersforum.ru/showthread.php?t=47462

[Develop]

наверное как-то так:

type 
  PNode = ^TNode;
  TNode = record
     prev, next: PNode;
  end;

var root, node: PNode;

begin
  new(root);
  root^.prev:= nil;
  root^.next:= nil;
  ***
  new(node);
  node^.prev:= nil;
  node^.next:= root;
  root^.prev:= node;
end;