Добавил:
masterdos
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Т.С.П.П / Махинации с ТСПП / Махинации с ТСПП / 2раб(тпспп) / V4(Крикунов) / №2 / 2 / Unit1
.cpp//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "math.h"
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Memo1->Clear();
Memo1->Lines->Add("Значение функции: ");
RadioGroup1->ItemIndex=0;
Button1->Enabled=false;
Button2->Enabled=false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Memo1->Clear();
Memo1->Lines->Add("Значение функции: ");
Edit1->Clear();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
double F, x;
x=StrToFloat(Edit1->Text);
switch(RadioGroup1->ItemIndex)
{
case 0:{ if (x<3.2)
F=x*x*x*x+9;
else F=54*x*x*x*x/(-5*x*x*+7);
Memo1->Lines->Add("Формула1= "+FloatToStrF(F,ffFixed,3,4)); } break;
case 1: { if (x>3)
F=1.2*x*x-3*x-9;
else F=12.1/(2*x*x+1);
Memo1->Lines->Add("Формула2= "+FloatToStrF(F,ffFixed,3,4)); } break;
case 2: { if (x<=3)
F=x*x+3*x+9;
else F=sin(x)/(x*x-9);
Memo1->Lines->Add("Формула3= "+FloatToStrF(F,ffFixed,3,4)); } break;
} }
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit1Change(TObject *Sender)
{
if (Edit1->Text.Length()>0) {
Button1->Enabled=true;
Button2->Enabled=true; }
else
{
Button1->Enabled=false;
Button2->Enabled=false; }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &Key)
{
if(!((Key >= '0' && Key <= '9') || Key == VK_BACK ||Key == '-'||Key == ','))
Key = 0x00;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Memo1KeyPress(TObject *Sender, char &Key)
{
Key = 0x00;
}
//---------------------------------------------------------------------------
Соседние файлы в папке 2