Скачиваний:
0
Добавлен:
30.05.2020
Размер:
2.47 Кб
Скачать
//---------------------------------------------------------------------------

#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
  • #
    30.05.20203.54 Кб0Project1.bpr
  • #
    30.05.2020685 б0Project1.cpp
  • #
    30.05.2020421.44 Кб0Project1.obj
  • #
    30.05.2020876 б0Project1.res
  • #
    30.05.2020851.97 Кб0Project1.tds
  • #
    30.05.20202.47 Кб0Unit1.cpp
  • #
    30.05.202051 б0Unit1.ddp
  • #
    30.05.2020135.48 Кб0Unit1.dfm
  • #
    30.05.20201.47 Кб0Unit1.h
  • #
    30.05.2020489.43 Кб0Unit1.obj
  • #
    30.05.20202.46 Кб0Unit1.~cpp