case 0: {
X51->Caption="X"+IntToStr(tmpX);
switch (tmpX) {
case 1: X11->Caption="X5"; break;
case 2: X21->Caption="X5"; break;
case 3: X31->Caption="X5"; break;
case 4: X41->Caption="X5"; break;
}
}; break;
case 1: {
X61->Caption="X"+IntToStr(tmpX);
switch (tmpX) {
case 1: X11->Caption="X6"; break;
case 2: X21->Caption="X6"; break;
case 3: X31->Caption="X6"; break;
case 4: X41->Caption="X6"; break;
}
} break;
}
Mat2[tmpX][2]=Mat2[tmpX][2]*(-1);
//вывод получившегося решения
for (tmpI=0; tmpI<=4; tmpI++)
for (tmpJ=0; tmpJ<=2; tmpJ++)
if ((tmpI!=tmpX)&&(tmpJ!=tmpY))
{
Mat2[tmpI][tmpJ]=Mat1[tmpI][tmpJ]-(Mat1[tmpX][tmpJ]*Mat1[tmpI][tmpY])/tmp;
}
sMemo1->Lines->Add("Оптимальное решение:");
sMemo1->Lines->Add(X51->Caption+"="+FloatToStr(Mat2[0][0])+" "+X61->Caption+"="+FloatToStr(Mat2[0][1]));
sMemo1->Lines->Add("f(x)="+FloatToStr(Mat2[0][2]));
Edit001->Text=FloatToStr(Mat2[0][0]);
Edit011->Text=FloatToStr(Mat2[0][1]);
Edit021->Text=FloatToStr(Mat2[0][2]);
Edit101->Text=FloatToStr(Mat2[1][0]);
Edit111->Text=FloatToStr(Mat2[1][1]);
Edit121->Text=FloatToStr(Mat2[1][2]);
Edit201->Text=FloatToStr(Mat2[2][0]);
Edit211->Text=FloatToStr(Mat2[2][1]);
Edit221->Text=FloatToStr(Mat2[2][2]);
Edit301->Text=FloatToStr(Mat2[3][0]);
Edit311->Text=FloatToStr(Mat2[3][1]);
Edit321->Text=FloatToStr(Mat2[3][2]);
Edit401->Text=FloatToStr(Mat2[4][0]);
Edit411->Text=FloatToStr(Mat2[4][1]);
Edit421->Text=FloatToStr(Mat2[4][2]);
sMemo1->Lines->Add("*********************************");
sMemo1->Lines->Add("Прибыль по первому сорту бензина: "+FloatToStr(Price1));
sMemo1->Lines->Add("Прибыль по второму сорту бензина: "+FloatToStr(Mat2[0][2]));
if (Price1<Mat2[0][2]) {
sMemo1->Lines->Add("Второй сорт бензина выгоднее на "+FloatToStr(Mat2[0][2]-Price1));
}
if (Price1>Mat2[0][2]) {
sMemo1->Lines->Add("Первый сорт бензина выгоднее на "+FloatToStr(Price1-Mat2[0][2]));
}
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N4Click(TObject *Sender)
{
ShowMessage("Симплекс-метод для решения задачи на смеси!");
}