Algoritmos y Programación en Pascal

376 Capítulo 17. Estructuras de datos recursivas
En el cuerpo del programa, tal como se especifica en el diseño, tras la lectura
de datos, se realiza la siguiente simulación en cada instante t: se procesa un
artículo en la caja (se anota su precio), cuando se acaban todos los artículos de
un determinado cliente éste se elimina de la cola (paga y se va); por otra parte
se comprueba si ha llegado alguien (si su número aleatorio es menor o igual que
probLlegada), si ha llegado se le pone en la cola y se actualiza el contador de
personas.
Finalmente, el cuerpo del programa es el siguiente:
begin
Randomize;
CrearCola(caja);
t:= 0;
contClientes:= 0;
WriteLn(’Simulador de Colas’);
WriteLn(’Introduzca número de personas’);
ReadLn(numClientes);
WriteLn(’Introduzca la probabilidad de llegada’);
ReadLn(probLlegada);
WriteLn(’Introduzca máximo de artículos’);
ReadLn(maxArti);
repeat
Writeln(’Tiempo t =’,t);
MostrarCola(caja);
t:= t + 1;
if caja.principio^.contenido= 0 then
SacarDeCola(caja)
else with caja.principio^ do
contenido:= contenido - 1;
if (Random