Метод гаусса

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "CSPIN"
#pragma resource "*.dfm"
TForm1 *Form1;
int n,m;
float a[20][20];
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::CSpinEdit1Change(TObject *Sender)
{
StringGrid1->RowCount=CSpinEdit1->Value;
StringGrid2->RowCount=CSpinEdit1->Value;
StringGrid3->RowCount=CSpinEdit1->Value;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::CSpinEdit2Change(TObject *Sender)
{
StringGrid1->ColCount=CSpinEdit2->Value;
StringGrid2->ColCount=CSpinEdit2->Value;
StringGrid3->ColCount=1;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
int i,j;
n=CSpinEdit1->Value;
m=CSpinEdit2->Value;
for(i=0;n!=i;i++)
{
for(j=0;m!=j;j++)
{
a[i][j]=StrToFloat(StringGrid1->Cells[j][i]);
}
}
for(i=0;n!=i;i++)
{
for(j=0;m!=j;j++)
{
StringGrid2->Cells[j][i]=FloatToStr(a[i][j]);
}
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
int k,j,i,d,q;
for(i=0;n!=0;i++)
{
for(j=0;m!=0;j++)
{
a[i][j]=a[i][j]/a[i][i];
}
}
for(k=i;k!=n;k++)
{
for(j=m;j!=i;j--)
{
a[k][j]=a[k][j]-a[i][j]*a[k][i];
}
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
int i,j;
for(i=0;(n-1)!=i;i++)
{
for(j=0;(m-1)!=j;j++)
{
StringGrid2->Cells[i][j]=FloatToStr(a[i][j]);
}
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
float x[20];
int i,k;
for(i=n;i!=1;i--)
{
x[i]=a[i][m];
}
for(k=1;k!=1;k--)
{
a[k][m]=a[k][m]-a[k][i]*x[i];
}
for(i=0;i!=1;i++)
{
StringGrid3->Cells[0][i]=FloatToStr(x[i]);
}
}
//---------------------------------------------------------------------------