Something

//---------------------------------------------------------------------------__fastcall TForm1::TForm1(TComponent* Owner)        : TForm(Owner){ Button3->Visible = false; ofstream fd(CRez); fd.close(); n = 0; m = 0; x = 0; y = 0;}//---------------------------------------------------------------------------void __fastcall TForm1::Button1Click(TObject *Sender){MatricosA_ivedimas();MatricosB_ivedimas();Matricu_daugyba();Vaizduojam_duomenis();Memo1->Lines->LoadFromFile(CRez);Button3->Visible = true;}//---------------------------------------------------------------------------void __fastcall TForm1::FormActivate(TObject *Sender){Memo1->Clear();}//---------------------------------------------------------------------------void TForm1::MatricosA_ivedimas(){int i, j;if (OpenDialog1->Execute())  duom1 = OpenDialog1->FileName.c_str();ifstream fd;if (fd) { fd.open(duom1); fd >> n >> m;  for(i = 0; i < n; i++)   for(j = 0; j < m; j++)      fd >> A[i][j];  fd.close();  Label1->Caption = "Matricos sekmingai nuskaitytos.";      }else  Label1->Caption = "Klaida, failas neikeltas";fd.close();}//---------------------------------------void TForm1::MatricosB_ivedimas(){if (OpenDialog2->Execute())  duom2 = OpenDialog2->FileName.c_str();ifstream fd; int u, h;if(fd){  fd.open(duom2);  fd >> x >> y;  for(u = 0; u < x; u++)    for(h = 0; h < y; h++)       fd >> B[u][h];  fd.close();  Label1->Caption = + " Matricos sekmingai nuskaitytos";          }else  Label1->Caption = "Klaida, failas neikeltas";fd.close();}//----------------------------------------void TForm1::Vaizduojam_duomenis(){ /*Rodoma pirmoji matrica*/ofstream fr;fr.open(CRez);fr << " ~~^^Matrica A^^~~" << endl;fr << "    ";for(int i = 0; i < m; i++)  fr << setw(3) << i << "    ";fr << endl;fr << "----";for(int i = 0; i < m; i++)  fr << "------";fr << endl;for(int i = 0; i < n; i++){  fr << i << " | ";  for(int j = 0; j < m; j++)    fr << setw(3) << A[i][j] << "    ";  fr << endl;  }//*Rodoma antroji matrica *//fr << " " << endl;fr << " ~~^^Matrica B^^~~" << endl;fr << "    ";for(int i = 0; i < y; i++)  fr << setw(3) << i << "    ";fr << endl;fr << "----";for(int i = 0; i < y; i++)  fr << "------";fr << endl;for(int i = 0; i < x; i++){  fr << i << " | ";  for(int j = 0; j < y; j++)    fr << setw(3) << B[i][j] << "    ";  fr << endl;  }/*Matricos sudaugintos */fr << " " << endl;fr << " ~~^^Matricu sandauga^^~~" << endl;fr << "    ";for(int i = 0; i < y; i++)  fr << setw(3) << i << "    ";fr << endl;fr << "----";for(int i = 0; i < y; i++)  fr << "------";fr << endl;for(int i = 0; i < n; i++){  fr << i << " | ";  for(int j = 0; j < y; j++)    fr << setw(3) << C[i][j] << "    ";  fr << endl;  }fr.close();}//------------------------------------------void __fastcall TForm1::Button2Click(TObject *Sender){if(SaveDialog1->Execute())SaveDialog1->FileName=rez;}//---------------------------------------------------------------------------void TForm1::Matricu_daugyba(){ for(int i = 0; i < n; i++)   for(int j = 0; j < y; j++)    C[i][j] = A[i][j] * B[j][i] + A[i+1][j+1] * B[j+1][i+1];}//----------------------------------double TForm1::Daugyba_is_sk(){double sk;if(Edit1->Text.Length() == 0)  ShowMessage("iveskite skaiciu");else { sk = StrToInt(Edit1->Text); for(int i = 0; i < n; i++)   for(int j =0; j < y; j++)     C[i][j] = C[i][j] * sk; Rez_sk();          }          return sk;}void __fastcall TForm1::Button3Click(TObject *Sender){Daugyba_is_sk();}//---------------------------------------------------------------------------void TForm1::Rez_sk(){ofstream fr;fr.open(CRez);fr << " ~~^^Matrica A^^~~" << endl;fr << "    ";for(int i = 0; i < y; i++)  fr << setw(3) << i << "    ";fr << endl;fr << "----";for(int i = 0; i < y; i++)  fr << "------";fr << endl;for(int i = 0; i < n; i++){  fr << i << " | ";  for(int j = 0; j < y; j++)    fr << setw(3) << C[i][j] << "    ";  fr << endl;  }  fr.close();Memo1->Lines->LoadFromFile(CRez);}