Решение транспортных задач венгерским методом
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
t;LoadFromResourceID((unsigned int)HInstance,109);
break;
case 3:
pict->LoadFromResourceID((unsigned int)HInstance,101);
break;
case 2:
pict->LoadFromResourceID((unsigned int)HInstance,107);
break;
case 1:
pict->LoadFromResourceID((unsigned int)HInstance,103);
break;
}
pict->Transparent = true;
c->Canvas->Draw(Rect.left,Rect.Top,pict);
pict->Free();
}
nomer=0;
}
//---------------------------------------------------------------------------
//!!__fastcall TForm1::Timer1Timer(TObject *Sender)
{(StoimPer->ColCount == 8)
Button1->Enabled = false;Button1->Enabled = true;(StoimPer->ColCount == 4)
Button2->Enabled = false;Button2->Enabled = true;(StoimPer->RowCount == 8)
Button3->Enabled = false;Button3->Enabled = true;(StoimPer->RowCount == 4)
Button4->Enabled = false;Button4->Enabled = true;
}
//---------------------------------------------------------------------------__fastcall TForm1::Button1Click(TObject *Sender)
{>ColCount++;>ColCount++;>ColCount++;
}
//---------------------------------------------------------------------------__fastcall TForm1::Button2Click(TObject *Sender)
{>ColCount--;>ColCount--;>ColCount--;
}
//---------------------------------------------------------------------------__fastcall TForm1::Button3Click(TObject *Sender)
{>RowCount++;>RowCount++;>RowCount++;
}
//---------------------------------------------------------------------------__fastcall TForm1::Button4Click(TObject *Sender)
{>RowCount--;>RowCount--;>RowCount--;
}
//---------------------------------------------------------------------------__fastcall TForm1::NAboutClick(TObject *Sender)
{(L"Костенко И-23 Венгерский метод.", mtConfirmation,
TMsgDlgButtons() << mbOK, 0);
}
//---------------------------------------------------------------------------