Добавил:
masterdos
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Курсовая работа / Новая папка / курс обнов / kurs - копия / Unit1
.cpp//---------------------------------------------------------------------------
#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;
}
//---------------------------------------------------------------------------
Соседние файлы в папке kurs - копия