C语言课程设计(简易计算器设计)带所有代码

  • 格式:doc
  • 大小:215.50 KB
  • 文档页数:28

《C语言课程设计》报告设计题目:简单计算器设计学院名称:电子与信息工程学院专业:计算机科学与技术班级:计科姓名:学号指导教师:定稿日期:2013-5-28一、设计题目简单计算器设计二、设计要求在功能上功能尽量模拟windows操作系统中的计算器,系统界面不做强制要求。

三、设计目的①通过本项课程设计,可以培养独立思考、综合运用所学有关相应知识的能力,能更好的巩固《C语言程序设计》课程学习的内容,掌握工程软件设计的基本方法,强化上机动手编程能力,闯过理论与实践相结合的难关!更加了解了c语言的好处和其可用性!同时增加了同学之间的团队合作精神!更加也体会到以后在工作中团队合作的重要性和必要性!②通过C语言课程设计,使学生了解高级程序设计语言的结构,掌握基本的程序设计过程和技巧,掌握基本的分析问题和利用计算机求解问题的能力,具备初步的高级语言程序设计能力。

为后续各门计算机课程的学习和毕业设计打下坚实基础。

四、设计思想及过程①由于需要使功能尽量模仿Windows下的计算器,而很多功能要以图形界面实现,故用Borland C++ Builder编写。

所以用的是面向对象程序设计。

但因为这是C语言的课程设计,所以除了面向对象的使用以外,所有语法都是按照C语言的格式编写。

②采用工程模式,文件包括calc.h(运算主函数头文件,包括各运算符的操作以及其辅助函数)、Main.h(窗体类的声明头文件)、Calc.cpp(工程初始化文件)、Main.cpp(代码主文件,包括各空间操作的函数)以及一些其它附属文件,包括dll动态链接库。

③在参考了Windows里的计算器以后,决定在我的课程设计中实现:⒈0~9的数字输入功能(小数点除外)⒉实现加、减、乘、整除、取模、阶乘、位运算左移、x的y次方、与、异或、x立方、x平方运算功能,二进制、八进制、十进制、十六进制转换功能,正负转换功能,退格、归零等功能。

⒊数字显示最多为40位,超过即用科学表示法表示(例如1E50)。

⒋运算时因最高能对5000位的数字进行运算,故所有功能建立在自行编写代码的高精度运算基础上。

④在按键操作中,先判断用户按的是数字键还是功能键。

功能键分运算符键、进制转换键以及清空键。

然后记录下来用户当前的按键,然后对上次按的功能键键进行运算。

如按了1、+、5,再按任何功能键即对1+5进行运算。

如果按的是进制转换键,就记录当前进制,则在以后每次操作中,都将显示结果转换为当前进制再显示。

如:以下是按5以及*号时的函数代码⑤对于高精度,采用结构体struct high{int num[MAXN];};的形式,数组的一个元素存一位。

个位为num[1],将符号存在num[0]之中。

⒈对于高精度加法,先判断两个数符号,如果为异号,则进行高精度减法,否则将各位逐个相加,然后逐位进位,返回答案即可。

⒉对于高精度减法,先判断两个数符号,如果为异号,则进行高精度加法,否则用大数减小数,逐个相减,然后逐位退位,判断符号、返回答案即可。

⒊对于高精度乘法,用第二个数的各位乘以第一个数的各位。

然后错位相加,相当于小学生摆竖式。

最后将各位相乘的结果相加,逐位进位,判断符号、返回答案即可。

⒋对于高精度整除,采用各位从0~9枚举形式,如果此位与0~9相乘刚好小于等于相应数字,则为此位答案为这个数。

最后返回答案即可。

⒌对于高精度取模,则只需求出高精度整除,然后将数字减去整除的结果即可。

⒍对于n阶乘,做n次乘法,每乘一次,乘数减一。

⒎对于左移,虽然是建立在位运算基础上,但其效果只是乘以二,所以只需高精度乘以二即可。

⒏对于x的平方、立方、y次方,只需将x高精度相乘2次、3次或者更多次即可。

⒐对于与运算,先将两个数转换为二进制,然后对每位进行与运算,最后转换回十进制即可。

⒑对于异或运算,原理同与运算。

⑥对于进制转换,采用除n取余法。

将其转换为相应进制。

⑦对于清零键,按按键功能对actNum、ans、nowSym等变量清空或者减少一位即可。

⑧我对于程序容错性做了很大程度上的优化。

对于超出位数的运算会跳出“数字太大”提示。

对于各按键混合使用会导致的程序混乱用了极大程度上的优化,也就是说对于按键的随意性有很好的兼容性。

比如说可以直接按2再按*然后按=,就会算出2的平方。

⑨对于显示函数,先判断当前进制数,然后再将需要显示的数字转换为当前进制数再显示。

如果位数超过40,则取前几位,采用科学计数法显示。

⑩未能实现部分:小数部分。

由于时间关系,未能实现复制粘贴数字功能。

五、流程图六、运行过程打开Calc.exe,模拟Windows下的计算器功能。

①基本功能为输入数字,再输入运算符,然后输入运算符对应数字,按等号。

②输入数字,再输入运算符,输入等于号的结果为“当前输入的数字→运算符→当前输入的数字”。

可以调节正负号。

③输入“数字,运算符,数字,运算符...数字,运算符”亦可。

七、心得体会这次“简单计算器制作”的课程设计不仅让我对C语言的熟悉程度上升到了另一个高度,而且在一定意义上对面向对象设计的理解更加深刻了。

是我在编程路途上的一次质的飞跃。

而且在处理非常规数据类型的运算的锻炼下,使我对编程语言有了一个新的认识。

当看着一个具有图形界面的计算器的模型成品出现在自己面前时,心中有着无限感慨,原来编程也不是非常遥不可及的,原来在编程的趣味性中能让我学到更多有意思的知识。

附源程序清单:①Calc.h(运算函数集头文件)#include<stdio.h>#include<string>#include<string.h>#define HIGH struct high#define MAXN 5000#define MAXSHOW 40#define key_num 0#define key_sym 1struct high{int num[MAXN];};HIGH ans, actNum, nowShow;char nowSym = 'N', lastSym = 'N';bool _isincMed = true, _lastKey = key_num;int jz = 10;bool _isbig(HIGH a, HIGH b){int i;for(i = MAXN - 1; i > 0; i--){if(a.num[i] > b.num[i]) return true;elseif(a.num[i] < b.num[i]) return false;}return false;}void copy(char *str, char *rstr, int op, int len) //将str的从op开始的len个字符复制到rstr中{int i = 0, j = op - 1;for(; i <= len - 1 || str[j] == '\0'; i++, j++) rstr[i] = str[j];rstr[i] = '\0';}void copyint(HIGH num, HIGH *rint, int op, int len) //将str的从op开始的len个字符复制到rstr中{int i = 1, j = op;for(; i <= len && j < MAXN; i++, j++) rint -> num[i] = num.num[j];}void initNum(HIGH *numb) //初始化{int i;HIGH tmp;memset(tmp.num, 0, sizeof(tmp.num));*numb = tmp;}int absCmp(HIGH a, HIGH b) //比较绝对值大小{int i;for(i = MAXN - 1; i > 0; i--){if(a.num[i] != b.num[i]) return (a.num[i] > b.num[i]);}return -1;}int getMed(HIGH a) //获取位数{int i, med;for(i = MAXN - 1; i > 0; i--)if(a.num[i] != 0){med = i;break;}if(i == 0) med = 1;return med;}void turnSym(HIGH *a) //变号{a -> num[0] = a -> num[0] == 0 ? -1 : 0;}void decMed(HIGH *a) //减去一位{int i, med = getMed(*a);if(med == MAXN - 1) med--;for(i = 1; i <= med; i++) a -> num[i] = a -> num[i + 1];a -> num[med] = 0;}void incMed(HIGH *a, int b) //加一位{int i, med = getMed(*a);HIGH r;initNum(&r);if(med < MAXSHOW){for(i = 2; i <= med + 1; i++) r.num[i] = a -> num[i - 1];r.num[1] = b;r.num[0] = a -> num[0];}else r = *a;*a = r;}HIGH mul(HIGH a, HIGH b) //高精度乘法{int i, j, k, ma, mb;HIGH tmpr, r, zero;initNum(&zero);initNum(&r);ma = getMed(a);mb = getMed(b);for(i = 1; i <= ma; i++){initNum(&tmpr);for(j = 1; j <= mb; j++){tmpr.num[j] = a.num[i] * b.num[j];}int tmpMed = getMed(tmpr);if(tmpMed + i > MAXN){initNum(&r);Application -> MessageBox("数字太大!", "错误", MB_OKCANCEL);nowSym = 'N';_lastKey = key_num;lastSym = 'N';return r;}for(k = 1; k < tmpMed; k++){tmpr.num[k + 1] += (tmpr.num[k] / 10);tmpr.num[k] %= 10;}if(tmpr.num[tmpMed] > 10)tmpMed = getMed(tmpr);if(tmpMed + i > MAXN){initNum(&r);Application -> MessageBox("数字太大!", "错误", MB_OKCANCEL);nowSym = 'N';_lastKey = key_num;lastSym = 'N';return r;}for(j = 1; j <= tmpMed; j++) r.num[j + i - 1] += tmpr.num[j];}for(i = 1; i < MAXN - 1; i++){r.num[i + 1] += (r.num[i] / 10);r.num[i] %= 10;}if(r.num[MAXN - 1] > 9){initNum(&r);Application -> MessageBox("数字太大!", "错误", MB_OKCANCEL);nowShow = zero;nowSym = 'N';_lastKey = key_num;lastSym = 'N';return r;}if((a.num[0] == -1 && b.num[0] == -1) || (a.num[0] == 0 && b.num[0] == 0)) r.num[0] = 0;else r.num[0] = -1;return r;}HIGH dec(HIGH a, HIGH b) //高精度减法{int i, med;HIGH r;HIGH inc(HIGH a, HIGH b);bool m = false;initNum(&r);if(a.num[0] == -1 && b.num[0] == -1) m = true;elseif(a.num[0] == -1){b.num[0] = -1;return inc(a, b);}elseif(b.num[0] == -1){a.num[0] = -1;return inc(a, b);}if(!absCmp(a, b)){a.num[0] = (a.num[0] == 0) ? -1 : 0;b.num[0] = (b.num[0] == 0) ? -1 : 0;return dec(b, a);}med = getMed(a);for(i = 1; i <= med; i++) r.num[i] = a.num[i] - b.num[i];for(i = 1; i <= med; i++){if(r.num[i] < 0){r.num[i + 1] -= 1;r.num[i] = 10 + r.num[i];}}if(m) r.num[0] = -1;return r;}HIGH inc(HIGH a, HIGH b) //高精度加法{int i;HIGH r, zero;bool m = false, err = false;initNum(&r);initNum(&zero);if(a.num[0] == -1 && b.num[0] == -1) m = true;elseif(a.num[0] == -1){a.num[0] = 0;return dec(b, a);}elseif(b.num[0] == -1){b.num[0] = 0;return dec(a, b);}for(i = 1; i < MAXN; i++) r.num[i] = a.num[i] + b.num[i];for(i = 1; i < MAXN - 1; i++){r.num[i + 1] += (r.num[i] / 10);r.num[i] %= 10;}if(r.num[MAXN - 1] > 9){initNum(&r);Application -> MessageBox("数字太大!", "错误", MB_OKCANCEL);nowSym = 'N';_lastKey = key_num;lastSym = 'N';nowShow = zero;return r;}if(m) r.num[0] = -1;return r;}HIGH div(HIGH a, HIGH b) //高精度整除{int i, j, ma = getMed(a), mb = getMed(b);HIGH r, tmpHigh, cmp, someZero, theone;initNum(&r);initNum(&theone);if(a.num[0] == b.num[0]) ;else r.num[0] = -1;a.num[0] = 0;b.num[0] = 0;for(i = ma - mb + 1; i > 0; i--){initNum(&tmpHigh);copyint(a, &tmpHigh, i, ma);initNum(&cmp);for(j = 0; !_isbig(cmp, tmpHigh); j++){cmp = inc(cmp, b);}theone.num[1] = j;if(_isbig(mul(theone, b), tmpHigh)) j--;r.num[i] = j;initNum(&someZero);someZero.num[i] = j;someZero = mul(someZero, b);a = dec(a, someZero);}return r;}HIGH mod(HIGH a, HIGH b) //高精度取模{int i, j;HIGH tmpans;tmpans = div(a, b);return dec(a, mul(tmpans, b));}String getHexStr(int a) //得到十六进制字符串{if(a == 10) return "A";elseif(a == 11) return "B";elseif(a == 12) return "C";elseif(a == 13) return "D";elseif(a == 14) return "E";elseif(a == 15) return "F";}int getHex(HIGH a) //十六进制取余{if(a.num[2] == 0) return a.num[1];else return a.num[2] * 10 + a.num[1];}HIGH hex(HIGH a) //转化十六进制{int i = 0, j;HIGH zero, r, sixteen;initNum(&zero);initNum(&r);initNum(&sixteen);sixteen.num[1] = 6;sixteen.num[2] = 1;if(a.num[0] == -1){initNum(&r);Application -> MessageBox("不能为负数!", "错误", MB_OKCANCEL);nowSym = 'N';_lastKey = key_num;lastSym = 'N';nowShow = zero;return r;}while(_isbig(a, zero)){i++;r.num[i] = getHex(mod(a, sixteen));a = div(a, sixteen);if(getMed(r) > MAXSHOW){initNum(&r);Application -> MessageBox("数字太大!", "错误", MB_OKCANCEL);nowShow = zero;nowSym = 'N';_lastKey = key_num;lastSym = 'N';return r;}}return r;}HIGH bajinzhi(HIGH a) //转化八进制{int i = 0, j;HIGH zero, r, eight;initNum(&zero);initNum(&r);initNum(&eight);eight.num[1] = 8;if(a.num[0] == -1){initNum(&r);Application -> MessageBox("不能为负数!", "错误", MB_OKCANCEL);nowSym = 'N';_lastKey = key_num;lastSym = 'N';nowShow = zero;return r;}while(_isbig(a, zero)){i++;r.num[i] = mod(a, eight).num[1];a = div(a, eight);if(getMed(r) > MAXSHOW){initNum(&r);Application -> MessageBox("数字太大!", "错误", MB_OKCANCEL);nowShow = zero;nowSym = 'N';_lastKey = key_num;lastSym = 'N';return r;}}return r;}HIGH bin(HIGH a) //转化二进制{int i = 0, j;HIGH zero, r, two;initNum(&zero);initNum(&r);initNum(&two);two.num[1] = 2;if(a.num[0] == -1){initNum(&r);Application -> MessageBox("不能为负数!", "错误", MB_OKCANCEL);nowShow = zero;nowSym = 'N';_lastKey = key_num;lastSym = 'N';return r;}while(_isbig(a, zero)){i++;r.num[i] = a.num[1] % 2;a = div(a, two);if(getMed(r) > MAXSHOW){initNum(&r);Application -> MessageBox("数字太大!", "错误", MB_OKCANCEL);nowShow = zero;nowSym = 'N';_lastKey = key_num;lastSym = 'N';return r;}}return r;}HIGH binToshi(HIGH a){int i, med = getMed(a);HIGH r, tmp, the1, tmp2, two, thetwo;initNum(&tmp);initNum(&tmp2);initNum(&the1);initNum(&thetwo);initNum(&two);two.num[1] = 1;thetwo.num[1] = 2;the1.num[1] = 1;initNum(&r);for(i = 1; i <= med; i++, tmp = inc(tmp, the1)) {tmp2.num[1] = a.num[i];r = inc(r, mul(tmp2, two));two = mul(two, thetwo);}return r;}HIGH and(HIGH a, HIGH b) //与{HIGH tmpa, tmpb, r;int med, meda, medb, i;initNum(&r);tmpa = bin(a);tmpb = bin(b);meda = getMed(tmpa);medb = getMed(tmpb);med = (meda > medb) ? meda : medb;for(i = 1; i <= med; i++)r.num[i] = tmpa.num[i] & tmpb.num[i];r = binToshi(r);return r;}HIGH xor(HIGH a, HIGH b) //异或{HIGH tmpa, tmpb, r;int med, meda, medb, i;initNum(&r);tmpa = bin(a);tmpb = bin(b);meda = getMed(tmpa);medb = getMed(tmpb);med = (meda > medb) ? meda : medb;for(i = 1; i <= med; i++)r.num[i] = tmpa.num[i] ^ tmpb.num[i];r = binToshi(r);return r;}void doAns(HIGH *ans, HIGH actNum, char *nowSym, char newSym, char lastSym, bool lastKey){HIGH the1, zero, tmp;initNum(&the1);the1.num[1] = 1;if(lastKey == key_sym){if(newSym == 'N'){//if(*nowSym != 'N') doAns(ans, *ans, nowSym, 'N', lastSym, key_num);//elseif(*nowSym != 'N') doAns(ans, actNum, nowSym, 'N', lastSym, key_num);elseif(lastSym != 'N') doAns(ans, actNum, &lastSym, 'N', lastSym, key_num);else*ans = actNum;}else{*nowSym = newSym;}}elseif(lastKey == key_num){if(*nowSym == 'N'){if(lastSym != 'N') doAns(ans, actNum, &lastSym, 'N', lastSym, lastKey);else *ans = actNum;}elseif(*nowSym == '+') *ans = inc(actNum, *ans);elseif(*nowSym == '-') *ans = dec(*ans, actNum);elseif(*nowSym == '*') *ans = mul(*ans, actNum);elseif(*nowSym == '/') *ans = div(*ans, actNum);elseif(*nowSym == '2') *ans = mul(*ans, *ans);elseif(*nowSym == '3'){*ans = mul(mul(*ans, *ans), *ans);}elseif(*nowSym == 'Y'){initNum(&zero);if(actNum.num[0] == -1 || !_isbig(actNum, zero)){*ans = the1;return ;}zero.num[1] = 2;tmp = *ans;for(; !_isbig(zero, actNum); zero = inc(zero, the1)){*ans = mul(*ans, tmp);}}elseif(*nowSym == 'L'){initNum(&zero);zero.num[1] = 2;if(*nowSym == '2') *ans = mul(*ans, zero);}elseif(*nowSym == 'M') *ans = mod(*ans, actNum);elseif(*nowSym == '!'){actNum = dec(*ans, the1);initNum(&zero);while(_isbig(actNum, zero)){*ans = mul(*ans, actNum);actNum = dec(actNum, the1);}}elseif(*nowSym == 'A') *ans = and(*ans, actNum);elseif(*nowSym == 'X') *ans = xor(*ans, actNum);}}②Calc.cpp /*由BCB生成*/#include<vcl.h>#pragma hdrstop//-------------------------------------------------------------USEFORM("Main.cpp", MainForm);//-------------------------------------------------------------WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int){try{Application -> Initialize();Application -> CreateForm(__classid(TMainForm), &MainForm);Application -> Run();}catch(Exception &exception){Application -> ShowException(&exception);}catch(...){try{throw Exception("");}catch(Exception&exception){Application -> ShowException(&exception);}}return 0;}//-------------------------------------------------------------③Main.h /*由BCB生成*/#ifndef MainH#define MainH//--------------------------------------------------------------------------- #include <Classes.hpp>#include <Controls.hpp>#include <StdCtrls.hpp>#include <Forms.hpp>#include <Menus.hpp>#include <ExtCtrls.hpp>//--------------------------------------------------------------------------- class TMainForm : public TForm{__published: // IDE-managed ComponentsTMainMenu *MainMenu1;TMenuItem *E1;TMenuItem *N1;TMenuItem *H1;TEdit *Show_Editor;TButton *bt_bkspace;TButton *bt_ce;TButton *bt_Leftc;TButton *bt_0;TButton *bt_iAndm;TButton *bt_inc;TButton *bt_eq;TButton *bt_1;TButton *bt_2;TButton *bt_3;TButton *bt_dec;TButton *bt_lsh;TButton *bt_4;TButton *bt_5;TButton *bt_6;TButton *bt_mul;TButton *bt_xor;TButton *bt_7;TButton *bt_8;TButton *bt_9;TButton *bt_div;TButton *bt_mod;TButton *bt_and;TButton *bt_xpf;TButton *bt_xlf;TButton *bt_xycf;TButton *bt_njc;TButton *sljz;TButton *sjz;TButton *bjz;TButton *ejz;void __fastcall FormCreate(TObject *Sender);void __fastcall bt_7Click(TObject *Sender);void __fastcall bt_8Click(TObject *Sender);void __fastcall bt_0Click(TObject *Sender);void __fastcall bt_1Click(TObject *Sender);void __fastcall bt_2Click(TObject *Sender);void __fastcall bt_3Click(TObject *Sender);void __fastcall bt_4Click(TObject *Sender);void __fastcall bt_5Click(TObject *Sender);void __fastcall bt_6Click(TObject *Sender);void __fastcall bt_9Click(TObject *Sender);void __fastcall bt_iAndmClick(TObject *Sender);void __fastcall bt_incClick(TObject *Sender);void __fastcall bt_eqClick(TObject *Sender);void __fastcall bt_decClick(TObject *Sender);void __fastcall bt_mulClick(TObject *Sender);void __fastcall Show_EditorKeyPress(TObject *Sender, char &Key);void __fastcall bt_divClick(TObject *Sender);void __fastcall bt_LeftcClick(TObject *Sender);void __fastcall bt_ceClick(TObject *Sender);void __fastcall bt_bkspaceClick(TObject *Sender);void __fastcall bt_xpfClick(TObject *Sender);void __fastcall bt_xlfClick(TObject *Sender);void __fastcall bt_xycfClick(TObject *Sender);void __fastcall bt_lshClick(TObject *Sender);void __fastcall bt_modClick(TObject *Sender);void __fastcall bt_njcClick(TObject *Sender);void __fastcall sjzClick(TObject *Sender);void __fastcall ejzClick(TObject *Sender);void __fastcall sljzClick(TObject *Sender);void __fastcall bjzClick(TObject *Sender);void __fastcall bt_andClick(TObject *Sender);void __fastcall bt_xorClick(TObject *Sender);private: // User declarationspublic: // User declarations__fastcall TMainForm(TComponent* Owner);void __fastcall TMainForm::ShowText(HIGH a);};//---------------------------------------------------------------------------extern PACKAGE TMainForm *MainForm;//---------------------------------------------------------------------------#endif④Main.cpp#include<vcl.h>#include<calc.h>#pragma hdrstop#include "Main.h"//---------------------------------------------------------------------------#pragma package(smart_init)#pragma resource "*.dfm"using namespace std ;TMainForm*MainForm ;//---------------------------------------------------------------------------__fastcall TMainForm :: TMainForm(TComponent*Owner):TForm(Owner){}//---------------------------------------------------------------------------void __fastcall TMainForm :: ShowText(HIGH a) /*显示函数*/{nowShow=a ;AnsiString str ;int med,i,j ;if(jz==2)a=bin(a);elseif(jz==8)a=bajinzhi(a);elseif(jz==16)a=hex(a);med=getMed(a);bool m=(a.num[0]==-1)?true:false ;if(med<=MAXSHOW){if(m){i=1 ;str="-" ;}else i=0 ;for(j=med;(m)?(i<=med):(i<med);i++,j--){str+=(a.num[j]>9)?getHexStr(a.num[j]):IntToStr(a.num[j]);}Show_Editor->Text=str ;}else{if(m){i=1 ;str="-" ;}else i=0 ;int e=med-1 ;for(j=med;(m)?(i<=40):(i<40);i++,j--){str+=IntToStr(a.num[j]);if((m)?i==1:i==0)str+='.' ;}str+="E+"+IntToStr(e);Show_Editor->Text=str ;}}void __fastcall TMainForm :: FormCreate(TObject*Sender) /*窗体创建*/ {initNum(&actNum);initNum(&ans);}//---------------------------------------------------------------------------void __fastcall TMainForm :: bt_7Click(TObject*Sender){if(_lastKey==key_sym)initNum(&actNum);if(_lastKey==key_sym&&nowSym=='N'){initNum(&ans);lastSym='N' ;}incMed(&actNum,7);ShowText(actNum);_lastKey=key_num ;}//---------------------------------------------------------------------------void __fastcall TMainForm :: bt_8Click(TObject*Sender){if(_lastKey==key_sym)initNum(&actNum);if(_lastKey==key_sym&&nowSym=='N'){initNum(&ans);lastSym='N' ;}incMed(&actNum,8);ShowText(actNum);_lastKey=key_num ;}//---------------------------------------------------------------------------void __fastcall TMainForm :: bt_0Click(TObject*Sender){if(_lastKey==key_sym)initNum(&actNum);if(_lastKey==key_sym&&nowSym=='N'){initNum(&ans);lastSym='N' ;}incMed(&actNum,0);ShowText(actNum);_lastKey=key_num ;}//---------------------------------------------------------------------------void __fastcall TMainForm :: bt_1Click(TObject*Sender){if(_lastKey==key_sym)initNum(&actNum);if(_lastKey==key_sym&&nowSym=='N'){initNum(&ans);lastSym='N' ;}incMed(&actNum,1);ShowText(actNum);_lastKey=key_num ;}//--------------------------------------------------------------------------- void __fastcall TMainForm :: bt_2Click(TObject*Sender) {if(_lastKey==key_sym)initNum(&actNum);if(_lastKey==key_sym&&nowSym=='N'){initNum(&ans);lastSym='N' ;}incMed(&actNum,2);ShowText(actNum);_lastKey=key_num ;}//--------------------------------------------------------------------------- void __fastcall TMainForm :: bt_3Click(TObject*Sender) {if(_lastKey==key_sym)initNum(&actNum);if(_lastKey==key_sym&&nowSym=='N'){initNum(&ans);lastSym='N' ;}incMed(&actNum,3);ShowText(actNum);_lastKey=key_num ;}//--------------------------------------------------------------------------- void __fastcall TMainForm :: bt_4Click(TObject*Sender) {if(_lastKey==key_sym)initNum(&actNum);if(_lastKey==key_sym&&nowSym=='N'){initNum(&ans);lastSym='N' ;}incMed(&actNum,4);ShowText(actNum);_lastKey=key_num ;}//--------------------------------------------------------------------------- void __fastcall TMainForm :: bt_5Click(TObject*Sender) {if(_lastKey==key_sym)initNum(&actNum);if(_lastKey==key_sym&&nowSym=='N'){initNum(&ans);lastSym='N' ;}incMed(&actNum,5);ShowText(actNum);_lastKey=key_num ;}//--------------------------------------------------------------------------- void __fastcall TMainForm :: bt_6Click(TObject*Sender) {if(_lastKey==key_sym)initNum(&actNum);if(_lastKey==key_sym&&nowSym=='N'){initNum(&ans);lastSym='N' ;}incMed(&actNum,6);ShowText(actNum);_lastKey=key_num ;}//--------------------------------------------------------------------------- void __fastcall TMainForm :: bt_9Click(TObject*Sender) {if(_lastKey==key_sym)initNum(&actNum);if(_lastKey==key_sym&&nowSym=='N'){initNum(&ans);lastSym='N' ;}incMed(&actNum,9);ShowText(actNum);_lastKey=key_num ;}//--------------------------------------------------------------------------- void __fastcall TMainForm :: bt_iAndmClick(TObject*Sender) {turnSym(&actNum);ShowText(actNum);}//--------------------------------------------------------------------------- void __fastcall TMainForm :: bt_incClick(TObject*Sender) {doAns(&ans,actNum,&nowSym,'+',lastSym,_lastKey);ShowText(ans);lastSym=nowSym ;nowSym='+' ;actNum=ans ;//initNum(&actNum);_lastKey=key_sym ;}//--------------------------------------------------------------------------- void __fastcall TMainForm :: bt_eqClick(TObject*Sender) {doAns(&ans,actNum,&nowSym,'N',lastSym,_lastKey);if(nowSym!='N')lastSym=nowSym ;ShowText(ans);nowSym='N' ;//actNum = ans;//initNum(&actNum);_lastKey=key_sym ;}//---------------------------------------------------------------------------void __fastcall TMainForm :: bt_decClick(TObject*Sender){doAns(&ans,actNum,&nowSym,'-',lastSym,_lastKey);ShowText(ans);lastSym=nowSym ;nowSym='-' ;actNum=ans ;//initNum(&actNum);_lastKey=key_sym ;}//---------------------------------------------------------------------------void __fastcall TMainForm :: bt_mulClick(TObject*Sender){doAns(&ans,actNum,&nowSym,'*',lastSym,_lastKey);ShowText(ans);lastSym=nowSym ;nowSym='*' ;actNum=ans ;//initNum(&actNum);_lastKey=key_sym ;}//---------------------------------------------------------------------------void __fastcall TMainForm :: bt_divClick(TObject*Sender){doAns(&ans,actNum,&nowSym,'/',lastSym,_lastKey);ShowText(ans);lastSym=nowSym ;nowSym='/' ;actNum=ans ;//initNum(&actNum);_lastKey=key_sym ;}//---------------------------------------------------------------------------void __fastcall TMainForm :: Show_EditorKeyPress(TObject*Sender,char&Key) {if(Key>='0'&&Key<='9'){if(_lastKey==key_sym)initNum(&actNum);if(_lastKey==key_sym&&nowSym=='N')initNum(&ans);incMed(&actNum,Key-'0');ShowText(actNum);_lastKey=key_num ;}elseif(Key=='+')bt_incClick(Sender);elseif(Key=='-')bt_decClick(Sender);elseif(Key=='*')bt_mulClick(Sender);elseif(Key=='/')bt_divClick(Sender);elseif(Key=='^')bt_xycfClick(Sender);elseif(Key=='!')bt_njcClick(Sender);elseif(Key==13)bt_eqClick(Sender);elseif(Key==8)bt_bkspaceClick(Sender);}//--------------------------------------------------------------------------- void __fastcall TMainForm :: bt_LeftcClick(TObject*Sender) {initNum(&actNum);ShowText(actNum);}//--------------------------------------------------------------------------- void __fastcall TMainForm :: bt_ceClick(TObject*Sender){initNum(&ans);initNum(&actNum);_lastKey=key_num ;nowSym='N' ;lastSym='N' ;ShowText(actNum);}//--------------------------------------------------------------------------- void __fastcall TMainForm :: bt_bkspaceClick(TObject*Sender) {decMed(&actNum);ShowText(actNum);}//--------------------------------------------------------------------------- void __fastcall TMainForm :: bt_xpfClick(TObject*Sender) {doAns(&ans,actNum,&nowSym,'2',lastSym,_lastKey);lastSym=nowSym ;nowSym='2' ;doAns(&ans,actNum,&nowSym,'N',lastSym,_lastKey);ShowText(ans);actNum=ans ;//initNum(&actNum);_lastKey=key_sym ;}//--------------------------------------------------------------------------- void __fastcall TMainForm :: bt_xlfClick(TObject*Sender) {doAns(&ans,actNum,&nowSym,'3',lastSym,_lastKey);lastSym=nowSym ;nowSym='3' ;doAns(&ans,actNum,&nowSym,'N',lastSym,_lastKey);ShowText(ans);actNum=ans ;//initNum(&actNum);_lastKey=key_sym ;}//--------------------------------------------------------------------------- void __fastcall TMainForm :: bt_xycfClick(TObject*Sender) {doAns(&ans,actNum,&nowSym,'Y',lastSym,_lastKey);ShowText(ans);lastSym=nowSym ;nowSym='Y' ;actNum=ans ;//initNum(&actNum);_lastKey=key_sym ;}//--------------------------------------------------------------------------- void __fastcall TMainForm :: bt_lshClick(TObject*Sender) {doAns(&ans,actNum,&nowSym,'L',lastSym,_lastKey);ShowText(ans);lastSym=nowSym ;nowSym='L' ;actNum=ans ;//initNum(&actNum);_lastKey=key_sym ;}//--------------------------------------------------------------------------- void __fastcall TMainForm :: bt_modClick(TObject*Sender) {doAns(&ans,actNum,&nowSym,'M',lastSym,_lastKey);ShowText(ans);lastSym=nowSym ;nowSym='M' ;actNum=ans ;//initNum(&actNum);_lastKey=key_sym ;}。