Т.С.П.П / Махинации с ТСПП / Лабораторная работа №1 / Проект / vetvlenie

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop
#include "math.h"
#include "vetvlenie.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
Memo1->Clear();
Memo2->Clear();
Memo3->Clear();
Memo4->Clear();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Memo1->Clear();
Memo2->Clear();
 Edit1->Clear();
 Edit2->Clear();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
 Memo1->Lines->Clear();
 float y,x;
 float a,b,c,d;
 x=StrToFloat(Edit1->Text);
 y=StrToFloat(Edit2->Text);
 Memo1->Lines->Clear();
 switch(RadioGroup1->ItemIndex)
 {

  case 0:  Memo1->Lines->Clear();
          if ((3.14-2*x)==0){
          Memo1->Lines->Add("EROR!");}
          else
          { a=(cos(x)/3.14-2*x)+((16*x)*cos(x*y)-2);
          Memo1->Lines->Add("A="+FloatToStrF(a, ffFixed, 7,3));}
        break;
  case 1: Memo1->Lines->Clear();

  b=pow(2,-x)-cos(x)-(sin(2*x*y));
          Memo1->Lines->Add("B="+FloatToStrF(b, ffFixed, 7,3));
          break;
  case 2: Memo1->Lines->Clear();
                if ((12*pow(x,2)+7*x-5)==0){
          Memo1->Lines->Add("EROR!");}
          else
          {c=2*(atan(3*x))-(1/(12*pow(x,2)+7*x-5));
          Memo1->Lines->Add("C="+FloatToStrF(c, ffFixed, 7,3));}
          break;

  case 3:Memo1->Lines->Clear();
   d=abs(pow(x,2)-pow(x,3))-((7*x)/(pow(x,3)-15*x));
          Memo1->Lines->Add("D="+FloatToStrF(d, ffFixed, 7,3));
          break;
 }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button3Click(TObject *Sender)
{    Memo2->Lines->Clear();
    float A,B,C;
 float p,s1,r,s;
 A=StrToFloat(Edit3->Text);
 B=StrToFloat(Edit4->Text);
 C=StrToFloat(Edit5->Text);
switch(RadioGroup2->ItemIndex)
 {
  case 0:
 p=(A+B+C)/2;
 s1=sqrt(p*(p-A)*(p-B)*(p-C));
 r=(s1/p);
 s=3.14*pow(r,2);
 Memo2->Lines->Add("Площадь круга вписаного в треугольник="+FloatToStrF(s , ffFixed, 7,3));

        break;
  case 1:

          float s,s1,r1;
 s=StrToFloat(Edit6->Text);
 s1=(3.14*(sqrt(s)))/(3.14*0.5);
 r1=s/s1;
 Memo2->Lines->Add("Площадь квадрата="+FloatToStrF(s1, ffFixed, 7,3));
 Memo2->Lines->Add("Площадь вписанного квадрата меньше площади заданного="+FloatToStrF(r1, ffFixed, 7,3));
          break;
  case 2:
           float A,B,C;
 float a,b,g,r;
 a=StrToFloat(Edit7->Text);
 b=StrToFloat(Edit8->Text);
 g=StrToFloat(Edit9->Text);
 r=StrToFloat(Edit9->Text);
 A=2*r*sin(a*3.14/180);
 B=2*r*sin(b*3.14/180);
 C=2*r*sin(g*3.14/180);
 Memo2->Lines->Add("Сторона А="+FloatToStrF(A, ffFixed, 7,3));
 Memo2->Lines->Add("Сторона В="+FloatToStrF(B, ffFixed, 7,3));
 Memo2->Lines->Add("Сторона С="+FloatToStrF(C, ffFixed, 7,3));
          break;

 }

}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button4Click(TObject *Sender)
{
 Memo2->Clear();
 Edit3->Clear();
 Edit4->Clear();
 Edit5->Clear();
  Edit6->Clear();
   Edit7->Clear();
    Edit8->Clear();
     Edit9->Clear();
      Edit9->Clear();
}


void __fastcall TForm1::Button5Click(TObject *Sender)
{
 int N,A;
 N=StrToInt(Edit11->Text);
 switch(RadioGroup3->ItemIndex)
 {
  case 0:A=sqrt(N);
         if((A*A)==N)
         { Memo3->Lines->Add("True-"+IntToStr(N));}
         else {Memo3->Lines->Add("False-"+IntToStr(N));}
         break;
  case 1:if((N==0123) || (N==1234) || (N==2345) || (N==3456) ||
            (N==4567) || (N==5678) || (N==6789))
         { Memo3->Lines->Add("True");}
         else { Memo3->Lines->Add("False"); }
         break;
 }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button7Click(TObject *Sender)
{

int x,y;
x=StrToInt(Edit12->Text);
y=StrToInt(Edit13->Text);
switch(RadioGroup4->ItemIndex)
 {
  case 0:
         if
      (       abs(4-x)<=1 && abs(4-y)<=2  ||  abs(4-x)<=3 && abs(7-y)<=1 )
         {Memo4->Lines->Add("True");}
          else
          {Memo4->Lines->Add("False");}
         break;

  case 1:
         if  ( (pow((x+4),2)+pow((y-4),2)<=9) || ((x>0) && (y>0) && (y<=6-x)))
         {Memo4->Lines->Add("True");}
          else
          {Memo4->Lines->Add("False");}
         break;
 }

}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button6Click(TObject *Sender)
{
 Memo3->Clear();
 Edit11->Clear();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button8Click(TObject *Sender)
{
 Memo4->Clear();
 Edit12->Clear();
 Edit13->Clear();
}
//---------------------------------------------------------------------------