y"> {------------- формування атрибутів процесу ------------}
{PR [J0]. PRIORITET: = irand (1, N10);} [J0]. Ist: = 1; [J0]. PRIORITET: = 1; {Оператор використовується для детеpмініpованного тестування}
{------------- планування наступної заявки --------------} (1, irand (0, TZ), 0);
{---------------- планування події 3 ------------------} (3, 0, j0);; E2;
{---------- ПОДІЯ 2 - ПОЯВА ЗАПИТУ В СМО від И2 -----------}
{---------- аналіз переповнення таблиці процесів ---------} N0 = 0 THEN begin write ('ПОМИЛКА 10'); exit; end;
{----------- формування номера нового процесу ----------}: = N0;: = PR [N0]. S0; p>
{------------- формування атрибутів процесу ------------}
{PR [J0]. PRIORITET: = irand (1, N10);} [J0]. Ist: = 2; [J0]. PRIORITET: = 2; {Оператор використовується для детеpмініpованного тестування}
{------------- планування наступної заявки --------------} (2, irand (0, TZ), 0);
{---------------- планування події 2 ------------------} (3, 0, j0);; E3;
{-------------- ПОДІЯ 3 --------------}
{----------------- аналіз стану засобу 1 -------------} status (Sr1) = 0 then
{--------------------- заняття кошти ---------- ---------} (Sr1, j0);
{Ttob1: = irand (0, Tob);}: = 150; {Оператор використовується для детеpмініpованного тестування}
{---------------- планування події ------------------} (4, Ttob1 , j0)
{------------ приміщення процесу в чергу 1 ----------} (Q1, j0, PR [J0]. PRIORITET); ; E4; {----- ПОДІЯ E4 ------}
{-------------------------- звільнення сpедства1 ------------- ---------} (Sr1); (5,0, j0);
{--------------------------- аналіз стану очеpеди ----------- -------} length (q1) <> 0 THEN: = head (q1);
{----------------- zanaytie стану засобу 1 -------------} (Sr1, j0);
{Ttob1: = irand (0, Tob);}: = 150; {Оператор використовується для детеpмініpованного тестування}
{---------------- планування події ------------------} (4, Ttob1 , j0); E5; {-------------- ПОДІЯ 5 --------------}
{----------------- перевірка умови N --------------} pr [j0]. Ist = 1 then: = k-1;
{----------------------- кінець пpоцесса -------- -----------} [J0]. S0: = N0;: = J0; K = 0 then schedl (7,0,0);
{----------------- аналіз стану сpедства --------------} status (Sr2) = 0 then (Sr2, j0);
{Ttob1: = irand (0, Tob);}: = 500; {Оператор використовується для детеpмініpованног...