Курсовая работа: Итерационные методы решения систем линейных алгебраических уравнений

ButtonZeydel->Visible=false;

ButtonRelax->Visible=false;

}

// –

void __fastcall TForm1: ButtonZeydelClick (TObject *Sender)

{

Memo1->Lines->Clear();

k=0;

e=StrToFloat (Edit2->Text);

for (int i=0; i<n; i++)

{

for (int j=0; j<n+1; j++)

{

TryStrToFloat (StringGrid1->Cells[j] [i], A[i] [j]);

}

}

for (int i=0; i<n; i++)

{

for (int j=0; j<n+1; j++)

{

if (A[i] [j]==NULL)

{

ShowMessage (« Ошибка ! Есть пустые ячейки!»);

fl1=true;

i=n;

break;

}

}

}