Algoritmos y Programación en Pascal

364 Capítulo 17. Estructuras de datos recursivas
un nuevo elemento sobre la pila (que se suele llamar push), y la eliminación del
elemento superior de la pila (también llamada pop). 2
Creación de una pila vacía
El primer procedimiento que consideramos es el de crear una pila vacía. La
idea es bien simple: sólo hay que asignar el valor nil a su puntero.
procedure CrearPila(var pila: tPila);
{PostC.: pila es una pila vacía}
begin
pila:= nil
end; {CrearPila}
Averiguar si una pila está vacía
Se trata sencillamente de la siguiente función
function EsPilaVacia(pila: tPila): boolean;
begin
EsPilaVacia:= pila = nil
end; {EsPilaVacia}
Consulta de la cima de una pila
Una función especialmente importante es la que permite consultar el contenido
del primer nodo de la pila. En esta implementación sólo hay que leer el
campo contenido del primer nodo de la pila. La función tiene como argumento
una variable de tipo tPila y como rango el tipo de sus elementos tElem. Está
implementada a continuación bajo el nombre de Cima.
function Cima(pila: tPila): tElem;
{PreC.: pila no está vacía}
{Dev. el contenido del primer nodo de pila}
begin
Cima:= pila^.contenido
end; {Cima}
2 Los nombres de estas funciones proceden de los verbos usados en inglés para colocar o coger
objetos apilados.