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

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

#include <vcl.h>
#pragma hdrstop
#include "Math.h"
#include "V1Unit.h"
float func(float);
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TV1Form *V1Form;
//---------------------------------------------------------------------------
__fastcall TV1Form::TV1Form(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TV1Form::FormCreate(TObject *Sender)
{
Label1->Hide();Label2->Hide();Label3->Hide();Label4->Hide();Label5->Hide();Label6->Hide();Label7->Hide();Label8->Hide();Label9->Hide();
Edit1->Hide();Edit2->Hide();Edit3->Hide();Edit4->Hide();Memo1->Hide();Button2->Hide();Button4->Hide();
}
//---------------------------------------------------------------------------
void __fastcall TV1Form::Button1Click(TObject *Sender)
{
Button2->Show();Button4->Show();Label6->Show(); Memo1->Clear();Label5->Hide(); Memo1->Hide();
switch(RadioGroup1->ItemIndex){
case 0:Label1->Show();Label2->Show();Label3->Show();Label6->Show();Label7->Show();
  Edit1->Show();Edit2->Show();Edit3->Show();Edit4->Hide();
  Label4->Hide();Label5->Hide();Label8->Hide();Label9->Hide();
break;
case 1:Label1->Show();Label2->Show();Label6->Show();Label8->Show();
  Edit1->Show();Edit2->Show();Edit3->Hide();Edit4->Hide();
  Label3->Hide(); Label4->Hide();Label5->Hide();Label7->Hide();Label7->Hide();Label9->Hide();
break;
case 2:Label4->Show();Label6->Show();Label9->Show();
  Edit4->Show();Edit1->Hide();Edit2->Hide();Edit3->Hide();
  Label1->Hide();Label2->Hide();Label3->Hide();Label7->Hide();Label8->Hide();
break;
}
}
//---------------------------------------------------------------------------
void __fastcall TV1Form::Button2Click(TObject *Sender)
{
float x,y,z;
int m;
Memo1->Show(); Label5->Show();
switch(RadioGroup1->ItemIndex){
case 0: if(((Edit1->Text).Length()==0) || ((Edit2->Text).Length()==0) || ((Edit3->Text).Length()==0)) ShowMessage("Не заповнені поля!");
  else {x=StrToFloat(Edit1->Text); y=StrToFloat(Edit2->Text); z=StrToFloat(Edit3->Text);
  Memo1->Lines->Add("x="+FloatToStrF(func(x),ffFixed,8,3)+","); Memo1->Lines->Add("y="+FloatToStrF(func(y),ffFixed,8,3)+",");Memo1->Lines->Add("z="+FloatToStrF(func(z),ffFixed,8,3)+".");
  Edit1->Clear(); Edit2->Clear(); Edit3->Clear();} break;
case 1: if(((Edit1->Text).Length()==0) || ((Edit2->Text).Length()==0)) ShowMessage("Не заповнені поля!");
  else {x=StrToFloat(Edit1->Text); y=StrToFloat(Edit2->Text); if(x==y) ShowMessage("Числа повинні бути різні");
  else if(x<y) {Memo1->Lines->Add("x="+FloatToStrF((x+y)/2,ffFixed,8,3)+","); Memo1->Lines->Add("y="+FloatToStrF(2*y*x,ffFixed,8,3)+".");}
    else {Memo1->Lines->Add("x="+FloatToStrF(2*y*x,ffFixed,8,3)+","); Memo1->Lines->Add("y="+FloatToStrF((x+y)/2,ffFixed,8,3)+".");}
  Edit1->Clear(); Edit2->Clear();} break;
case 2: if((Edit4->Text).Length()==0) ShowMessage("Не заповнене поле!");
  else {m=StrToInt(Edit4->Text); if(m<100) Memo1->Lines->Add("Вартість дзвінків: "+IntToStr(15*m)+" крб.");
  else Memo1->Lines->Add("Вартість дзвінків: "+IntToStr(25*m)+" крб.");
  Edit4->Clear();} break;
}
}
//---------------------------------------------------------------------------
void __fastcall TV1Form::Button3Click(TObject *Sender)
{
  V1Form->Close();
}
//---------------------------------------------------------------------------
void __fastcall TV1Form::Button4Click(TObject *Sender)
{
  Edit1->Clear();Edit2->Clear();Edit3->Clear();Edit4->Clear();Memo1->Clear();
}
//---------------------------------------------------------------------------
void __fastcall TV1Form::Edit1KeyPress(TObject *Sender, char &Key)
{
if (((Key>='0') && (Key<='9')) ||(Key=='-') || (Key==',') || (Key==VK_BACK))
  return;
Key=0;
}
//---------------------------------------------------------------------------

void __fastcall TV1Form::Edit2KeyPress(TObject *Sender, char &Key)
{
if (((Key>='0') && (Key<='9')) || (Key=='-') || (Key==',') || (Key==VK_BACK))
  return;
Key=0;
}
//---------------------------------------------------------------------------

void __fastcall TV1Form::Edit3KeyPress(TObject *Sender, char &Key)
{
if (((Key>='0') && (Key<='9')) || (Key=='-') || (Key==',') || (Key==VK_BACK))
  return;
Key=0;
}
//---------------------------------------------------------------------------
void __fastcall TV1Form::Edit4KeyPress(TObject *Sender, char &Key)
{
if (((Key>='0') && (Key<='9')) || (Key==VK_BACK))
  return;
Key=0;
}
//---------------------------------------------------------------------------
void __fastcall TV1Form::Memo1KeyPress(TObject *Sender, char &Key)
{
  Key=0;        
}
//---------------------------------------------------------------------------
float func(float a)
{
if (a>0)
  return pow(a,2);
else
  return pow(a,4);
}