Algoritmos y Programación en Pascal

17.1. Estructuras recursivas lineales: las listas enlazadas 359
2. Leer o modificar el k-ésimo elemento de la lista.
3. Insertar o eliminar un elemento en la k-ésima posición.
4. Insertar o eliminar un elemento en una lista ordenada.
5. Combinar dos o más listas en una única lista.
6. Dividir una lista en dos o más listas.
7. Ordenar los elementos de una lista de acuerdo con un criterio dado.
8. Insertar o eliminar un elemento en la k-ésima posición de una lista de
acuerdo con un criterio dado.
9. Buscar si aparece un valor dado en algún lugar de una lista.
Como ejemplo de implementación de algunas de estas operaciones, a continuación
se presentan procedimientos que eliminan o insertan un nuevo elemento
en una lista.
El procedimiento EliminarK
En primer lugar, se presenta un procedimiento que elimina el k-ésimo elemento
de una lista (que se supone de longitud mayor que k). En el caso en
que k = 1, podemos utilizar el procedimiento EliminarPrimero desarrollado
anteriormente, por lo que en este apartado nos restringimos al caso k > 1.
El primer esbozo de este procedimiento es muy sencillo:
Localizar el nodo (k-1)-ésimo de lista
Asociar el puntero siguiente del nodo (k-1)-ésimo al nodo (k+1)-ésimo
El proceso se describe gráficamente en la figura 17.4.
Emplearemos un método iterativo para alcanzar el (k − 1)-ésimo nodo de la
lista, de modo que se irá avanzando nodo a nodo desde la cabeza (el primer nodo
de la lista) hasta alcanzar el (k − 1)-ésimo usando un puntero auxiliar apAux.
Para alcanzar el nodo (k−1)-ésimo, se empezará en el primer nodo, mediante
la instrucción
listaAux:= lista;
y luego se avanzará iterativamente al segundo, tercero, . . . , (k − 1)-ésimo ejecutando