实验报告(用DELPHI做一个简易计算器)

数据库实验报告

姓名：

学号：

专业：

院系：

实验二、用熟悉Delphi的开发环境,用Delphi设计一个简易的计算器

一、实验目的

1、练习Delphi中Edit组件和Button组件的使用方法。

2、能实现计算器的基本功能。

3、要求界面的设计具有个性化。

4、提交的程序前面要有分析，中间应有注释。

二、实验分析：

在设计的时候，首先考虑其“计算”功能的实现。可以通过编辑框edit的形式输入要操作的数据，然后通过选择button按键来选择运算方式。在设计时，我考虑了最基本的“加”“减”“乘”“除”运算，另外加入了“取倒数”以及“求平方”和“求立方”的操作。当然，这些操作都可以在“乘”“除”运算中实现，只是为了计算更而已。

二：实验步骤

1、实验代码：

unit Unit1;

interface

uses

Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,

Dialogs,StdCtrls;

type

TForm1=class(TForm)

Label1:TLabel;

Edit1:TEdit;

Label2:TLabel;

Edit2:TEdit;

Label3:TLabel;

Label4:TLabel;

Edit3:TEdit;

Button1:TButton;

Button2:TButton;

Button3:TButton;

Button4:TButton;

Button5:TButton;

Button6:TButton;

Button7:TButton;

Label5:TLabel;

Edit4:TEdit;

Label6:TLabel;

Label7:TLabel;

Edit5:TEdit;

Label8:TLabel;

Label9:TLabel;

Button8:TButton;

Button9:TButton;

procedure button1click(Sender:TObject);

procedure button2click(Sender:TObject);

procedure button3click(Sender:TObject);

procedure button4click(Sender:TObject);

procedure button5click(Sender:TObject);

procedure button6click(Sender:TObject);

procedure button7click(Sender:TObject);

procedure Button8Click(Sender:TObject);

procedure button9click(Sender:TObject);

private

{Private declarations}

public

{Public declarations}

end;

var

Form1:TForm1;

implementation

{$R*.dfm}

procedure TForm1.button1click(Sender:TObject);//第一个button，进行“加”操作var

x1,x2,x3:double;

begin

x1:=strtofloat(edit1.text);

x2:=strtofloat(edit2.text);

x3:=x1+x2;

edit3.text:=floattostr(x3);

end;

procedure TForm1.button2click(Sender:TObject);//第二个button，进行“减”操作var

x1,x2,x3:double;

begin

x1:=strtofloat(edit1.text);

x2:=strtofloat(edit2.text);

x3:=x1-x2;

edit3.text:=floattostr(x3);

end;

procedure TForm1.button3click(Sender:TObject);//第三个button，进行“乘”操作var

x1,x2,x3:double;

begin

x1:=strtofloat(edit1.text);

x2:=strtofloat(edit2.text);

x3:=x1*x2;

edit3.text:=floattostr(x3);

end;

procedure TForm1.button4click(Sender:TObject);//第四个button，进行“除”操作var

x1,x2,x3:double;

begin

x1:=strtofloat(edit1.text);

x2:=strtofloat(edit2.text);

if(x2<>0)then

begin

x3:=x1/x2;

edit3.text:=floattostr(x3);

end

else showmessage('除数不能为空或0')

end;

procedure TForm1.button5click(Sender:TObject);//第五个button，进行“清零”操作var

x1,x2,x3,x4,x5:double;

begin

x1:=strtofloat(edit1.text);

x2:=strtofloat(edit2.text);

x3:=strtofloat(edit3.text);

x4:=strtofloat(edit4.text);

x5:=strtofloat(edit5.text);

x1:=0;

x2:=0;

x3:=0;

x4:=0;

x5:=0;

edit1.text:=floattostr(x1);

edit2.text:=floattostr(x2);

edit3.text:=floattostr(x3);

edit4.text:=floattostr(x4);

edit5.text:=floattostr(x5);

end;

procedure TForm1.button6click(Sender:TObject);//第六个button，进行“取倒数”操作var

x4,x5:double;

begin

x4:=strtofloat(edit4.text);

if(x4<>0)then

begin

x5:=1/x4;

edit5.text:=floattostr(x5);

end

else showmessage('请输入非零数字');

end;

procedure TForm1.button7click(Sender:TObject);//第七个button，进行“取平方”操作var

x4,x5:double;

begin

x4:=strtofloat(edit4.text);

x5:=x4*x4;

edit5.text:=floattostr(x5);

end;

procedure TForm1.Button8Click(Sender:TObject);//第八个button，进行“取立方”操作var

x4,x5:double;

begin

x4:=strtofloat(edit4.text);

x5:=x4*x4*x4;

edit5.text:=floattostr(x5);

end;

procedure TForm1.button9click(Sender:TObject);//第九个button，如果第一个

//编辑框里输入x，第二个编辑框里输入n，可以求出x的n次幂。var

x1,x2,x3:double;

begin

x1:=strtofloat(edit1.text);

x2:=strtofloat(edit2.text);

if(x2=4)then

begin

x3:=x1*x1*x1*x1;

edit3.text:=floattostr(x3);

end

else if(x2=5)then

begin

x3:=x1*x1*x1*x1*x1;

edit3.text:=floattostr(x3);

end

else if(x2=6)then

begin

x3:=x1*x1*x1*x1*x1*x1;

edit3.text:=floattostr(x3);

end

else if(x2=7)then

begin

x3:=x1*x1*x1;

edit3.text:=floattostr(x3);

end

else if(x2=3)then

begin

x3:=x1*x1*x1*x1*x1*x1*x1;

edit3.text:=floattostr(x3);

end

else if(x2=8)then

begin

x3:=x1*x1*x1*x1*x1*x1*x1*x1;

edit3.text:=floattostr(x3);

end

else if(x2=9)then

begin

x3:=x1*x1*x1*x1*x1*x1*x1*x1*x1; edit3.text:=floattostr(x3);

end

else if(x2=10)then

begin

x3:=x1*x1*x1*x1*x1*x1*x1*x1*x1*x1; edit3.text:=floattostr(x3);

end

end;

end.

2、实验现象：

1）运行成功以后的计算器界面2）正确输入计算9*8和6的立方

在正确运算（即edit2中的除数不为零，取倒数的数字X不为0）加减乘除以及取倒数、求平方、求立方时，计算器均显示正常的相应的运算结果。

下面是进行求x的n次幂或者进行了错误操作时的现象：

3）正确运算了7的5次方4）运算的次方数超出了4~10时

4）当进行“除”操作且输入的除数为0时5）当进行“1/x”操作且x为0时

5）当运算结束，点击了“清零”时6）运算数为小数的操作数

3、实验心得

Delphi 可以实现可视化的设计与操作，它的一些语言和法则与以前学过的C 语言以及C++是不同的。在设计计算器的时候我遇到了很多障碍，但通过查阅资料和问同学等方式，最终解决了这些问题。

但是这次设计的计算器所用的程序都是很基本很简单的，当涉及到一些更复杂的函数运算，比如求三角函数或者是开方的运算以及要用到循环递归嵌套调用等一些问题的时候，目前还是觉得相当困难。

并且在我设计的计算器中存在一个问题，就是只有当五个编辑框里都有数字（不论是什么数字）时，点击“清零”按钮才会实现清零的功能，否则如果有编辑框为空的时候就会导致该计算器死机。这个问题我还没有想到如何解决，希望可以在今后的学习中找出答案。