> {(time (NULL)); potokCl=0.1, randNext=0, timeOne=0.05; timeAll=((8 * 60 * 60)/30), timeNext=0, timeLast=0, clientFirst=1, clientIn=0, newClient=0; timeWork1=0, timeWork2=0, timeWork3=0, p1=0, p2=0, p3=0, clientMiss=0, clientApply=0, ochered=0; neObsluzhen= 0, clientAll=0, netClient1=0, netClient2=0, netClient3=0, masterYes2=0, statOcher2=0, statOcher3=0 ;; statClin=0, statClin2=0; clientNo=0, taktAll=(8 * 60 * 60)/30, masterYes1=0, statOcher=0;
//- ===== - головний цикл (; timeAll gt; 0; timeAll--)
{(clientFirst == 1)
{= 1 + rand ()% 99;=randNext/100;=(- 1/potokCl) * log (randNext);=timeNext; -;
} (timeLast == 0)
{++;=1;=1 + rand ()% 99;=randNext/100;=(- 1/potokCl) * log (randNext);=timeNext;
} (newClient == 1)
{((clientIn + 1) lt; 7)
{++; (p1 == 0)
{= 1 + rand ()% 99;=randNext/100;=(- 1/timeOne) * log (randNext); ++; -;
}
{(p2 == 0)
{= 1 + rand ()% 99;=randNext/100;=(- 1/timeOne) * log (randNext); ++;-;
}
{(p3 == 0)
{= 1 + rand ()% 99;=randNext/100;=(- 1/timeOne) * log (randNext);
p3 ++; -;
}
}
}
}
{++; -;
}
} (p1 == 1) timeWork1 -; (p1 == 1 amp; amp; timeWork1 == 0)
{-; ++; -;
} (p2 == 1) timeWork2 -; (p2 == 1 amp; amp; timeWork2 == 0)
{-; ++; -;
} (p3 == 1) timeWork3 -; (p3 == 1 amp; amp; timeWork3 == 0)
{-; ++; -;
} (timeLast!=0) timeLast -; (clientIn == 0)
{++;
} (p1 == 1 amp; amp; p2 == 1 amp; amp; p3 == 1)
{++;
}=0;=statOcher + ochered;=statClin + clientIn;
} (ochered gt; 0)
{= clientMiss + ochered;
} ((clientIn-ochered) gt; 0)
{= clientApply + (clientIn-ochered);
}=(clientMiss + clientApply);=clientMiss/clientAll;=clientNo;=taktAll;=netClient1/netClient2;=masterYes1/netClient2;=statOcher;=statOcher2/taktAll;=statClin/taktAll;count;count2;count3;count4;count5;count6;count7;count8;=FloatToStr(neObsluzhen);// НЕ обслужен2=FloatToStr (netClient3);// відсутність в перукарні
count3=FloatToStr (masterYes2);// всі майстри заняты=FloatToStr(clientAll);=IntToStr(clientMiss);=IntToStr(clientApply);7=FloatToStr(statOcher3);// середнє число черзі=FloatToStr (statClin2);// Середнє число клієнтів
ShowMessage ( Моделювання завершено!raquo;);-gt;Text=count4;-gt;Text=count;-gt;Text=count2;-gt;Text=count3;-gt;Text=count5;-gt;Text=count6;-gt;Text=count7;-gt;Text=count8;
}
//---------------------------------------------------------------------------
