Algoritmos y Programación en Pascal

372 Capítulo 17. Estructuras de datos recursivas
procedure CrearCola(var cola: tCola);
begin
cola.principio:= nil;
cola.final:= nil
end; {CrearCola}
Por eficiencia en la implementación de los siguientes procedimientos resultará
conveniente considerar una lista vacía a aquella cuyo puntero final tiene el valor
nil; esto permitirá que para comprobar si una cola es o no vacía sólo se necesite
evaluar la expresión lógica cola.final = nil. Es trivial escribir el subprograma
que efectúa esta comprobación.
Consulta del primer elemento
Esta operación es idéntica a Cima de una pila, puesto que nos interesa el
contenido del primer nodo de la cola. Para verificar el nivel de comprensión
sobre el tema, es un buen ejercicio intentar escribirla (sin mirar el análogo para
pilas, como es natural).
Añadir un elemento
En las colas, los elementos nuevos se sitúan al final y por esta razón es
necesario actualizar el puntero final (y también principio si la cola está vacía).
Un simple gráfico servirá para convencerse cómo. El diseño de este procedimiento
es el siguiente:
si cola no está vacía entonces
Crear y dar valores al nuevoNodo
Actualizar los punteros y el final de cola
en otro caso
Crear y dar valores al nuevoNodo
Actualizar principio y final de cola
La codificación en Pascal de este diseño podría ser la siguiente:
procedure PonerEnCola(dato: tElem; var cola: tCola);
{Efecto: dato se a~nade al final de cola}
var
nuevoNodo: tApNodo;
begin
New(nuevoNodo);
nuevoNodo^.contenido:= dato;
nuevoNodo^.siguiente:= nil;