Написать комментарии к коду

void __fastcall TForm1::Button1Click(TObject *Sender)
{
int x,Mass[12],deb,fmax,lmax,inmax,lx,max;
 
for (x=0;x!=12;x++)
 Mass[x]=StrToInt(StringGrid1->Cells[x][1]);
  
Edit1->Text=" Нулевые элементы в ячейке(ках) - ";
max=Mass[0];
 
for (x=0;x<=11;x++) if (Mass[x]>max) max=Mass[x];
 
for (x=0;x<=11;x++) if (Mass[x]==max)
                    { fmax=x; lmax=x; break; }
 
for (x=0;x<=11;x++) if (Mass[x]==max) lmax=x;
 
if (fmax==lmax) Edit1->Text="Расчет невозможен";
 else
 {
 for (fmax;fmax<=lmax;fmax++) if (Mass[fmax]==0)
 Edit1->Text=Edit1->Text + "("+ IntToStr(fmax+1) + ") ";
 }
}
 
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
int x;
 
for (x=0;x!=12;x++)
  {
  StringGrid1->Cells[x][0]=IntToStr(x+1);
  StringGrid1->Cells[x][1]=IntToStr(3);
  }
 
StringGrid1->Cells[3][1]=IntToStr(0);
StringGrid1->Cells[10][1]=IntToStr(0);
StringGrid1->Cells[2][1]=IntToStr(9);
StringGrid1->Cells[7][1]=IntToStr(8);
StringGrid1->Cells[11][1]=IntToStr(9);
 
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
float A[3][3],B[3][3],C[3][3];
int x,y;
for (x=0;x<=2;x++)
for (y=0;y<=2;y++)
    {
    A[y][x]=StrToFloat(StringGrid1->Cells[y][x]);
    B[x][y]=StrToFloat(StringGrid2->Cells[x][y]);
    C[y][x]= A[y][x]*B[x][y]-A[y][x];
    StringGrid3->Cells[y][x]=FloatToStr(C[y][x]);
    }
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
float C[3][3];
int x,y;
for (x=0;x<=2;x++)
for (y=0;y<=2;y++)
    {
    C[y][x]= 0;
    StringGrid3->Cells[y][x]="";
    }
}