Algoritmos y Programación en Pascal

17.1. Estructuras recursivas lineales: las listas enlazadas 353
var
lista : tLista;
1)
2)
3)
lista
lista
lista
????
nuevoDato
nuevoDato
Figura 17.2. Inserción de un elemento en una lista vacía.
Sobre el código anterior debe señalarse que se define tLista como un puntero
a un tipo no definido todavía. Esto está permitido en Pascal (supuesto que
tal tipo es definido posteriormente, pero en el mismo grupo de definiciones)
precisamente para poder construir estructuras recursivas.
17.1.2 Inserción de elementos
Supóngase que nuestra lista está iniciada con el valor nil. Para introducir
un elemento nuevoDato en ella, habrá que completar la siguiente secuencia de
pasos, que se muestra gráficamente en la figura 17.2:
1. En primer lugar, habrá que generar una variable del tipo tNodo, que ha de
contener el nuevo eslabón: esto se hace mediante la sentencia New(lista).
2. Posteriormente, se asigna nuevoDato al campo contenido del nodo recién
generado. La forma de esta asignación dependerá del tipo de datos de la
variable nuevoDato.
3. Y por último, hay que anular (con el valor nil) el campo siguiente del
nodo para indicar que es el último de la lista.
Para insertar un nuevoDato al principio de una lista no vacía, lista, se ha
de proceder como se indica (véase la figura 17.3):
1. Una variable auxiliar listaAux se usa para apuntar al principio de la lista
con el fin de no perderla. Esto es:
??
??