Системы массового обслуживания

Константы для разработки программы моделирования системы работы банка на языке Pascal (стр. 109) :

Pmax := 4 | максимальное число входящих за 1 минуту

Tmin := 1 | минимальное время обслуживаиния

Tmax := 9 | максимальное время обслуживаиния

L := 480 | период моделирования в минутах (8 часов)

M := 15 | допустимое время ожидания

N := 0 | сначала в банке никого нет

count := 0 | счетчик "плохих" минут

пример программы:

for i:=1 to L do

begin

P:=random(PMAx+1);

T:=Tmin+random*(Tmax-Tmin);

R:=round(K/T);

N:=N+P-R;

if N<0 then N:=0;

dT:=N/K*T;

if dT>M then count:=count+1;

end;