Algoritmos y Programación en Pascal

17.2. Pilas 365
Añadir un nuevo elemento en la cima de la pila
Este procedimiento toma como parámetros una pila y la variable que se va
a apilar; la acción que realiza es la de insertar el objeto como un nuevo nodo al
principio de la pila. La definición de este procedimiento es directa a partir del
método de inserción de un nodo al principio de una lista visto en el apartado
anterior.
procedure Apilar(nuevoDato: tElem; var pila: tPila);
{Efecto: nuevoDato se a~nade sobre pila}
var
pilaAux: tPila;
begin
pilaAux:= pila;
New(pila);
pila^.contenido:= nuevoDato;
pila^.siguiente:= pilaAux
end; {Apilar}
Eliminar la cima de la pila
Para quitar un elemento de la pila sólo debemos actualizar el puntero. La
definición del procedimiento no necesita mayor explicación, ya que es idéntica a
la del procedimiento Eliminar presentado en el apartado 17.1.3.
procedure SuprimirDePila(var pila: tPila);
{PreC.: pila no está vacía}
{Efecto: se suprime el dato de la cima de la pila}
var
pilaAux: tPila;
begin
pilaAux:= pila;
pila:= pila^.siguiente;
Dispose(pilaAux)
end; {SuprimirDePila}
17.2.3 Aplicaciones
Pilas y recursión
Una aplicación importante de las pilas surge al tratar la recursión (véase
el capítulo 10). En efecto, en cada llamada recursiva se añade una tabla de
activación en una pila (denominada pila recursiva). Dicha tabla incorpora los
argumentos y objetos locales con su valor en el momento de producirse la llamada.