Т.С.П.П / Махинации с ТСПП / Махинации с ТСПП / 2раб(тпспп) / К. В / main / UKr3

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include <math.h>
#include "UKr3.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm3 *Form3;
//---------------------------------------------------------------------------
__fastcall TForm3::TForm3(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button1Click(TObject *Sender)
{
Button2->Enabled=true;
float a,b,c;
switch(RadioGroup1->ItemIndex){
case 0:Memo1->Lines->Add("При а=0,b=0,c=0 рівняння ax2+bx+c=0 не має коренів");break;
case 1:Memo1->Lines->Add("Якщо а=0,b=0,то рівняння ax2+bx+c=0 приймає вигляд c=0 і тому не має розв'язків");break;
case 2:Memo1->Clear();
if((Edit2->Text).Length()==0 ||(Edit3->Text).Length()==0 )
ShowMessage("Ви ввели не всі значення!Заповніть будь ласка поля"); else{
b=StrToFloat(Edit2->Text);
c=StrToFloat(Edit3->Text);float x;
x=-c/b;
Memo1->Lines->Add("Якщо а=0,то ax2+bx+c=0 перетворюється у лінійне рівняння bx+c=0.Це рівняння має один корінь x і вирішується за формулою x=-c/b.");
Memo1->Lines->Add("x="+FloatToStrF(x,ffFixed,7,2));}
break;
case 3:if((Edit1->Text).Length()==0 ||(Edit2->Text).Length()==0 ||(Edit3->Text).Length()==0 )
ShowMessage("Ви ввели не всі значення!Заповніть будь ласка поля."); else{
Memo1->Clear();Image5->Hide();Image3->Hide();Image4->Hide();
Label5->Hide();Label6->Hide();
a=StrToFloat(Edit1->Text);
b=StrToFloat(Edit2->Text);
c=StrToFloat(Edit3->Text);
float x1,x2,D,D1;
int k;
D=b*b-4*a*c;
if(D<0) {k++;Memo1->Lines->Add("Дискримінант D="+FloatToStrF(D,ffFixed,7,2)+" (D<0),що не задовільняє умову задачі.Замініть свої данні");
Edit1->SetFocus();} else {
if(D==0){k++;
Memo1->Lines->Add("Дискримінант D=0,тому дане рівняння має 1 розв'язок 'x',який вираховується за формулою на екрані");
float c;
c=-(b)/(2*a);
Memo1->Lines->Add("х="+FloatToStrF(c,ffFixed,7,2));
Label5->Hide();Label6->Hide();Image3->Hide();Image4->Hide();Image5->Show();
}else{
 Label5->Show();Label6->Show();Image3->Show();Image4->Show();
 D=b*b-4*a*c;
 D1=sqrt(D);
x1=(-(b)+D1)/(2*a);
x2=(-b-D1)/(2*a);
 Memo1->Lines->Add("Дискримінант D="+FloatToStrF(D,ffFixed,7,2)+"(D>0), тому дане рівняння має 2 корені : х1 та х2. Корені х1 і х2 рахуємо за формулою №1 і №2 відповідно."+"\r\nx1="+FloatToStrF(x1,ffFixed,7,2)+"\r\nx2="+FloatToStrF(x2,ffFixed,7,2));}
}break;
case 4:
Memo1->Lines->Add("Якщо D<0,то дане рівняння не має дійсних коренів.");break;
} }Button3->Enabled=false;Button2->Enabled=true;Button4->Enabled=true;}
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------
void __fastcall TForm3::Button2Click(TObject *Sender)
{
Memo1->Clear();Edit1->Clear();Edit2->Clear();Edit3->Clear();
Label5->Hide();Label6->Hide();Image3->Hide();Image4->Hide();Image5->Hide();
}
//---------------------------------------------------------------------------
void __fastcall TForm3::FormCreate(TObject *Sender)
{
Edit1->Hide();Edit2->Hide();Edit3->Hide();Label1->Hide();Label2->Hide();
Label3->Hide();Label4->Hide();Label5->Hide();Label6->Hide();
Image2->Hide();Image3->Hide();Image4->Hide();Image5->Hide();
Button1->Enabled=false;Button2->Enabled=false;Button4->Enabled=false;
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button3Click(TObject *Sender)
{
Memo1->Clear();
switch(RadioGroup1->ItemIndex){
case 0:Memo1->Lines->Add("Ви обрали перший варіант.");Edit1->Hide();Edit2->Hide();
Edit3->Hide();Label1->Hide();Label2->Hide();Label3->Hide();Label4->Hide();
Label5->Hide();Label6->Hide();Image2->Hide();Image3->Hide();Image4->Hide();
break;
case 1:Memo1->Lines->Add("Ви обрали другий варіант.");
Edit1->Hide();Edit2->Hide();Edit3->Hide();Label1->Hide();Label2->Hide();
Label3->Hide();Label4->Hide();Label5->Hide();Label6->Hide();
Image2->Hide();Image3->Hide();Image4->Hide();
break;
case 2:Memo1->Lines->Add("Ви обрали третій варіант.");
Edit2->Show();Edit3->Show();Label2->Show();Label3->Show();Edit1->Hide();
Label1->Hide();Label4->Hide();Label5->Hide();Label6->Hide();Image2->Hide();Image3->Hide();
break;
case 3:Memo1->Lines->Add("Ви обрали четвертий варіант.");
Edit1->Show();Edit2->Show();Edit3->Show();Label1->Show();Label2->Show();
Label3->Show();Label4->Show();Label5->Hide();Label6->Hide();
Image2->Show();Image3->Hide();Image4->Hide();
break;
case 4:Memo1->Lines->Add("Ви обрали п'ятий варіант.");
Edit1->Hide();Edit2->Hide();Edit3->Hide();Label1->Hide();Label2->Hide();
Label3->Hide();Label4->Hide();Label5->Hide();Label6->Hide();
Image2->Hide();Image3->Hide();Image4->Hide();
break;
default:ShowMessage("Ви не обрали жодного варіанту");break;
}
Button1->Enabled=true;Button2->Enabled=false;Button4->Enabled=false;RadioGroup1->Hide();}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button4Click(TObject *Sender)
{
RadioGroup1->ItemIndex=-1;RadioGroup1->Show();Edit1->Clear();Edit2->Clear();Edit3->Clear();
Edit1->Hide();Edit2->Hide();Edit3->Hide();Label1->Hide();Label2->Hide();Label3->Hide();
Label4->Hide();Label5->Hide();Label6->Hide();Image2->Hide();Image3->Hide();Image4->Hide();
Image5->Hide();Memo1->Clear();
Button1->Enabled=false;Button2->Enabled=false;Button4->Enabled=false;Button3->Enabled=true;
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Edit1KeyPress(TObject *Sender, char &Key)
{
if (((Key>='0') && (Key<='9')) || (Key==VK_BACK) || (Key==',') || (Key=='-'))
  return;
if (Key==VK_RETURN)
  Button1->SetFocus();
Key=0;
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Edit2KeyPress(TObject *Sender, char &Key)
{
if (((Key>='0') && (Key<='9')) || (Key==VK_BACK) || (Key==',') || (Key=='-'))
  return;
if (Key==VK_RETURN)
  Button1->SetFocus();
Key=0;
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Edit3KeyPress(TObject *Sender, char &Key)
{
if (((Key>='0') && (Key<='9')) || (Key==VK_BACK) || (Key==',') || (Key=='-'))
  return;
if (Key==VK_RETURN)
  Button1->SetFocus();
Key=0;
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Memo1KeyPress(TObject *Sender, char &Key)
{
Key=0;        
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Memo2KeyPress(TObject *Sender, char &Key)
{
Key=0;
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button5Click(TObject *Sender)
{
Form3->Close();
}
//---------------------------------------------------------------------------