Algoritmos y Programación en Pascal

374 Capítulo 17. Estructuras de datos recursivas
17.3.3 Aplicación: gestión de la caja de un supermercado
Con la ayuda del tipo cola se presenta a continuación un programa de simulación
del flujo de clientes en una caja de supermercado.
Una cantidad prefijada de clientes se va incorporando a la cola en instantes
discretos con una cierta probabilidad también fijada de antemano; 5 cada cliente
lleva un máximo de artículos, de forma que cada artículo se contabiliza en una
unidad de tiempo. Cuando a un cliente le han sido contabilizados todos los
artículos, es eliminado de la cola. En cada instante se muestra el estado de la
cola.
Un primer esbozo en seudocódigo de este programa sería el siguiente:
Leer valores iniciales
Iniciar contadores
repetir
Mostrar la cola
Procesar cliente en caja
Procesar cliente en cola
hasta que se acaben los clientes y los artículos
La lectura de los valores iniciales consiste en pedir al usuario del programa el
número de clientes, numClientes, la probabilidad de que aparezca un cliente por
unidad de tiempo, probLlegada, y el número máximo de artículos por cliente,
maxArti. Tras definir los valores iniciales de los contadores de tiempo t, y de
clientes puestos en cola, contClientes, sólo hay que refinar las acciones del bucle
del diseño anterior. Así, en un nivel de diseño más detallado Procesar cliente en
caja se descompondría en
si el cliente ya no tiene artículos entonces
Retirarlo de la cola
en otro caso
Reducir el número de artículos del cliente
Mientras que el refinamiento de Procesar cliente en cola sería
si quedan clientes y random < probabilidad prefijada entonces
Añadir un cliente e incrementar el contador de clientes
A partir del refinamiento anterior ya podemos pasar a la implementación en
Pascal de este programa.
5 Para incluir factores de aleatoriedad se hace uso de Randomize y Random de Turbo Pascal
(véase el apartado A.2.1).