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

r = r1 - r2;

img = img1 - img2;

}

//---------------------------------------------------------------------------

void __fastcall TfrmComplex::Mult(double r1, double img1, double r2, double img2, double &r, double &img)

{

r = r1 * r2 - img1 * img2;

img = r1 * img2 + img1 * r2;

}

//---------------------------------------------------------------------------

void __fastcall TfrmComplex::Div(double r1, double img1, double r2, double img2, double &r, double &img)

{

if((r2 * r2 + img2 * img2) == 0)

{

Application->MessageBoxA(L"При выполнении операции деления \nвозникла ошибка: деление на ноль. \nПроверьте числа.",

L"Ошибка", MB_OK + MB_ICONERROR);

return;

}

r = (r1 * r2 + img1 * img2) / (r2 * r2 + img2 * img2);

img = (r2 * img1 - r1 * img2) / (r2 * r2 + img2 * img2);

}

//---------------------------------------------------------------------------

__fastcall TfrmComplex::TfrmComplex(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

void __fastcall TfrmComplex::btnCalcClick(TObject *Sender)

{