"Спящий Парикмахер"

// ãëîáàëüíûå ïåðåìåííûå
int wait = 5; // ðàäíîìíîå âðåìåíÿ íà ñòðèæêó 1 ïîñåòèòåëÿ â ñåêóíäàõ
int kresla = 4; // êîëè÷åñòâî êðåñåë
bool strizhka = false;
int w = 0;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
    // íàñòðîéêè ïðè çàïóñêå
    Timer1->Enabled = false;
    Label2->Caption = "Óøåë äîìîé";
    Timer1->Interval = 1000;
    Timer1->Enabled = false;
}
//---------------------------------------------------------------------------
void l(AnsiString text) // ëîãèðîâàíèå
{
    Form1->Memo1->Lines->Add("[" + Time() + " " + Date() + "]==> " + text);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
    if(rand()%10 >= 7) // ïðèõîäèò ïîñåòèòåëü, èëè íå ïðèõîäèò =)
    {
        l("Â ïàðèêìàõåðñêóþ çàøåë ïîñåòèòåëü");
        if(Label5->Caption.ToInt() < kresla) // åñòü ñâîáîäíîå ìåñòî
        {
            if(rand()%10 >= 5) // ïîñåòèòåëü âûáåðàåò æäàòü åìó èëè óéòè
            {
                l("Ïîñåòèòåëü ðåøèë âñòàòü â î÷åðåäü");
                Label5->Caption = Label5->Caption.ToInt() + 1;
            }
            else
            {
                l("Ïîñåòèòåëü ðåøèë íå ñòîÿòü â î÷åðåäè");
            }
        }
        else // âñå ìåñòà çàíÿòû
        {
            l("Ïîñåòåòåëþ íåõâàòèëî ìåñòî, è îí óøåë íåäîâîëüíûé");
        }
    }
    // äåéñòâèÿ ïàðèêìàõåðà
    if(Label5->Caption.ToInt() == 0) // ïîñåòèòåëåé íåò
    {
        Label2->Caption = "Ñïèò";
    }
    else  // ïîñåòèòåëè åñòü
    {
        Label2->Caption = "Ðàáîòàåò";
        if(strizhka == false) // íà÷èíàåì ñòðèæêó
        {
            strizhka = true;
            w = (rand()%wait) + 1; // ðàíäîìíîå âðåìÿ íà ñòðèæêó 1ãî ïîñåòèòåëÿ
            l("Ïàðèêìàõåð íà÷èíàåò ñòðèæêó");
        }
        else
        {
            if((w--) == 0)
            {
                strizhka = false;
                Label5->Caption = Label5->Caption - 1;
                l("Ïàðèêìàõåð çàêîí÷èë ñòðèæêó! Êëèåíò ðàñïëàòèëñÿ è óøåë");
            }
        }
    }
 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    if(Timer1->Enabled)
    {
        Timer1->Enabled = false;
        Label2->Caption = "Óøåë äîìîé";
        Label5->Caption = 0;
        Button1->Caption = "Îòêðûòü ïàðèêìàõåðñêóþ";
    }
    else
    {
        Button1->Caption = "Çàêðûòü ïàðèêìàõåðñêóþ";
        Label5->Caption = 0;
        Timer1->Enabled = true;
    }
}
//---------------------------------------------------------------------------