Algoritmos y Programación en Pascal

362 Capítulo 17. Estructuras de datos recursivas
New(nuevoNodo);
nuevoNodo^.contenido:= nuevoDato;
nuevoNodo^.siguiente:= apAux^.siguiente;
apAux^.siguiente:= nuevoNodo
Uniendo el bucle, para alcanzar el k-ésimo nodo, con las asignaciones anteriores
se obtiene la implementación completa del procedimiento InsertarK:
procedure InsertarK(k: integer; nuevoDato: tElem; var lista: tLista);
{PreC.: k ≥ 1 y lista tiene al menos k nodos}
{Efecto: nuevoDato se inserta tras el k-ésimo nodo de lista}
var
nuevoNodo, apAux: tLista;
i: integer;
begin
apAux:= lista;
{El bucle avanza apAux hasta el nodo k}
for i:= 1 to k-1 do
apAux:= apAux^.siguiente;
{Actualización de punteros}
New(nuevoNodo);
nuevoNodo^.contenido:= nuevoDato;
nuevoNodo^.siguiente:= apAux^.siguiente;
apAux^.siguiente:= nuevoNodo
end; {InsertarK}
Son muy frecuentes las situaciones en las que se accede a una lista sólo a
través de su primer o último elemento. Por esta razón tienen particular interés
las implementaciones de listas en las que el acceso está restringido de esta forma,
siendo las más importantes las pilas y las colas. A continuación se definen estos
tipos de listas junto con determinadas operaciones asociadas: se dará su representación
y las operaciones de modificación y acceso básicas, y se presentarán
ejemplos donde se vea el uso de las mismas.
17.2 Pilas
Una pila es un tipo de lista en el que todas las inserciones y eliminaciones de
elementos se realizan por el mismo extremo de la lista.
El nombre de pila procede de la similitud en el manejo de esta estructura
de datos y la de una “pila de objetos”. Estas estructuras también son llamadas
listas LIFO, 1 acrónimo que refleja la característica más importante de las pilas.
1 Del inglés Last-In-First-Out, es decir, el último en entrar es el primero en salir.