511函数的定义与使用(4) 【例5-1】定义一个求两个实数中较大数的函数,并利用该函数求三个实数中 的最大值 分析:定义一个新的函数,函数名为MaxO,该函数的功能是对两个实数 求出最大值,输入的参数是两个实数ⅹ、y,注意输入量不能为其他类型的常量 或变量,输出z是两个实数中较大的一个值,在程序中可以利用语句实现两 数的比较。 求三个数中的最大值可以先求两个数中的最大值,再与第三个数做比较, 大者为三个数中的最大值 启动 Delphi7.0,新建一个工程,在其中添加标签 Label, Label2,将两标 签的 Caption属性值分别改为“输入三个实数”和“三个数中的最大值是”, 并适当更改字体属性。添加四个编辑框,默认名分别为Eidt1、Eidt2、Edit3、 Ed4,将它们的Text属性值均改为“0”,再添加一个按钮 Button1并将其 Caption属性值改为“比较”界面,将组件按适当位置摆放,如图5-1所示。 Inprise Dephi
5.1.1 函数的定义与使用(4) 【例5-1】定义一个求两个实数中较大数的函数，并利用该函数求三个实数中 的最大值。 分析：定义一个新的函数，函数名为Ｍax()，该函数的功能是对两个实数 求出最大值，输入的参数是两个实数x、y，注意输入量不能为其他类型的常量 或变量，输出z是两个实数中较大的一个值，在程序中可以利用IF语句实现两 数的比较。 求三个数中的最大值可以先求两个数中的最大值，再与第三个数做比较， 大者为三个数中的最大值。 启动Delphi 7.0，新建一个工程，在其中添加标签Label，Label2，将两标 签的Caption属性值分别改为“输入三个实数”和“三个数中的最大值是”， 并适当更改字体属性。添加四个编辑框，默认名分别为Eidt1、Eidt2、Edit3、 Edit4，将它们的Text属性值均改为“0”，再添加一个按钮Button1并将其 Caption属性值改为“比较”界面，将组件按适当位置摆放，如图5-1所示
511函数的定义与使用(5) ③双击“比较”按钮,在自动生成的 TOn1. Button1Cick()过程中添加变 量定乂语句和事件处理语句 procedure TForm1. Button 1Click(Sender: TObject) var a, b c real begin 比较三个数的大小 输入三个实数 a:=strtofloat(edit1 text) b =strtofloat(edita. text) C:=strtofloat(edit3 text) 三个数中的最大值是 edit4. text: =floattostr(max(max(a, b), c)) end 图5-1比较三个数的大小 ③双击“比较”按钮,在自动生成的 TForm1. Button 1click()过程中添加 变量定义语句和事件处理语句 procedure TForm1.Button 1Click ( Sender: TObject) var a b c real Inprise Dephi
5.1.1 函数的定义与使用(5) 双击“比较”按钮，在自动生成的TForm1.Button1Click（）过程中添加变 量定义语句和事件处理语句。 procedure TForm1.Button1Click(Sender: TObject); var a,b,c:real; begin a:=strtofloat(edit1.text); b:=strtofloat(edit2.text); c:=strtofloat(edit3.text); edit4.text:=floattostr(max(max(a,b),c)); end; 图5-1 比较三个数的大小 双击“比较”按钮，在自动生成的TForm1.Button1Click（）过程中添加 变量定义语句和事件处理语句。 procedure TForm1.Button1Click(Sender: TObject); var a,b,c:real;
511函数的定义与使用(6) begin a:=strtofloat(edit 1. text) b: =strtofloat(edita.text C:=strtofloat(edit3 text) edit4.text: =floattostr(max(max(a, b), c) end: 在这个求三个数最大值过程中用到了两个标准函数 strtofloato和 floattostr0 个用户自定义函数maxO。其中 strtofloat()函数的作用是把字符串转化为实 数,而 floattostr(函数的作用与之相反,它的作用是把实数转化为字符串。 由于 Object Pascal是一种强类型语言,所以在编程中应当注意类型的转化。 为了使MaⅫO函数能够被正常调用,必须将MaxO的定义语句添加到按钮事件 声明语句之前。该函数定义如下 function max(x,y: real) real ∥该句也可以写为 function maxi( .real; y;rea)real; begin Inprise Dephi
begin a:=strtofloat(edit1.text); b:=strtofloat(edit2.text); c:=strtofloat(edit3.text); edit4.text:=floattostr(max(max(a,b),c)); end; 5.1.1 函数的定义与使用(6) 在这个求三个数最大值过程中用到了两个标准函数strtofloat()和floattostr()、 一个用户自定义函数max()。其中strtofloat()函数的作用是把字符串转化为实 数，而floattostr()函数的作用与之相反，它的作用是把实数转化为字符串。 由于Object Pascal是一种强类型语言，所以在编程中应当注意类型的转化。 为了使Max()函数能够被正常调用，必须将Ｍax()的定义语句添加到按钮事件 声明语句之前。该函数定义如下： function max(x,y:real):real; //该句也可以写为function max(x:real;y:real):real; begin
511函数的定义与使用(7) if x>y then result: =X else result: =y end ③保存工程并运行,在三个编辑框中分别输入三个实数,单击 “比较”按钮则在第四个编辑框中显示出三个数中的最大值。 注意不得输入非法字符,否则程序会出现运行错误。 Inprise Dephi
5.1.1 函数的定义与使用(7) if x>y then result:=x else result:=y; end; 保存工程并运行，在三个编辑框中分别输入三个实数，单击 “比较”按钮则在第四个编辑框中显示出三个数中的最大值。 注意不得输入非法字符，否则程序会出现运行错误
512过程的定义与使用(1) object Pascall的过程分标准过程和自定义过程两种。标准过程 是指系统内部定义的过程,无需编写代码可直接调用。而自定义过 程则是由程序员编写代码用以完成指定的操作,包括事件过程和通 用过程。 过程在使用之前必须定义,定义一个过程也称为过程声明。定义 个过程的一般形式为 Procedure<过程名>[(<形参表>)] <局部声明>] begin [<语句列 end 1.过程首部 过程名的命名规则与变量名相同,一个过程只能有一个惟一的过程名。 形参表由若干个形式参数组成,它指明了从调用过程传递给过程的实际 参数个数和类型,所有的形式参数必须说明类型,相同类型的形参之间 用逗号隔开,不同类型的形参之间用分号隔开。 prise Dephi
5.1.2 过程的定义与使用(1) Object Pascal的过程分标准过程和自定义过程两种。标准过程 是指系统内部定义的过程，无需编写代码可直接调用。而自定义过 程则是由程序员编写代码用以完成指定的操作，包括事件过程和通 用过程。 过程在使用之前必须定义，定义一个过程也称为过程声明。定义一 个过程的一般形式为： Procedure < 过程名> [ ( < 形参表 > ) ] [ < 局部声明 > ] begin [ < 语句列 > ] end； 1. 过程首部 过程名的命名规则与变量名相同，一个过程只能有一个惟一的过程名。 形参表由若干个形式参数组成，它指明了从调用过程传递给过程的实际 参数个数和类型，所有的形式参数必须说明类型，相同类型的形参之间 用逗号隔开，不同类型的形参之间用分号隔开