Курсовая работа / Новая папка (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);
 s6=a*d;
 s1=b*c;
 Edit5->Text=FloatToStr(s6);
 Edit6->Text=FloatToStr(s1);

}
//---------------------------------------------------------------------------
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();
 Edit12->Clear();
 Edit13->Clear();
 Edit14->Clear();
 Edit15->Clear();
 Edit16->Clear();
 Edit17->Clear();
 Edit18->Clear();
 Edit19->Clear();
 Memo1->Clear();
 Memo2->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");}
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button9Click(TObject *Sender)
{
int A[10],B[10],i,z;
float x;

for(i=1;i<=10;i++)
{
 A[i]=random(15);
 B[i]=random(30);
}

x=A[1]/B[1];

for(i=1;i<=10;i++);
{
 if((A[i]/B[i])>x)
 {
  x=A[i]/B[i];
  z=i;
 }

 Edit16->Text=A[z];
 Edit17->Text=B[z];


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


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

void __fastcall TForm1::Edit9KeyPress(TObject *Sender, char &Key)
{
 Key=0;        
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit5KeyPress(TObject *Sender, char &Key)
{
 Key=0;        
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit6KeyPress(TObject *Sender, char &Key)
{
 Key=0;
}
//---------------------------------------------------------------------------



void __fastcall TForm1::Edit10KeyPress(TObject *Sender, char &Key)
{
 Key=0;        
}
//---------------------------------------------------------------------------


void __fastcall TForm1::Memo1KeyPress(TObject *Sender, char &Key)
{
 Key=0;        
}
//---------------------------------------------------------------------------


void __fastcall TForm1::Edit16KeyPress(TObject *Sender, char &Key)
{
 Key=0;        
}
//---------------------------------------------------------------------------


void __fastcall TForm1::Edit17KeyPress(TObject *Sender, char &Key)
{
 Key=0;        
}
//---------------------------------------------------------------------------


void __fastcall TForm1::Edit18KeyPress(TObject *Sender, char &Key)
{
 Key=0;        
}
//---------------------------------------------------------------------------


void __fastcall TForm1::Edit19KeyPress(TObject *Sender, char &Key)
{
 Key=0;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button10Click(TObject *Sender)
{
 int A[5],i;
 int B[5],j;
float sum=0,se=0;

for(i=0;i<5;i++)
{
 A[i]=random(20);
}
for(j=0;j<5;j++)
{
 A[j]=random(20);
}

j=0;
for(i=0;i<5;i++)
{
 sum=sum+(A[i]/A[j]);
 j++;
}

j=0;
for(i=0;i<5;i++)
{
 se=se+(A[i]/A[j]);
 j++;
}
 se=se/j;
  Edit18->Text=sum;
  Edit19->Text=se;

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

void __fastcall TForm1::Button11Click(TObject *Sender)
{
 Memo2->Lines->Add(s6/s1);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Memo2KeyPress(TObject *Sender, char &Key)
{
 Key=0;        
}
//---------------------------------------------------------------------------