#include <vcl.h>
#pragma hdrstop
#include "inga_prog_5.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormActivate(TObject *Sender)
{
Memo1->Clear();
n = m =  0 ;
Get();
Memo1->Lines->Add(";;;;;;;;;; " + AnsiString(CDuom));
Show1();
ofstream fr(CRez);
fr << ";;;;;;;;;;;;" << endl;
for (int i =  0 ; i < n; i++)
{
for (int j =  0 ; j < m; j++)
fr << setw( 4 ) << A[i][j] << " ";
fr << endl;
}
fr << endl;
fr.close();
Memo1->Lines->Add(";;;;;;;;;;;;;;; " + AnsiString(CRez)); }
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 ifstream fd(CDuom);    fd >> n >> m;
         int i,j;
   for (i =  0 ; i < n; i++)
    for (j =  0 ; j < m; j++)      //  КАК ЗДЕСБ ПРОВЕРИТЬ-ЕСЛИ 
                                    //     В ТЕКСТ.ФАИЛЕ БУДЕТ    ( 1  )                                                                                                         
                              //  НАПИСАТЬ В StringGrid2( В Cells-"NO");   
                              //     И СЧИТАТЬ  ДАЛЬШЕ
                                
      {
      fd >> A[i][j];
      B[i][j]=(A[i][j]/(A[i][j]- 1 . 0 ));
      }
Label2->Visible = True;
StringGrid2->Visible = True;
Show2();
Memo1->Lines->Add(";;;;;;;;;;;");
Button1->Enabled = false;
Button2->Enabled = true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
 ofstream fr(CRez, ios::app);
fr << ";;;;;;;;" << endl;
for (int i =  0 ; i < n; i++)
{
for (int j =  0 ; j < m; j++)
fr << setw( 4 ) << B[i][j] << " ";
fr << endl;
}
fr << endl;
fr.close();
Button2->Enabled = false;
Memo1->Lines->Add(";;;;;;;;;;;;; " + AnsiString(CRez));
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void TForm1::GET()
{
int i, j;
ifstream fd(CDuom);
if (!fd.fail())
{
fd >> n >> m;
for (i =  0 ; i < n; i++)
for (j =  0 ; j < m; j++)
fd >> A[i][j];
fd.close();
}
else
{
ShowMessage(";;;;;;;; " + String(CDuom) + " ;;;;;;;;;;");
Close();
}
}
//---------------------------------
void TForm1::Show1()
{
  int i, j;
  StringGrid1->ColCount = m+ 1 ;
  StringGrid1->RowCount = n+ 1 ;
  for (j =  0 ; j < m; j++)
  StringGrid1->Cells[j+ 1 ][ 0 ] = ";;;. " + IntToStr(j);
  for (i =  0 ; i < n; i++) //
   StringGrid1->Cells[ 0 ][i+ 1 ] = ";;;. " + IntToStr(i);
   for (i =  0 ; i < n; i++)
 for (j =  0 ; j < m; j++)
  StringGrid1->Cells[j+ 1 ][i+ 1 ] = IntToStr(A[i][j]);   }
//------------------------------
  void TForm1::Show2()
 {
    int i, j;
    StringGrid2->ColCount = m+ 1 ;
    StringGrid2->RowCount = n+ 1 ;
   for (j =  0 ; j < m; j++) //
  StringGrid2->Cells[j+ 1 ][ 0 ] = ";;;;;;;. " + IntToStr(j);
  for (i =  0 ; i < n; i++)
   StringGrid2->Cells[ 0 ][i+ 1 ] = ";;;;;. " + IntToStr(i);
  for (i =  0 ; i < n; i++)
  for (j =  0 ; j < m; j++)
  StringGrid2->Cells[j+ 1 ][i+ 1 ] =FloatToStrF(B[i][j],ffFixed, 6 , 2 );
}