аналіз стану очеpеди ----------- -------} length (q2) <> 0 THEN: = head (q2);
{----------------- zanaytie стану засобу 1 -------------} (Sr2, j0); : = irand (0, Tob);
{Ttob1: = Tob;} {Оператор використовується для детеpмініpованного тестування}
{---------------- планування події ------------------} (6, Ttob1 , j0);
{--------------? яpхфхихешх фишЄхи № еюеЄш яpюуюер
ш Сћшеир юсеиєцхее? ї чр тю' ---------------}
{begin: = t-Tbeg [J0];: = M +1;
{------------?? Сћшеихешх еєьь? ш еєьь? 'трфЕрЄют ------}
{Sum: = Sum + Ttob2;: = SumKv + Ttob2 * Ttob2;
{----------------?? Сћшеихешх еЕхфех'трфЕрЄшСћхе'юую ш
юРЋхе'ш фютхЕшЄхи № еюую шеЄхЕтрир --------}
{if M> 1 then [M]: = sqrt (abs (SumKv-Sum * Sum)/(M-1)); M <= 500 then Inter [M]: = Tst [ M-1] * SrKv [M]/MInter [M]: = Tst [500] * SrKv [M]/M; [M]: = Inter [M]/2/Sum * M;;;}; E7;
{-------- ПОДІЯ 7 - КІНЕЦЬ ПРОЦЕСУ МОДЕЛЮВАННЯ --------};;; {$ i + u + r}
{-------------------- УПРАВЛЯЮЧА СЕКЦІЯ ------------------- }; (E, J0); E of
: E1;
: E2;
: E3;
: E4;
: E5;
: E6;
: E7;; E = 7;.