Algoritmos y Programación en Pascal

17.3. Colas 373
if cola.final nil then begin
{Si la cola no está vacía se actualizan los punteros}
cola.final^.siguiente:= nuevoNodo;
cola.final:= nuevoNodo
end {then}
else begin
{Actualización de punteros:}
cola.principio:= nuevoNodo;
cola.final:= nuevoNodo
end {else}
end; {PonerEnCola}
Suprimir el primer elemento
Para definir SacarDeCola tenemos que considerar dos casos distintos:
1. Que la cola sea unitaria, pues al sacar su único elemento se queda vacía,
con lo que hay que actualizar tanto su principio como su final.
2. Que la cola tenga longitud mayor o igual a dos, en cuyo caso sólo hay que
actualizar el campo principio.
A continuación se muestra la implementación del procedimiento:
procedure SacarDeCola(var cola: tCola);
{PreC.: cola es no vacía}
{Efecto.: se extrae el primer elemento de cola}
var
apuntaAux : tApNodo;
begin
if cola.principio = cola.final then begin
{La cola es unitaria}
apuntaAux:= cola.principio;
Dispose(apuntaAux);
cola.principio:= nil;
cola.final:= nil
end {then}
else begin
{Si Longitud(cola) >= 2:}
apuntaAux:= cola.principio;
cola.principio:= apuntaAux^.siguiente;
Dispose(apuntaAux)
end {else}
end; {SacarDeCola}