Разработка сценариев и реакций на события согласно сценариям.
Нажатие на кнопку “Решить”.
При нажатии на кнопку “Решить” происходит:
а) проверка правильности исходных данных, и если данные не соответствуют типу (или не введен какой либо из коэффициентов), то выводится сообщение «Все коэффициенты системы должны быть числами», как показано на рисунке В.1;
Рисунок В.1
б) решение системы уравнений (после решения отбрасываются все ответы, где 
);
в) вывод ответа в зависимости от количества найденных в пункте б решений. Если найдено 2 решения, то выводятся 
, если найдено одно решение - 
, если решений нет, то выводится сообщение «Система уравнений не имеет решения !»
Текст сценария:
void __fastcall TMainForm::BtRasschetClick(TObject *Sender)
{
MResult->Clear();
double in_a = 0, in_b = 0, in_c = 0, in_d = 0;
try
{
in_a = StrToFloat(Eda->Text);
in_b = StrToFloat(Edb->Text);
in_c = StrToFloat(Edc->Text);
in_d = StrToFloat(Edd->Text);
}
catch (...)
{
ShowMessage ("Все коэффициенты системы уравнений должны быть числами !");
MResult->Lines->Add("Все коэффициенты системы уравнений должны быть числами !");
return;
}
long double resX1,resX2,resY1,resY2;
int reslt = solution_equation(in_a, in_b, in_c, in_d, resX1, resX2, resY1, resY2);
if (reslt == SQ_SUCCES_TWO_ROOT)
{
MResult->Lines->Add("Cистема имеет 2 решения:");
MResult->Lines->Add("x1 = " + FloatToStr(resX1) + "; y1 = "+ FloatToStr(resY1));
MResult->Lines->Add("x2 = " + FloatToStr(resX2) + "; y2 = "+ FloatToStr(resY2));
}
if (reslt == SQ_SUCCES_ALONE_ROOT)
{
MResult->Lines->Add("Cистема имеет 1 решение:");
MResult->Lines->Add("x = " + FloatToStr(resX1) + "; y = "+ FloatToStr(resY1));
}
if (reslt == SQ_ERROR_DIV_BY_ZERO) MResult->Lines->Add("Система уравнений не имеет решения из-за деления на 0!");
if (reslt == SQ_ERROR_NO_ROOT) MResult->Lines->Add("Система уравнений не имеет решения !"); }
Массовая обработка данных.
При нажатии первой кнопки “Выбрать” открывается форма для выбора файла с входными данными, как показано на рисунке В.2.
Рисунок В.2
Текст сценария:
void __fastcall TFormMas::SBInpClick(TObject *Sender)
{
if (OpenDialog1->Execute())
{
if(FileExists(OpenDialog1->FileName))
{
NameFileOpen = OpenDialog1->FileName;
}
else
ShowMessage("Такого файла не существует !");
}
}
При нажатии второй кнопки “выбрать” открывается форма для выбора файла с выходными данными, как показано на рисунке В.3.
Рисунок В.3
Текст сценария:
void __fastcall TFormMas::SBOutClick(TObject *Sender)
{
if (SaveDialog1->Execute())
{
NameFileSave = SaveDialog1->FileName;
}
}
При выборе кнопки решить происходит проверка входных данных, и если они не соответствуют заданному типу, то выводится сообщение « Указаны неправильные файлы данных !», как показано на рисунке В.4.
Рисунок В.4
Если не выбраны файл с исходными данными или файл для сохранения результатов, то выводится сообщение «Указаны не все файлы данных !», как показано на рисунке В.5.
Рисунок В.5
Текст сценария.
void __fastcall TFormMas::SBRasschetClick(TObject *Sender)
{
try
{
if ((NameFileSave != "")&&(NameFileOpen != "")) solution_with_files();
else ShowMessage("Выбраны не все файлы данных !");
}
catch(...)
{
ShowMessage("Указаны неправильные файлы данных !");
return;
}
}
Приложение Г