Algoritmos y Programación en Pascal

17.3. Colas 371
17.3.1 Definición del tipo cola
es:
Las colas, como listas que son, podrían definirse de la manera habitual, esto
type
tElem = char; {o lo que corresponda}
tCola = ^tNodoCola;
tNodoCola = record
contenido: tElem;
siguiente: tCola
end; {tNodoCola}
Sin embargo, algunas operaciones, como poner un elemento en una cola, no
resultan eficientes, debido a que debe recorrerse la lista en su totalidad para llegar
desde su primer elemento hasta el último. Por ello, suele usarse otra definición,
considerando una cola como un par de punteros:
type
tElem = char; {o lo que corresponda}
tApNodo = ^tNodoCola;
tNodoCola = record
contenido: tElem;
siguiente: tApNodo
end; {tNodoCola}
tCola = record
principio: tApNodo;
final: tApNodo
end; {tCola}
Con esta definición de colas, cualquier operación que altere la posición de los
nodos extremos de la lista deberá actualizar los punteros principio y final; sin
embargo, esto resulta ventajoso en comparación con la obligatoriedad de recorrer
toda la cola para añadir un nuevo elemento.
17.3.2 Operaciones básicas
Veamos cómo implementar las operaciones básicas con colas siguiendo la
definición anterior.
Creación de una cola vacía
Para crear una cola se necesita iniciar a nil los campos principio y final
del registro. Nada más fácil: