Algoritmos y Programación en Pascal

17.3. Colas 375
El único tipo que se necesita definir para este programa es el tipo tCola. Las
variables que almacenarán los datos del programa son el número de personas
que llegarán a la caja, numClientes, el número máximo de artículos que cada
persona puede llevar, maxArti, y la probabilidad de que una persona se una a
la cola, probLlegada. Además se usará la variable t para medir los distintos
instantes de tiempo, la variable contClientes para contar el número de personas
que se han puesto en la cola y la variable caja, que es de tipo tCola.
El encabezamiento del programa es el siguiente:
Program SimuladorDeColas (input, output);
type
tElem = integer;
tApNodo = ^tNodo;
tNodo = record
contenido: tElem;
siguiente: tApNodo
end; {tNodo}
tCola = record
principio, final: tApNodo
end; {tCola}
var
t, contClientes, numClientes, maxArti: integer;
probLlegada: real;
caja: tCola;
Se usarán los siguientes procedimientos estándar del tipo tCola: CrearCola,
PonerEnCola, SacarDeCola, y además MostrarCola que, como su nombre indica,
muestra todos los elementos de la cola. Su implementación se presenta a
continuación:
procedure MostrarCola(cola: tCola);
{Efecto: muestra en pantalla todos los elementos de cola}
var
apuntaAux: tApNodo;
begin
if cola.final= nil then
WriteLn(’La caja está desocupada’)
else begin
apuntaAux:= cola.principio;
repeat
WriteLn(apuntaAux^.contenido);
apuntaAux:= apuntaAux^.siguiente
until apuntaAux= nil
end {else}
end; {MostrarCola}