Курсовая работа / Новая папка (2) / Копія курс обнов / kurs / Unit1

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

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include<math.h>
float s1,s2,s3,s4,s5,s6,a,b,c,d;
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

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


 a=StrToFloat(Edit1->Text);
 b=StrToFloat(Edit2->Text);
 c=StrToFloat(Edit3->Text);
 d=StrToFloat(Edit4->Text);
  s6=a*c;
  s1=b*d;
  Edit5->Text=FloatToStr(s6);
  Edit6->Text=FloatToStr(s1);


}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
  int a,b,c,d;

 a=StrToInt(Edit1->Text);
 b=StrToInt(Edit2->Text);
 c=StrToInt(Edit3->Text);
 d=StrToInt(Edit4->Text);
 s1=a*d;
 s2=b*c;
 Edit5->Text=FloatToStr(s1);
 Edit6->Text=FloatToStr(s2);

}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
  int a,b,c,d;

 a=StrToInt(Edit1->Text);
 b=StrToInt(Edit2->Text);
 c=StrToInt(Edit3->Text);
 d=StrToInt(Edit4->Text);
 s1=b*d;
 s2=s1/b;
 s3=s1/d;
 s4=s2*a;
 s5=s3*c;
 s6=s5+s4;
 Edit5->Text=FloatToStr(s6);
 Edit6->Text=FloatToStr(s1);

}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
 int a,b,c,d;

 a=StrToInt(Edit1->Text);
 b=StrToInt(Edit2->Text);
 c=StrToInt(Edit3->Text);
 d=StrToInt(Edit4->Text);
 s1=b*d;
 s2=s1/b;
 s3=s1/d;
 s4=s2*a;
 s5=s3*c;
 s6=s5-s4;
 Edit5->Text=FloatToStr(s6);
 Edit6->Text=FloatToStr(s1);
}
//---------------------------------------------------------------------------



void __fastcall TForm1::Button5Click(TObject *Sender)
{
 Edit5->Text=FloatToStr(s6/2);
 Edit6->Text=FloatToStr(s1/2);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button6Click(TObject *Sender)
{
 Edit1->Clear();
 Edit2->Clear();
 Edit3->Clear();
 Edit4->Clear();
 Edit5->Clear();
 Edit6->Clear();
 Edit7->Clear();
 Edit8->Clear();
 Edit9->Clear();
 Edit10->Clear();
 Edit11->Clear();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button7Click(TObject *Sender)
{
 float st1,st2,sumst1,sumst2,step;
 st1=StrToFloat(Edit7->Text);
 st2=StrToFloat(Edit8->Text);
 step=StrToFloat(Edit11->Text);
 sumst1=pow(st1,step);
 sumst2=pow(st2,step);
 Edit9->Text=FloatToStr(sumst1);
 Edit10->Text=FloatToStr(sumst2);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button8Click(TObject *Sender)
{
  int a,b,c,d,sum1,sum2;

 a=StrToInt(Edit12->Text);
 b=StrToInt(Edit13->Text);
 c=StrToInt(Edit14->Text);
 d=StrToInt(Edit15->Text);
 sum1=a/b;
 sum2=c/d;
 if (sum1>sum2){Memo1->Lines->Add("1>2");}
 else if(sum2>sum1) {Memo1->Lines->Add("2>1");}
 else{Memo1->Lines->Add("1=2");}
}
//---------------------------------------------------------------------------