Miscellany

void TForm1::Atidaryti(){OpenDialog1->Title = "Pasirinkite Matricos failà";OpenDialog1->Filter = "Teksto failai (txt) | *.txt";if (OpenDialog1->Execute() && FileExists(OpenDialog1->FileName))DFailas1 = OpenDialog1->FileName.c_str();else DFailas1 = "";OpenDialog1->Title = "Pasirinkite Masyvo failà";OpenDialog1->Filter = "Teksto failai (txt) | *.txt";if (OpenDialog1->Execute() && FileExists(OpenDialog1->FileName))DFailas2 = OpenDialog1->FileName.c_str();else DFailas2 = "";}//--------------------------------------------------------------------void TForm1::SkaitytiDuom(const char f1vardas[], const char f2vardas[]) {ifstream fd1(f1vardas);fd1>>n;for (int i = 0; i < n; i++)for (int j = 0; j < n; j++)fd1>>X[i][j];fd1.close();ifstream fd2(f2vardas);fd2>>k;for (int i = 0; i < k; i++)fd2>>Y[i];fd2.close();}//-----------------------------------void TForm1::RastiDid(){ double u = Y[0];for (int i = 0; i < k; i++)if (Y[i] > u) u = Y[i];}//---------------------------------------int TForm1::Lyginti(int &g){  g = 0;for (int i = 0; i < n; i++)if (X[i][n-1-i] == u) { C[g] = i; g++; }return g;}//-----------------------void TForm1::Pasalinti(){for (int k = 0; k < g; k++) for (int i = C[g]; i < n-1; i++) {for (int j = 0; j < n; j++) { X[i][j] = X[i+1][j]; }} n--; }//-------------------void TForm1::Issaugoti() {for (int i = 0; i < n; i++)    for (int j = 0; j < n; j++)    StringGrid1->Cells[j+1][i+1] = FloatToStrF(X[i][j], ffFixed, 6, 2);}//---------------------------------------------------------------------------void __fastcall TForm1::Button1Click(TObject *Sender){Close();}//---------------------------------------------------------------------------void __fastcall TForm1::Button2Click(TObject *Sender){Atidaryti();SkaitytiDuom(DFailas1, DFailas2);RastiDid();Lyginti(g);Pasalinti();Issaugoti();}