Algoritmos y Programación en Pascal

A.2. Variables aleatorias 487
al lector interesado a los ejercicios, donde se indican otras, y a los comentarios
bibliográficos.
Como ejemplo inicial, considérese que un supermercado desea hacer un sorteo
entre sus clientes, de forma que sus probabilidades de ser premiados sean proporcionales
al dinero gastado en la tienda. Trivialmente se ve que esta situación
es un caso particular del dado trucado, explicado al final del apartado anterior,
por lo que no requiere mayor explicación (véase el ejercicio 15).
Un ejemplo típico es el acto de barajar, que consiste sencillamente en
Dado un array A de n elementos,
Situar en A1 uno cualquiera,
escogido aleatoriamente entre A1 y An.
...
Situar en An−1 uno cualquiera,
escogido aleatoriamente entre An−1 y An.
donde la elección entre Aizda y Adcha se efectúa mediante la asignación
posic:= variable aleatoria uniforme del conjunto {izda, . . . , dcha}
referida en el apartado A.2.1 y en el ejercicio 12c de este capítulo.
Finalmente, esbozamos el método del acontecimiento crítico, para simular
una cola (una ventanilla de un banco, por ejemplo), donde llega un cliente cada λ1
unidades de tiempo y tarda en ser atendido λ2 unidades de tiempo, por término
medio. 6
Un paso intermedio del diseño de este programa puede ser el siguiente:
{Dar valores iniciales a los datos}
reloj:= 0;
longCola:= 0;
sigLlegada:= 0; {tiempo hasta la siguiente llegada}
sigSalida:= 0; {tiempo hasta la siguiente salida}
repetir sin parar
if cola vacía o sigLlegada < sigSalida then begin
{llegada de cliente}
reloj:= reloj + sigLlegada;
sigSalida:= sigSalida - sigLlegada;
sigLlegada:= ExpNeg(λ1);
longCola:= longCola + 1;
EscribirSituacion(reloj, longCola)
end {then}
else begin
{salida de cliente}
6 El tiempo entre llegadas (resp. salidas) es una variable aleatoria exponencial negativa de
parámetro λ1 que se supone desarrollada, ExpNeg(lambda) (véase el ejercicio 14).