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

}

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

void __fastcall TForm1::Button2Click(TObject *Sender)

{

int i, j, n, m;

double A0[100][100];

n = StrToInt(Edit4->Text);

m = StrToInt(Edit5->Text);

//очищаем СтрингГрид1:

for (register int i = 0; i < StringGrid1->RowCount; i++){

StringGrid1->Rows[i]->Clear();

}

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

StringGrid1->Cells[0][i+1]="A"+String(i+1);

}

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

StringGrid1->Cells[i+1][0]="B"+String(i+1);

}

}

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

void __fastcall TForm1::SaveClick(TObject *Sender)

{

int n,m;

n = StrToInt(Edit4->Text);

m = StrToInt(Edit5->Text);

// сохранение в файл

SaveTextFileDialog1->Execute();

SaveTextFileDialog1->FileName;

ofstream myfile(SaveTextFileDialog1->FileName.t_str());