Шпаргалка: Моделирование работы. Simula

out; comment покинуть очередь;

Num:=Num+1; comment увеличение числа ушедших студентов;

Toz:=Toz+time-tm; comment увеличение суммарного времени ожида-

ния;

goto STOP; comment завершить все действия;

end;

end;

out; comment покинуть очередь;

Toz:=Toz+time-tm; comment увеличение суммарного времени ожидания;

Nmb:=Nmb+1; comment увеличение числа студентов, дождавшихся

обслуживания;

MZCap:=MZCap+1; comment уменьшение числа мест в машинном зале;

tm:=time; comment засечь время;

if (vyb=3) or (vyb=2) then begin comment если студент собирался работать на УПД;

UPD: into(QUPD); comment занять очередь на УПД;

activate UPD1 delay 0; comment занять УПД;

passivate; comment ждать конца выполнения работы;

end;

into(QCOMP); comment занять очередь на ЭВМ;

activate COMP1 delay 0; comment занять ЭВМ;

passivate; comment ждать конца выполнения работы;

if rep=5 then comment если работу нужно повторить;

begin

rep:=1; comment сброс повторения;

goto UPD; comment перейти к УПД;

end;

histo(std,tim,time-tm,1); comment сохранить статистику;

MZCap:=MZCap-1; comment освободить место в зале;

STOP: comment завершение всех действий;