Т.С.П.П / Махинации с ТСПП / 2раб(тпспп) / V3(Карпенко) / V3Unit

#include <vcl.h>
#pragma hdrstop
#include "V3Unit.h"
#include "Math.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TV3Form *V3Form;
//---------------------------------------------------------------------------
__fastcall TV3Form::TV3Form(TComponent* Owner)
        : TForm(Owner)
{}
//---------------------------------------------------------------------------
void __fastcall TV3Form::Button1Click(TObject *Sender)
{
float h,a,b,c,x1,x2,d;
if((Edit1->Text).Length()==0)
  {ShowMessage("Ви не ввели значення 'h'!"); Edit1->SetFocus();}
else
{h=StrToFloat(Edit1->Text);
a=sqrt((fabs(sin(8*h))+17)/pow((1-sin(4*h)*cos(h*h+18)),2));
b=1-sqrt(3/(3+fabs(tan(a*h*h)-sin(a*h))));
c=a*h*h*sin(b*h)+b*h*h*cos(a*h);
d=(pow(b,2)-(4*a*c));
if(d<0)
  Memo1->Lines->Add("Рівняння не має розв'язків!!");
else
{
  if(d==0)
    {x1=-b/(2*a);
    if (x1-floor(x1)!=0)
      Memo1->Lines->Add("x1="+FloatToStrF(x1,ffFixed,8,3));
    else
      Memo1->Lines->Add("Корінь не дійсний!");}
  else
    {x1=(-b+sqrt(d))/(2*a);
    x2=(-b-sqrt(d))/(2*a);
    if((x1-floor(x1)!=0)&&(x2-floor(x2)!=0))
      {Memo1->Lines->Add("x1="+FloatToStrF(x1,ffFixed,8,3));
      Memo1->Lines->Add("x2="+FloatToStrF(x2,ffFixed,8,3));}
    else
      Memo1->Lines->Add("Корені не дійсні!");}
}
Button3->SetFocus(); Memo1->Show();
}
}
//---------------------------------------------------------------------------
void __fastcall TV3Form::Button2Click(TObject *Sender)
{
  V3Form->Close();
}
//---------------------------------------------------------------------------
void __fastcall TV3Form::Button3Click(TObject *Sender)
{
  Edit1->Clear(); Memo1->Clear(); Edit1->SetFocus();
}
//---------------------------------------------------------------------------
void __fastcall TV3Form::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 TV3Form::FormActivate(TObject *Sender)
{
  Memo1->Hide(); Edit1->SetFocus();
}