Решение транспортных задач венгерским методом

GridB->Left=30;

GridB->Top=405

;

GridB->Height=25;

GridB->Width=256;

GridB->ColCount=Cm;

GridB->DefaultColWidth=35;

GridB->DefaultRowHeight=24;

GridB->FixedCols=0;

GridB->FixedRows=0;

GridB->RowCount=1;

GridB->ScrollBars=ssNone;

for(int i=0;i<Cm;i++)

GridB->Cells[i][0]=FormatFloat("",P[i]/100.0);

GridF=new TStringGrid(this);

GridF->Parent=Sheet;

GridF->Left=286;

GridF->Top=34;

GridF->Height=181;

GridF->Width=16;

GridF->ColCount=1;

GridF->DefaultColWidth=12;

GridF->DefaultRowHeight=24;

GridF->FixedCols=0;

GridF->FixedRows=0;

GridF->RowCount=Cn;

GridF->ScrollBars=ssNone;

for(int i=0;i<Cn;i++)

if(F[i]==1)

GridF->Cells[0][i]="+";

TStringGrid *GridG=new TStringGrid(this);

GridG->Parent=Sheet;

GridG->Left=30;

GridG->Top=13;

GridG->Height=16;

GridG->Width=256;

GridG->ColCount=Cm;

GridG->DefaultColWidth=35;

GridG->DefaultRowHeight=12;

GridG->FixedCols=0;

GridG->FixedRows=0;

GridG->RowCount=1;

GridG->ScrollBars=ssNone;

for(int i=0;i<Cm;i++)

if(G[i]==1)

GridG->Cells[i][0]="+";

}

void TForm1::Predv()

{

Sheet=new TTabSheet(this);

Grid=new TStringGrid(this);

GrX=new TStringGrid(this);

LabelC=new TLabel(this);

LabelX=new TLabel(this);

Sheet->Parent=this;

Sheet->PageControl=PageControl;

Sheet->Caption="Предв. этап";

Grid->Parent=Sheet;

Grid->Left=30;

Grid->Top=39;

Grid->Height=181;

Grid->Width=256;

Grid->DefaultColWidth=35;

Grid->DefaultRowHeight=24;

Grid->FixedCols=0;

Grid->FixedRows=0;

Grid->ScrollBars=ssNone;

Grid->RowCount=Cn;

Grid->ColCount=Cm;

for(int i=0;i<Cn;i++)

{

for(int j=0;j<Cm;j++)

{

Grid->Cells[j][i]=FormatFloat("",CS[i][j]/100.0);

}

}

LabelC->Parent=Sheet;

LabelC->Left=3;

LabelC->Top=20;

LabelC->Caption="C'";

GrX->Parent=Sheet;

GrX->Left=30;

GrX->Top=239;

GrX->Height=181;

GrX->Width=256;

GrX->DefaultColWidth=35;

GrX->DefaultRowHeight=24;

GrX->FixedCols=0;

GrX->FixedRows=0;

GrX->ScrollBars=ssNone;

GrX->RowCount=Cn;

GrX->ColCount=Cm;

for(int i=0;i<Cn;i++)

for(int j=0;j<Cm;j++)

GrX->Cells[j][i]=FormatFloat("",C[i][j]/100.0);

LabelX->Parent=Sheet;

LabelX->Left=3;

LabelX->Top=223;

LabelX->Caption="C0";

}

void TForm1::Ecviv()

{

Sheet=new TTabSheet(this);

Grid=new TStringGrid(this);

LabelC=new TLabel(this);

Sheet->Parent=this;

Sheet->PageControl=PageControl;

NKor++;

Sheet->Caption="Экв. пр. №"+IntToStr(NIter+1)+"."+IntToStr(NKor);

Grid->Parent=Sheet;

Grid->Left=30;

Grid->Top=39;

Grid->Height=181;

Grid->Width=256;

Grid->DefaultColWidth=35;

Grid->DefaultRowHeight=24;

Grid->FixedCols=0;

Grid->FixedRows=0;

Grid->ScrollBars=ssNone;

Grid->RowCount=Cn;

Grid->ColCount=Cm;

for(int i=0;i<Cn;i++)

{

for(int j=0;j<Cm;j++)

{

switch (N[i][j])

{

case 4:

Grid->Cells[j][i]="0*";

break;

case 3:

Grid->Cells[j][i]="0'";

break;

case 2:

Grid->Cells[j][i]=L'\u022a';

break;

case 1:

Grid->Cells[j][i]=L'\u0230';

break;

case 0:

Grid->Cells[j][i]="0";

case -1:

Grid->Cells[j][i]=FormatFloat("",C[i][j]/100.0);

break;

}

}

}

LabelC->Parent=Sheet;

LabelC->Left=3;

LabelC->Top=20;

LabelC->Caption="C"+IntToStr(NKor);

}

void __fastcall TForm1::CepochDrawCell(TObject *Sender, int ACol, int ARow, TRect &Rect,

TGridDrawState State)

{

TStringGrid* c=(TStringGrid*) Sender;

if (c->Name!="StoimPer")

{

UnicodeString Index;

Index=PageControl->ActivePage->Name;

Index.Delete(1,1);

nomer=Index.ToInt();

Graphics::TBitmap *pict = new Graphics::TBitmap();

switch (Cep[nomer][ARow][ACol])

{

case 12:

pict->LoadFromResourceID((unsigned int)HInstance,104);

break;

case 9:

pict->LoadFromResourceID((unsigned int)HInstance,102);

break;

case 7:

pict->LoadFromResourceID((unsigned int)HInstance,106);

break;

case 6:

pict->LoadFromResourceID((unsigned int)HInstance,105);

break;

case 5:

pict->LoadFromResourceID((unsigned int)HInstance,108);

break;

case 4:

pict->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;

}

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

//!!

void __fastcall TForm1::Timer1Timer(TObject *Sender)

{

if (StoimPer->ColCount == 8)

Button1->Enabled = false;

else Button1->Enabled = true;

if (StoimPer->ColCount == 4)

Button2->Enabled = false;

else Button2->Enabled = true;

if (StoimPer->RowCount == 8)

Button3->Enabled = false;

else Button3->Enabled = true;

if (StoimPer->RowCount == 4)

Button4->Enabled = false;

else Button4->Enabled = true;

}

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

void __fastcall TForm1::Button1Click(TObject *Sender)

{

StoimPer->ColCount++;

Potr->ColCount++;

Ogran->ColCount++;

}

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

void __fastcall TForm1::Button2Click(TObject *Sender)

{

StoimPer->ColCount--;

Potr->ColCount--;

Ogran->ColCount--;

}

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

void __fastcall TForm1::Button3Click(TObject *Sender)

{

StoimPer->RowCount++;

Zapas->RowCount++;

Ogran->RowCount++;

}

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

void __fastcall TForm1::Button4Click(TObject *Sender)

{

StoimPer->RowCount--;

Zapas->RowCount--;

Ogran->RowCount--;

}

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

void __fastcall TForm1::NAboutClick(TObject *Sender)

{

MessageDlg(L"Костенко И-23 Венгерский метод.", mtConfirmation,

TMsgDlgButtons() << mbOK, 0);

}

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