Algoritmos y Programación en Pascal

360 Capítulo 17. Estructuras de datos recursivas
lista
lista
a
...
a ...
Nodo k-1
x
Nodo k-1
x
Nodo k
y
Nodo k
y
Nodo k+1
z
Nodo k+1
z
Figura 17.4. Eliminación del k-ésimo nodo de una lista.
for i:= 2 to k - 1 do
apAux:= apAux^.siguiente
Una vez hecho esto, sólo hace falta saltarse el nodo k-ésimo, liberando después
la memoria que ocupa. Con esto, el código en Pascal de este procedimiento podría
ser:
procedure EliminarK(k: integer; var lista: tLista);
{PreC.: 1 < k ≤ longitud de la lista}
{Efecto: se elimina el elemento k-ésimo de lista}
var
apAux, nodoSupr: tLista;
i: integer;
begin
apAux:= lista;
{El bucle avanza apAux hasta el nodo k-1}
for i:= 2 to k-1 do
apAux:= apAux^.siguiente;
{Actualizar punteros y liberar memoria}
nodoSupr:= apAux^.siguiente;
apAux^.siguiente:= nodoSupr^.siguiente;
Dispose(nodoSupr)
end; {EliminarK}
...
...