Реферат Програма для створення двозв'язних кільцевих списків

st: = leftNode;

fFirstHead: = rightNode;. NextFirst: = rightNode.NextFirst;. NextFirst: = leftNode;

GetI (left - 1). NextFirst: = rightNode;;

end;

procedure TPlex.Clear;

fCount: = 0;

fFirstHead: = nil;: = nil;: = nil;: = nil;

end;

TPlex.AddToIndex (Value: TMember; Index: integer); current, NewNode: TNodePtr;

if (index> fCount) then;

current: = fFirstHead; (NewNode);. Value: = Value;

if (index = 1) then.NextFirst: = fFirstHead;: = NewNode; (NewNode);;;

while (index> 2) do: = current.NextFirst; (index);;

NewNode.NextFirst: = current.NextFirst;. NextFirst: = NewNode;

AddToSecondList (NewNode); (NewNode); (NewNode);;

end.

1.