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

QUPD:-new HEAD; comment создание очереди на УПД;

QCOMP:-new HEAD; comment создание очереди на ЭВМ;

UPD1:-new UPD; comment создание УПД;

COMP1:-new COMP; comment создание ЭВМ;

comment установка временных интервалов гистограммы;

tim(1):=15; tim(2):=30; tim(3):=45; tim(4):=60;

tim(5):=75; tim(6):=90; tim(7):=105; tim(8):=120;

tim(9):=135;

comment создание и запуск генератора студентов;

activate new GENER;

hold(2880); comment моделирование работы системы в течение 48 часов;

comment вывод полученных значений;

outfix(1-Pupd/time,3,5);outimage; comment загрузка УПД;

outfix(1-Pcomp/time,3,5);outimage; comment загрузка ЭВМ;

outfix(Num,0,5);outimage; comment число ушедших студентов;

outfix(MAX,0,5);outimage; comment максимальная длина очереди;

outfix(Toz/(Num+Nmb),2,5);outimage; comment среднее время ожидания в очереди;

comment вывод распределения общего времени работы студентов в машинном зале;

for I:=1 step 1 until 9 do

begin

outint(tim(I),11); comment время работы;

outint(std(I),11); comment число студентов;

outimage;

end;

end