//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
double a[3]={0,0,0},d[1]={0};k[4]={0,0,0,0};
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
if(a[0]==0){
Edit1->Text=1;
a[0]=1;}
else
{
Edit1->Text=Edit1->Text+1;
a[0]=StrToFloat(Edit1->Text);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
if(a[0]==0){
Edit1->Text=2;
a[0]=2;}
else
{
Edit1->Text=Edit1->Text+2;
a[0]=StrToFloat(Edit1->Text);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
if(k[0]==1)
{
d[0]=(d[0]+a[0]);
Edit1->Text=d[0];
a[0]=0;k[0]=1;
}
if(k[1]==1)
{
d[0]=(d[0]-a[0]);
Edit1->Text=d[0];
a[0]=0;k[1]=0;k[0]=1;
}
if(k[2]==1)
{
d[0]=(d[0]*a[0]);
Edit1->Text=d[0];
a[0]=0;k[2]=0;k[0]=1;
}
if(k[3]==1)
{
d[0]=(d[0]/a[0]);
Edit1->Text=d[0];
a[0]=0;k[3]=0;k[0]=1;
}
if(k[1]==0&&k[2]==0&&k[3]==0&&k[0]==0)
{
Edit1->Text="";
d[0]=(a[0]+d[0]);
a[0]=0;k[0]=1;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button5Click(TObject *Sender)
{
if(k[1]==1)
{
d[0]=(d[0]-a[0]);
Edit1->Text=d[0];
a[0]=0;k[1]=1;
}
if(k[0]==1)
{
d[0]=(d[0]+a[0]);
Edit1->Text=d[0];
a[0]=0;k[0]=0;k[1]=1;
}
if(k[2]==1)
{
d[0]=(d[0]*a[0]);
Edit1->Text=d[0];
a[0]=0;k[2]=0;k[1]=1;
}
if(k[3]==1)
{
d[0]=(d[0]/a[0]);
Edit1->Text=d[0];
a[0]=0;k[3]=0;k[1]=1;
}
if(k[1]==0&&k[2]==0&&k[3]==0&&k[0]==0)
{
Edit1->Text="";
d[0]=(a[0]+d[0]);
a[0]=0;k[1]=1;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button10Click(TObject *Sender)
{
if(a[0]==0){
Edit1->Text=3;
a[0]=3;}
else
{
Edit1->Text=Edit1->Text+3;
a[0]=StrToFloat(Edit1->Text);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button6Click(TObject *Sender)
{
if(a[0]==0){
Edit1->Text=4;
a[0]=4;}
else
{
Edit1->Text=Edit1->Text+4;
a[0]=StrToFloat(Edit1->Text);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button7Click(TObject *Sender)
{
if(a[0]==0){
Edit1->Text=5;
a[0]=5;}
else
{
Edit1->Text=Edit1->Text+5;
a[0]=StrToFloat(Edit1->Text);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button11Click(TObject *Sender)
{
if(a[0]==0){
Edit1->Text=6;
a[0]=6;}
else
{
Edit1->Text=Edit1->Text+6;
a[0]=StrToFloat(Edit1->Text);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button8Click(TObject *Sender)
{
if(a[0]==0){
Edit1->Text=7;
a[0]=7;}
else
{
Edit1->Text=Edit1->Text+7;
a[0]=StrToFloat(Edit1->Text);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button9Click(TObject *Sender)
{
if(a[0]==0){
Edit1->Text=8;
a[0]=8;}
else
{
Edit1->Text=Edit1->Text+8;
a[0]=StrToFloat(Edit1->Text);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button12Click(TObject *Sender)
{
if(a[0]==0){
Edit1->Text=9;
a[0]=9;}
else
{
Edit1->Text=Edit1->Text+9;
a[0]=StrToFloat(Edit1->Text);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button13Click(TObject *Sender)
{
if(k[2]==1)
{
d[0]=(d[0]*a[0]);
Edit1->Text=d[0];
a[0]=0;k[2]=1;
}
if(k[0]==1)
{
d[0]=(d[0]+a[0]);
Edit1->Text=d[0];
a[0]=0;k[0]=0;k[2]=1;
}
if(k[1]==1)
{
d[0]=(d[0]-a[0]);
Edit1->Text=d[0];
a[0]=0;k[1]=0;k[2]=1;
}
if(k[3]==1)
{
d[0]=(d[0]/a[0]);
Edit1->Text=d[0];
a[0]=0;k[3]=0;k[2]=1;
}
if(k[1]==0&&k[2]==0&&k[3]==0&&k[0]==0)
{
Edit1->Text="";
d[0]=(a[0]+d[0]);
a[0]=0;k[2]=1;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button16Click(TObject *Sender)
{
if(k[3]==1)
{
d[0]=(d[0]/a[0]);
Edit1->Text=d[0];
a[0]=0;k[3]=1;
}
if(k[0]==1)
{
d[0]=(d[0]+a[0]);
Edit1->Text=d[0];
a[0]=0;k[0]=0;k[3]=1;
}
if(k[1]==1)
{
d[0]=(d[0]-a[0]);
Edit1->Text=d[0];
a[0]=0;k[1]=0;k[3]=1;
}
if(k[2]==1)
{
d[0]=(d[0]*a[0]);
Edit1->Text=d[0];
a[0]=0;k[2]=0;k[3]=1;
}
if(k[1]==0&&k[2]==0&&k[3]==0&&k[0]==0)
{
Edit1->Text="";
d[0]=(a[0]+d[0]);
a[0]=0;k[3]=1;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
if(k[0]==1)
{
d[0]=(d[0]+a[0]);
Edit1->Text=d[0];
a[0]=0;
}
if(k[1]==1)
{
d[0]=(d[0]-a[0]);
Edit1->Text=d[0];
a[0]=0;
}
if(k[2]==1)
{
d[0]=(d[0]*a[0]);
Edit1->Text=d[0];
a[0]=0;
}
if(k[3]==1)
{
d[0]=(d[0]/a[0]);
Edit1->Text=d[0];
a[0]=0;
}
k[0]=k[1]=k[2]=k[3]=0;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button15Click(TObject *Sender)
{
if(a[0]==0){
Edit1->Text=0;
a[0]=0;}
else
{
Edit1->Text=Edit1->Text+0;
a[0]=StrToFloat(Edit1->Text);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button14Click(TObject *Sender)
{
a[1]=a[2]=a[0]=0;d[0]=0;k[0]=k[1]=k[2]=k[3]=0;
Edit1->Text=0;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button17Click(TObject *Sender)
{
Edit1->Text=Edit1->Text+".";
a[0]=StrToFloat(Edit1->Text);
}
//---------------------------------------------------------------------------
jisuanqi.zip_C Builder
版权申诉
152 浏览量
2022-09-20
18:33:10
上传
评论
收藏 884B ZIP 举报
JaniceLu
- 粉丝: 79
- 资源: 1万+
最新资源
- Screenshot_2024-05-21-17-06-42-64_2332cb9b27b851b548ba47a91682926c.jpg
- 毕业设计参考 - 基于树莓派、OpenCV及Python的人脸识别
- node-v18.20.2-linux-arm64
- 222222222222
- 16张相机标定图片,可复现本文畸变矫正
- dbeaver-ce-23.3.1-x86_64-setup.zip
- 基于X86 AVX2指令的快速卷积实现
- VMware-ESXi-7.0U3n-21930508-depot.zip文件
- MySQL 在 Windows 系统下的安装教程.zip
- Access文件数据库访问的客户端
资源上传下载、课程学习等过程中有任何疑问或建议,欢迎提出宝贵意见哦~我们会及时处理!
点击此处反馈