专业课程设计计算器制作.docVIP

第一章 系统分析 1．1 系统设计要求： 1．利用Delphi开发工具制作一计算器，该计算器要求实现基本四则运算。 2．实现统计计算，三角运算，对数运算，逻辑运算。 3．实现十六进制，十进制，八进制，二进制的转换。 1．2 系统原理框图 本次课程设计的原理框图如图1.1所示： 图1.1系统原理框图 1．3 系统设计原理 计算器的制作的实现主要 第二章 系统设计过程 2.1 概要设计 1. 各组件的基本使用该设计要求的主要是数学上的简单计算需要输入的控件和输出的控件（显示结果）输入控件使用button。而输出控件使用便于编辑的edit框来实现。功能模块设计 从界面上来看，程序分两个部分菜单和按钮。 从软件构架上分为输入模块和输出模块。 输入模块程序的主要是按钮的单击事件。输出模块主要是EDIT框的text属性的变化var i:real; begin num2:=strtonum(edit1.text,haob); if sign=1 then begin if num2=0 then application.MessageBox(除数为零，不能运算！,提示信息,mb_ok) else begin num3:=num1 / num2; edit1.Text:=numtostr(num3,haob); end; end else if sign=2 then begin num3:=num1*num2; edit1.text:=numtostr(num3,haob); end else if sign=3 then begin num3:=num1-num2; edit1.text:=numtostr(num3,haob); end else if sign=4 then begin num3:=num1+num2; edit1.text:=numtostr(num3,haob); end。 2.统计运算 实现求和，就平均值的计算。核心源程序：var s:real; i:integer; begin s:=0; for i:=1 to stat_count do s:=s+stat_mem[i]; s:=s /stat_count; Edit1.text:=numtostr(s,haob); end; var s:real; i:integer; begin s:=0; for i:=1 to stat_count do s:=s+stat_mem[i]; Edit1.text:=numtostr(s,haob); end; 3.三角运算 实现正弦，余弦，正切函数的计算。核心源程序：var t1:real; t2:extended; s:string; begin t1:=strtofloat(Edit1.text); if radiobutton5.Checked then t1:=t1 * 3.14159 /180; t2:=sin(t1); str(t2:6:4,s); edit1.text:=s; 4.对数运算 实现Ln,log的运算。核心源程序：var s:real; s1:string; begin s1:=edit1.text; s:=strtonum(s1,haob); if s0 then begin s:=log10(s); edit1.text:=numtostr(s,haob); end else application.MessageBox(数值错误，请检查！,提示信息,mb_ok); end; 5.逻辑运算 实现与,或,非的运算.核心源程序: if sign=7 then begin if num1*num2=0 then num3:=0 else num3:=1; edit1.text:=numtostr(num3,haob); end else if sign=8 then begin