delphi编写计算器实验报告一.docxVIP

实 验 报 告 学号：080304041 姓名：林燕玉 专业：08 信管 班级：＿＿＿＿ 第 8 周 课程名称 面向对象程序设计 实验课时 6 实验项目 简易计算器 实验时间 2010-4-9 至 2010-4-23 实验目的 1、掌握 DELPHI 函数和过程的定义及使用方法 2、熟练使用全局变量和局部变量进行程序设计 实验环境 1、Windows Xp 2、DELPHI 7 实验内容 和完成情 况 实验内容： unit U4_9; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; Button5: TButton; Button6: TButton; Button7: TButton; Button8: TButton; Button9: TButton; Button10: TButton; Button11: TButton; Button12: TButton; Button13: TButton; Button14: TButton; Button15: TButton; Button16: TButton; Button17: TButton; Button18: TButton; Button19: TButton; edit1: TEdit; procedure Button5Click(Sender: TObject); procedure Button6Click(Sender: TObject); procedure Button7Click(Sender: TObject); procedure Button9Click(Sender: TObject); procedure Button10Click(Sender: TObject); procedure Button11Click(Sender: TObject); procedure Button13Click(Sender: TObject); procedure Button14Click(Sender: TObject); procedure Button15Click(Sender: TObject); procedure Button17Click(Sender: TObject); procedure Button19Click(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button8Click(Sender: TObject); procedure Button12Click(Sender: TObject); procedure Button16Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure Button18Click(Sender: TObject); procedure Button3Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; num1,num2:real; ittype:integer; flag:boolean=true; new:boolean=true; implementation {$R *.dfm} procedure TForm1.Button5Click(Sender: TObject); begin if new then edit1.Text:=edit1.Text+7 else begin edit1.clear; 1.Text:=edit1.Text+7; :=true; new:=true; end; end; procedure TForm1.Button6Click(Sender: TObject); begin if new then edit1.Text:=edit1.Text+8 else begin edit1.clear; 1.Text:=edit1.Text