Контрольная работа: Решение матричных игр

//поиск максимального значения в столбцах :

if (A0[i][j] >= MaxCol[j]){

MaxCol[j] = A0[i][j];

}

}

//вывод максимумов столбцов в СтрингГрид3 :

StringGrid3->Cells[j+1][0] = MaxCol[j];

}

//найдём максимин

MaxMin = MinRow[0];

for (i = 0; i < n; i++) {

if (MinRow[i] >= MaxMin ){MaxMin = MinRow[i];}

}

Edit2->Text=MaxMin;

//найдём минимакс

MinMax = MaxCol[0];

for (i = 0; i < m; i++) {

if (MaxCol[i] <= MinMax ){MinMax = MaxCol[i];}

}

Edit3->Text=MinMax;

if (MinMax == MaxMin) {

ShowMessage("Игра решена в чистых стратегиях");

Edit1->Text = MinMax;

} else {ShowMessage("Игра не решается в чистых стратегиях, попробуете решить её итерационным методом");}

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

}

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

void __fastcall TForm1::Button1Click(TObject *Sender)

{

К-во Просмотров: 560
Бесплатно скачать Контрольная работа: Решение матричных игр