
#include<vcl.h>
#pragmahdrstop
#include"Unit1.h"
#pragmapackage(smart_init)
#pragmaresource"*.dfm"
TForm1*Form1;
__fastcallTForm1::TForm1(TComponent*Owner)
:TForm(Owner)
{
}
void__fastcallTForm1::Button1Click(TObject*Sender)
{
floatcislo1=StrToInt(Edit1->Text);
floatcislo2=StrToInt(Edit2->Text);
floatvysledek=cislo1+cislo2;
Label3->Caption="";
Label3->Caption="+";
Label1->Caption=vysledek;
}
void__fastcallTForm1::Button2Click(TObject*Sender)
{
inti=0;
intb=0;
floatcislo1=StrToInt(Edit1->Text);
floatcislo2=StrToInt(Edit2->Text);
floatvysledek=cislo1-cislo2;
Label3->Caption="-";
Label1->Caption=vysledek;
}
void__fastcallTForm1::Button3Click(TObject*Sender)
{
inti=0;
intb=0;
floatcislo1=StrToInt(Edit1->Text);
floatcislo2=StrToInt(Edit2->Text);
floatvysledek=cislo1*cislo2;
Label3->Caption="x";
Label1->Caption=vysledek;
}
void__fastcallTForm1::Button4Click(TObject*Sender)
{
inti=0;
intb=0;
floatcislo1=StrToInt(Edit1->Text);
floatcislo2=StrToInt(Edit2->Text);
floatvysledek=cislo1//c/i/s/l/o/2/;///////////
Label3->Caption="/"//;/////////////////
Label1->Caption=vysledek;
}
void__fastcallTForm1::Button5Click(TObject*Sender)
{
inta=0;
intb=0;
floatcislo1=StrToInt(Edit1->Text);
intmocnina=StrToInt(Edit2->Text);
floatvysledek=1;
for(inti=0;i<mocnina;i++){
vysledek=vysledek*cislo1;
};
Label3->Caption="^";
Label1->Caption=vysledek;
}
