计算器怎么写

1. 怎么写计算器设计报告

目 录 1 前言 2 2 需求分析 2 2.1要求 2 2.2任务 2 2.3运行环境 2 2.4开发工具 2 3 概要设计 2 3.1系统流程图 3 3.2查询函数流程图 4 4 详细设计 6 4.1分析和设计 6 4.2具体代码实现 6 4.3程序运行结果 14 5 课程设计总结 14 参考文献 15 致 谢 15 1 前言 编写一个程序来实现算术计算器。

通过结构体数组和共用体数组来存放输入的每一数字或运算符号的记录（包括1、2、3等数字，+、--、*、等运算符号），然后将其信息存入文件中。输入一个算术计算式，就在屏幕上显示结果。

2 需求分析 2.1要求 （1）用C语言实现程序设计； （2）利用结构体、共用体进行相关信息处理； （3）画出查询模块的流程图； （4）系统的各个功能模块要求用函数的形式实现； （5）界面友好（良好的人机互交），程序要有注释。 2.2任务 （1）定义一个结构体类型数组，输入0~9及+、--、*等符号的信息，将其信息存入文件中； （2）输入简单的加减乘除算术计算式，并在屏幕上显示计算结果； （3）画出部分模块的流程图； （4）编写代码； （5）程序分析与调试。

2.3运行环境 （1）WINDOWS2000/XP系统 （2）TurboC2.0编译环境 2.4开发工具 C语言 3 概要设计 3.1系统流程图 如图3.1所示。 w 图3.1 系统流程图 3.2查询函数流程图 （1） 边界画线函数流程图 （2）图标按钮设置函数流程图 4 详细设计 4.1分析和设计 （1）在程序的开头部分定义了结构体类型，用来存放按钮信息，使数据能够从键盘上输入。

用输入函数input（)来输入按键放在button[]数组中。再定义结构体栈：struct_stack（) 用于数据的输入和存放。

（2）进而定义了表格窗口函数，窗口画线函数draw_win（) 和边界线函数draw_border（)，定义out_text_win（)输出文本窗口，定义window_xy(32,3)； 计算结果窗口。通过这些为形成整个界面提供了大的前提。

（3）接着通过“write_char()”,“active_button()”,“ write_top()”,“out_text_win()”, “get_key()” ,“window_xy（)”等一系列的函数，使得计算器的整个外型呈现了出来。再定义了文本光标函数：text_clo（)文本光标函数，通过光标移动选定数字并按空格键确定，通过mian（)函数来调用各个子函数，最终得到结果。

4.2具体代码实现 源程序代码： #include"dos.h" #include"conio.h" #include"string.h" #include"stdio.h" #define normbut_bor 0x80 #define presbut_but 0xb8 #define normnum_but 0x8e #define presnum_but 0xb9 #define spebut_char 0x2c #define win_color 0xf2 #define win_char 0xfb struct s_button /*按键的结构体*/ { int sx,sy,ex,ey; char *head; int press; }button[17]； /*图表按键数*/ struct stack /*结构体栈*/ { char s[20]; int tos,top; }stack; char tag; { if(stack.tos>0) stack.s[--stack.tos]='\0'; } draw_win（) /*边框画线窗口*/ { int i; char far *t; char *s="This is a simple calculator！"； /*顶端边框输出的字符*/ draw_border(30,0,79,24,win_color)； /*边框的位置和颜色*/ i=(79-30-strlen(s))/2+30; t=vid_mem+i*2; for(;*s;) { *t++=*s++; *t++=win_color； /*顶端字体颜色*/ } } draw_border(int sx,int sy,int ex,int ey,int attrib) /*边界线函数*/ { char far *t,far *v; int i; t=vid_mem; for(i=sx+1;i

2. 简单计算器程序怎么编写

这种运算比较麻烦，不过4种运算符号优先级相同应该简单写，我这里有个算法，能进行简单的四则运算，delphi的，供参考Function Math_Evaluate(S0:string):Extended; Function Evaluate(S0:String):Extended;Forward; Procedure CleanUp(var s0:string); Var I:integer; Begin S0:=LowerCase(s0); I:=Pos(' ',s0); While I>0 Do Begin Delete(S0,I,1); I:=Pos(' ',S0); End; End; Function GetFirstOpp(Tot:Integer;S0:String):Integer; Const Sopps:String=('+-*/^'); Var I:Integer; Begin If Tot=0 Then Tot:=Length(S0); For I:=1 To 5 Do Begin Result:=Pos(Sopps[i],S0); If ((I<3) And (Result>0)) Then If ((Result=1) Or (Pos(S0[Result-1],Sopps)>0)) Then Result:=0; If Result>0 Then If ResultTot Then Result:=0; End; Function SpecialF(P1:Integer;S0:String):Extended; Var Operstr:String; Arg:Extended; Begin Result:=0; Operstr:=Copy(S0,1,P1-1); If S0[Length(S0)]<>')' Then Exit; Operstr:=LowerCase(Operstr); Arg:=Evaluate(Copy(S0,P1+1,Length(S0)-P1-1)); if Operstr ='sin' Then Result:=Sin(Arg) Else if Operstr ='cos' Then Result:=Cos(Arg) Else if Operstr ='tan' Then Result:=Sin(Arg)/Cos(Arg) Else if Operstr ='arctan' Then Result:=Arctan(Arg) Else if Operstr ='log' Then Result:=Ln(Arg)/Ln(10) Else if Operstr ='ln' Then Result:=Ln(Arg) Else if Operstr ='exp' Then Result:=Exp(Arg) Else if Operstr ='sqrt' Then Result:=Sqrt(Arg) {enter additional functions here} Else Exit; End; Function GetValue(S0:String):Extended; Begin Result:=0; If Length(S0)<1 Then Exit; If Length(S0)=1 Then Result:=StrToFloat(S0) Else Case s0[1] Of 'x':Result:=1; 'y':Result:=1; 'z':Result:=1; Else Result:=StrToFloat(S0); End; End; Procedure MatchBracket(Var I:Integer;S0:String); Var J,Len:Integer; Begin J:=1; Len:=Length(S0); Repeat Inc(I); If I>Len Then Exit; If S0[I]='(' Then Inc(J); If S0[I]=')' Then Dec(J); If J<0 Then Exit; Until J=0; End; Function Calculate(P1:Integer;S0:String):Extended; Var V1,V2:Extended; Begin Result:=0; V1:=Evaluate(Copy(S0,1,P1-1)); V2:=Evaluate(Copy(S0,P1+1,Length(s0)-P1)); Case S0[P1] Of '+': Result:=V1+V2; '-': Result:=V1-V2; '/': Result:=V1/V2; '*': Result:=V1*V2; '^': Result:=Exp(V2*Ln(V1)); Else Exit; End; End; Function Evaluate(S0:string):Extended; Var P1,P2,Q1:Integer; Begin P1:=Pos('(',S0); P2:=P1; If P2>0 Then MatchBracket(P2,S0); If P1=1 Then Begin If P2=Length(S0) Then Begin Delete(S0,P2,1); Delete(S0,1,1); Result:=Evaluate(S0); End Else Result:=Calculate(P2+1,S0); Exit; End; Q1:=GetFirstOpp(P1,S0); If (P1+Q1=0) Then Begin Result:=GetValue(S0); Exit; End; If Q1<>0 Then Result:=Calculate(Q1,S0) Else If Length(S0)>P2 Then Result:=Calculate(P2+1,S0) Else Result:=SpecialF(P1,S0); End;Begin Try CleanUp(S0); Result:=Evaluate(S0); Except Result:=0; End;End;。

转载请注明出处育才学习网 » 计算器怎么写