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

comment описание работы мини-ЭВМ;

PROCESS class COMP;

begin

ref (STUDENT) S; comment студент, занимающий место;

integer Nach; comment время начала простоя;

START: S:-QCOMP.first; comment первый студент в очереди;

S.out; comment покидает ее,;

hold(randint(5,25,C)/2); comment работает на ЭВМ;

activate S; comment и переходит к следующему действию;

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

passivate; comment ждать следующего студента;

Pcomp:=Pcomp+(time-Nach)/2; comment увеличить время общего простоя;

goto START;

end;

comment описание работы УПД;

PROCESS class UPD;

begin ref (STUDENT) S; comment студент, занимающий УПД;

integer Nach; comment время начала простоя;

START: S:-QUPD.first; comment первый студент в очереди;

S.out; comment покидает ее,;

hold(randint(5,13,U)); comment работает на УПД;

activate S; comment и переходит к следующему действию;

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

passivate; comment ждать следующего студента;

Pupd:=Pupd+time-Nach; comment вычислить общее время простоя;

goto START;

end UPD;

comment инициализация потоков случайных чисел;

M:=2;U:=1;C:=3;P:=4;