INSERCION EN UN GRAFO

Suponga que va a insertar un nodo N en el grafo G. observe que N será asignado a NODO [NDISP], el primer nodo disponible. Más aun, como N será un nodo aislado, se debe hacer ADY [NDISP]:=NULO. EL PROCEDIMIENTO 8.6 hace esto mediante una variable lógica INDIC que indica si hay desbordamiento.

Procedimiento 8.6 INSNODO(NODO, SIG, ADY, PRINCIPIO, NDISP, N, INDIC)
                              Este procedimiento inserta el nodo N en el grafo G.

1.    [¿DESBORDAMIENTO?]Si NDISP=NULO, entonces: hacer
INDIC:=FALSO y volver.

2.    Hacer ADY[NDISP]:=NULO.

3.    [quitar el nodo de la lista NDISP]
Hacer NUEVO:=NDISP y NDISP:=SIG[NDISP].

4.    [Insertar nodo N en la lista NODO].
Hacer NODO[NUEVO]:=N, SIG[NUEVO]:=PRINCIPIO y
PRINCIPIO:=NUEVO.

5.    Hacer INDIC:=VERDADERO y volver.