Добавил:
masterdos
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Т.С.П.П / Махинации с ТСПП / Махинации с ТСПП / 2раб(тпспп) / V3(Карпенко) / V3Unit
.cpp#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();
}
Соседние файлы в папке V3(Карпенко)