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

if (X[i]!=NULL)

{

Memo1->Lines->Add («x»+IntToStr (i+1)+» = «+FloatToStr (X[i]));

}

else

{

Memo1->Lines->Add (« Нет корней !»);

break;

}

}

Memo1->Lines->Add(«»);

Memo1->Lines->Add (« Количество итераций = «+FloatToStr(k));

}

}

// –

void __fastcall TForm1: ButtonExitClick (TObject *Sender)

{

Close();

}

// –

void __fastcall TForm1: RadioButton2Click (TObject *Sender)

{

ButtonYakobi->Visible=false;

ButtonZeydel->Visible=true;

ButtonRelax->Visible=false;

}

// –

void __fastcall TForm1: RadioButton1Click (TObject *Sender)

{