Диспетчер с абсолютным круговым приоритетом

        process *end = newproc;

        Form1->Memo2->Lines->Add("Ïåðåìåùåí â êîíåö ñïèñêà ïðîöåññ ¹"+IntToStr(end->id)+" ñ ïðèîðèòåòîì "+IntToStr(end->priority)+".");

        process *x = newproc;

        while (x->next != NULL)

                x = x->next;

        x->next = end;

        newproc = newproc->next;

        Form1->Memo2->Lines->Add("Íà÷àë ðàáîòó ïðîöåññ ¹"+IntToStr(newproc->id)+" ñ ïðèîðèòåòîì "+IntToStr(newproc->priority)+".");

        Form1->Label2->Caption = "Ïðîöåññ ¹" + IntToStr(newproc->id);

        end->next = NULL;

        output_starter();

        AddButton->Tag = 1;

        Timer1->Enabled = True;

}

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Timer3Timer(TObject *Sender)

{

Label3->Caption = IntToStr(w);

w+=1;

}

//---------------------------------------------------------------------------

10