Реферат: Моделирование 2-х канальной системы массового обслуживания с отказами

if tc1 = t then

begin

if CHANNAL1 = CLAIM1 then inc(served1) else inc(served2);

CHANNAL1 := FREE;

writeln('Канал1 выполнил заявку');

end;

if tc2 = t then

begin

if CHANNAL2 = CLAIM1 then inc(served1) else inc(served2);

CHANNAL2 := FREE;

writeln('Канал2 выполнил заявку');

end;

if W(t,l1) then

begin

writeln('Поступила заявка1');

if CHANNAL1 = FREE then

begin CHANNAL1 := CLAIM1; tc1 := F(t,n1); writeln('Канал1 принял заявку1'); end

else if CHANNAL2 = FREE then

begin CHANNAL2 := CLAIM1; tc2 := F(t,n1); writeln('Канал2 принял заявку1'); end

else if CHANNAL1 = CLAIM2 then

begin CHANNAL1 := CLAIM1; tc1 := F(t,n1); inc(not_served2); writeln('Канал1 принял заявку1 вместо заявки2'); end

else if CHANNAL2 = CLAIM2 then

begin CHANNAL2 := CLAIM1; tc2 := F(t,n1); inc(not_served2); writeln('Канал2 принял заявку1 вместо заявки2'); end

else begin inc(not_served1); writeln('заявка1 не обслужена'); end;

end;

if W(t,l2) then

begin

writeln('Поступила заявка2');

if CHANNAL1 = FREE then