过程与函数
合集下载
pascal-函数和过程
procedure show(Var a:integer); 形式参数 A 是＿＿＿ 对应的实参必须是变量 变参与实参的关系是传地址 变参可作输入参数，有出口值表示过
程的返回值
例：下列程序的运行结果如何： program ex;
var i,j:integer;
procedure sample(x:integer;var y:integer); begin x:=x+2;y:=y+2; end;
程序 3： Program ex5-8; Var
Total,tatal:lonint; K:integer; Procedure njc(n:longint; var s:longint); Var i:integer; Begin S:=1; For i:=1 to n do S:=s*I; End; {===main===} Begin Total:=0; For k:=2 to 5 do
End; Begin
Write(‘Input 5 numbers : ‘); Readln(n1,n2,n3,n4,n5); T1 := n1; T1 := Max(t1,n2); T1 := Max(t1,n3); T1 := Max(t1,n4); T1 := Max(t1,n5); Writeln(‘Max number : ‘,t1); End. 输入数据：21 45 9 35 7 输出结果为： 2、程序 2 二、program ex7_4;
2.自定义过程：由程序员在程序中定义后再使用。给某个语句序列组成的子程序赋于 一个适当的名字。程序中凡是需要出现这个语句序列的地方，可以简单的写上子程序 的名字。这种完成一个操作的子程序称为过程；子程序的定义称为过程说明。过程说 明由过程首部和过程体组成，其形式如下：
全国浙教版信息技术高中选修1新授课第四节过程和函数教学设计
-下节课每组派代表分享编程成果，讲解程序的设计思路和实现过程。
5.阅读拓展：阅读教材相关章节，了解过程和函数在其他编程语言中的应用，如C++、Java等。
6.创设编程实践环节，让学生在实际操作中掌握知识。通过编写程序、调试程序，培养学生解决问题的能力和编程素养。
7.课后作业和评价方面，设计富有挑战性的编程任务，鼓励学生自主探究和合作学习。同时，注重过程性评价，关注学生在学习过程中的表现，及时发现并解决问题。
8.情感态度与价值观的培养。在教学过程中，关注学生的情感需求，鼓励他们克服困难，勇于挑战。培养学生的创新意识，提高他们编程学习的自信心。
全国浙教版信息技术高中选修1新授课第四节过程和函数教学设计
一、教学目标
（一）知识与技能
本节课程是“全国浙教版信息技术高中选修1”中的第四节，主题为“过程和函数”。通过本节课的学习，学生应当掌握以下知识与技能：
1.理解过程和函数的概念，明确它们在程序设计中的作用和重要性。
2.学会使用流程图来表示算法的执行过程，掌握顺序结构、分支结构和循环结构等基本控制流程。
1.学生已经具备了基本的算法思维，能够理解顺序结构、分支结构和循环结构等概念，但部分学生对将这些结构应用于实际编程中尚存在一定难度。
2.学生在编程语言的学习方面，对语法和基本语句已有一定了解，但对于函数的定义、调用和返回值等抽象概念尚需进一步引导和巩固。
3.学生在小组合作中表现出一定的积极性和协作意识，但个别学生可能存在依赖心理，需要教师在教学过程中适当引导和激励。
2.学会使用流程图表示算法执行过程，提高编程逻辑思维能力。
3.掌握函数的定义、调用和返回值，实现程序模块化设计。
4.注重编程实践，通过编写和调试程序，提高编程能力。
5.阅读拓展：阅读教材相关章节，了解过程和函数在其他编程语言中的应用，如C++、Java等。
6.创设编程实践环节，让学生在实际操作中掌握知识。通过编写程序、调试程序，培养学生解决问题的能力和编程素养。
7.课后作业和评价方面，设计富有挑战性的编程任务，鼓励学生自主探究和合作学习。同时，注重过程性评价，关注学生在学习过程中的表现，及时发现并解决问题。
8.情感态度与价值观的培养。在教学过程中，关注学生的情感需求，鼓励他们克服困难，勇于挑战。培养学生的创新意识，提高他们编程学习的自信心。
全国浙教版信息技术高中选修1新授课第四节过程和函数教学设计
一、教学目标
（一）知识与技能
本节课程是“全国浙教版信息技术高中选修1”中的第四节，主题为“过程和函数”。通过本节课的学习，学生应当掌握以下知识与技能：
1.理解过程和函数的概念，明确它们在程序设计中的作用和重要性。
2.学会使用流程图来表示算法的执行过程，掌握顺序结构、分支结构和循环结构等基本控制流程。
1.学生已经具备了基本的算法思维，能够理解顺序结构、分支结构和循环结构等概念，但部分学生对将这些结构应用于实际编程中尚存在一定难度。
2.学生在编程语言的学习方面，对语法和基本语句已有一定了解，但对于函数的定义、调用和返回值等抽象概念尚需进一步引导和巩固。
3.学生在小组合作中表现出一定的积极性和协作意识，但个别学生可能存在依赖心理，需要教师在教学过程中适当引导和激励。
2.学会使用流程图表示算法执行过程，提高编程逻辑思维能力。
3.掌握函数的定义、调用和返回值，实现程序模块化设计。
4.注重编程实践，通过编写和调试程序，提高编程能力。
第7章 函数(function)与过程(procedure)
bit的参数。当参数送入function之后，首先会判断参数的值是逻辑’0’还是’1’， 若 其 值 为 逻 辑 ’ 0’ ，则 将 数 据 类 型 为 std_logic的 逻 辑 ’ 0’ 指 定 给 返 回 值 ，否 则 将 数 据类型为std_logic的逻辑’1’指定给返回值。这样的解释似乎很可笑，难道数据 类 型 为 std_logic的 逻 辑 ’1’与 数 据 类 型 为 bit的 逻 辑 ’1’有 什 么 不 同 吗 ?外 表 上 当 然是没有，不过在严格的数据类型检查之下就得如此。
Fun ction与 proced ure 之 间 的 差 异 在 于 ：funct ion的 返 回 值 永 远 只 有 一 个 ，而 procedure的 返 回 值 却 可 以 不 只 一 个 。 Function 所 有 的 参 数 都 是 input 信 号 ， 而 procedure的参数却可以是input、output，甚至inout。Function的返回值置于 参数声明之外，而procedure的返回值是放在参数声明之内的。图7-1所示即为上 面所述的差异。
library ieee; use ieee.std_logic_1164.all;
entity V7_1 is port(a,b : in bit; c : out std_logic);
end V7_1;
architecture a of V7_1 is
function bit2std(Inb : bit ) return std_logic is
还 有 一 点 就 是 在 子 程 序 中 所 有 的 语 句 都 是 像 在 process中 的 sequential logic， 所 以 在 第 6章 中 所 使 用 到 的 语 法 都 能 在 子 程 序 中 使 用 。 现 在 让 我 们 看 看子程序的特性。
Fun ction与 proced ure 之 间 的 差 异 在 于 ：funct ion的 返 回 值 永 远 只 有 一 个 ，而 procedure的 返 回 值 却 可 以 不 只 一 个 。 Function 所 有 的 参 数 都 是 input 信 号 ， 而 procedure的参数却可以是input、output，甚至inout。Function的返回值置于 参数声明之外，而procedure的返回值是放在参数声明之内的。图7-1所示即为上 面所述的差异。
library ieee; use ieee.std_logic_1164.all;
entity V7_1 is port(a,b : in bit; c : out std_logic);
end V7_1;
architecture a of V7_1 is
function bit2std(Inb : bit ) return std_logic is
还 有 一 点 就 是 在 子 程 序 中 所 有 的 语 句 都 是 像 在 process中 的 sequential logic， 所 以 在 第 6章 中 所 使 用 到 的 语 法 都 能 在 子 程 序 中 使 用 。 现 在 让 我 们 看 看子程序的特性。
Visual Basic 6.0程序设计教程第5章 过程与函数
5.2 Sub过程
例5.1 编一个交换两个整型变量值的子过程。
Private Sub Swap( X As Integer, Y As Integer) Dim temp As Integer Temp=X : X=Y : Y=Temp End Sub Private Sub command1_click() Dim a%,b% a=val(inputbox(“a=“)) b=val(inputbox(“b=“)) print “a=“;a,”b=“,b call swap(a,b) print “a=“;a,”b=“,b End Sub
5.2.2 通用过程（Sub过程）的定义
子过程的定义形式如下： [Public|Private][Static] Sub 子过程名([形参表])
<局部变量或常数定义> ＜语句组＞ [Exit Sub]
＜语句组＞ End Sub
说明：（1）子过程名：命名规则与变量名规则相同。
子过程名不返回值，而是通过形参与实参的传递得到结果， 调用时可返回多个值。
（2）在函数体内，函数名可以当变量使用，函数的返回值 就是通过对函数名的赋值语句来实现的，在函数过程中至少要 对函数名赋值一次。 （3）AS类型：是指函数返回值的类型，若省略，则函数返 回变体类型值（Variant）。
（4）Exit Function：表示退出函数过程，常常是与选择结 构（If或Select Case语句）联用，即当满足一定条件时，退出 函数过程。 （5）形参数列表：形参的定义与子过程完全相同。 例5.2
第六章 过ห้องสมุดไป่ตู้与函数
本章要求：
掌握Sub子程序和Function函数过程的定义和调 用方法； 掌握传址和传值两种参数传递方式的区别及其 用途； 熟悉数组参数的使用方法； 了解过程的嵌套调用和递归调用的执行过程； 掌握过程作用域的有关概念； 掌握变量的作用域和生存期
第13课(子程序(过程与函数))
变量的作用域
写出下列程序的运行结果: 例 写出下列程序的运行结果
var x,y:integer; 运行结果如下: 运行结果如下 procedure a; *1*2 var x:integer; #2# begin #2# x:=2; writeln('#',x,'#'); writeln('#',y,'#'); * * *1 * * * 2 end;{of a} begin{main program} x:=1;y:=2; writeln('*',x,'*',y); , a; writeln('***',x,'***',y); end.
函数定义的一般格式: 函数定义的一般格式 function <函数名 (<形式参数表 函数名> 形式参数表 形式参数表>):<类型 {函数首部 类型>; 函数首部 函数首部} 函数名 类型
函数调用方式与标准函数的调用方式相同. 函数调用方式与标准函数的调用方式相同. 函数调用的一般格式: 函数调用的一般格式: 函数名> <函数名> S:=area(b1,b5,b6)+area(b2,b6,b7)+area(b3,b4,b7); 或 实在参数 实在参数 实在参数 函数名>(实在参数表) >(实在参数表 <函数名>1 2
运行结果: 运行结果: 1 2 2 1
函数和过程的区别
过程和函数都为子程序,但也有区别: 过程和函数都为子程序,但也有区别:
1,标识符不同.函数的标识符为FUNCTION,过程为:PROCEDURE. ,标识符不同.函数的标识符为 ,过程为: . 2,函数中一般不用变量形参,用函数名直接返回函数值;而过程如有返 ,函数中一般不用变量形参,用函数名直接返回函数值; 回值,则必须用变量形参返回. 回值,则必须用变量形参返回. 3,过程无类型,不能给过程名赋值;函数有类型, 3,过程无类型,不能给过程名赋值;函数有类型,最终要将函数值传送 给函数名. 给函数名 4,函数在定义时一定要进行函数的类型说明,过程则不进行过程的类型 ,函数在定义时一定要进行函数的类型说明, 说明. 说明. 5,调用方式不同.函数的调用出现在表达式中,过程调用由独立的过程 ,调用方式不同.函数的调用出现在表达式中, 调用语句来完成. 调用语句来完成. 6,过程一般会被设计成求若干个运算结果,完成一系列的数据处理, ,过程一般会被设计成求若干个运算结果,完成一系列的数据处理, 或与计算无关的各种操作;而函数往往只为了求得一个函数值. 或与计算无关的各种操作;而函数往往只为了求得一个函数值.
过程和函数
VBA过程和函数过程是构成程序的一个模块，往往用来完成一个相对独立的功能。
过程可以使程序更清晰、更具结构性。
VBA具有四种过程：Sub 过程、Function函数、Property属性过程和Event事件过程。
一．Sub过程Sub 过程的参数有两种传递方式：按值传递(ByVal)和按地址传递(ByRef)。
如下例：Sub password (ByVal x as integer, ByRef y as integer)If y=100 then y=x+y else y=x-yx=x+100End subSub call_password ()Dim x1 as integerDim y1 as integerx1=12y1=100Call password (x1,y1) ‘调用过程方式：1. Call 过程名(参数1, 参数2…) ; 2. 过程名参数1, 参数2…debug.print x1,y1 ‘结果是12、112，y1按地址传递改变了值，而x1按值传递，未改变原值End sub二．Function函数函数实际是实现一种映射，它通过一定的映射规则，完成运算并返回结果。
参数传递也两种：按值传递(ByVal)和按地址传递(ByRef)。
如下例：Function password(ByVal x as integer, byref y as integer) as booleanIf y=100 then y=x+y else y=x-yx=x+100if y=150 then password=true else password=falseEnd FunctionSub call_password ()Dim x1 as integerDim y1 as integerx1=12y1=100if password then ‘调用函数：1. 作为一个表达式放在=右端; 2. 作为参数使用debug.print x1end ifEnd sub（一）什么是模块，VBA都包含什么模块呢？首先我们来看微软VBA帮助中的三个定义：模块：一组声明集合，其后为过程声明：不可执行的代码，它命名一常数、变量或过程，并且指定其特性，比如数据类型。
VB程序设计-过程和函数
Private Sub Command1_Click()
Print sum(5, 3)
调用函数
End Sub
Function sum(x, y)
s=x+y sum = s
定义函数
End Function
函数和过程的相互转换
Private Sub Command1_Click()
Call sum(5, 3, s) 调用过程
function title(tit,n)
if len(tit)>n then
title=left(tit,n)&"…"
'返回函数值
else
title=tit
'返回函数值
end if
end function
5.7 参数传递
5.7.1 形参与实参
• 形参：置于过程定义时，参数列表中的变 量或数组；在过程被调用前，系统不对其 分配空间；
6.3 子过程与函数的参数传递
1.参数传递方式
过程的参数有两种传递方式：
传值（ByVal）
传地址（ByRef）（默认方式）。
按值传递参数:在形式参数前加上关键字ByVal 表示指定按值传递参数。调用时实际参数仅将值
传递给形式参数，形式参数的任何改变不会影响 实际参数。
按地址传递参数:
在形式参数前加上关键字ByRef表示指定按地址传递参 数。
调用函数 –变量= Function 函数名（参数1，参数2，…） –函数可以向变量一样引用和参与运算
6.2 定义Function过程
定义Function过程说明： 1）Function过程以Function语句开头，以End Function结束；中间代码部分为函数体； 2）函数名有返回值，其值类型由As 数据类型指定； 3）函数体内一般都会至少为函数名赋值一次；如果 不赋值，函数返回值默认为0或空； 4）函数中途可以利用Exit Function退出。
VHDL数字电路设计教程第10讲 函数和过程
15
例 11.4(2)： 在主代码中调用在包集中定义的函数。
---------------在主代码中调用包集中定义的函数------------------library ieee; use ieee.std_logic_1164.all; use work.my_package.all; entity dff is port(d, clk, rst: in std_logic; q: out std_logic ); end dff; architecture my_arch of dff is begin
声明信号 注意：在输入参数 列表中仍然不能指 定信号的范围 注意：虽然不知道输入信号 的范围，但可以函数被调用 时使用s’length来获取输入 参数的具体范围
function conv_integer (signal vector: std_logic_vector) return integer is variable result: integer range 0 to 2**vector’length-1; begin if (vector(vector’high)=‘1’) then result:=1; else result:=0; end if; for i in (vector’high-1) downto (vector’low) loop result:=result*2; if (vector(i)=‘1’) then result:=result+1; end if; end loop; return result; end conv_integer; ----------------函数的调用--------------........ y<=conv_integer (a); ....
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
上一页 下一页 返回
项目1比较大小
项目实现 学习支持
1.自定义过程的基本形式 一个过程是程序中相对独立的部分，用来实现某个特定的目
标。过程的说明由过程首部、＜声明部分＞和＜语句组＞三个部 分组成。过程的一般语法如下：
上一页 下一页 返回
பைடு நூலகம்
项目1比较大小
（1）每个过程以保留字procedure开始，procedure是Object Pascal的 关键字，用来标识子程序为过程；begin和end之间为过程的主体 部分；＜语句组＞可以为任何语句。
项目说明
本项目使用自定义shape过程完成了判断三角形类型的功能， 本项目还使用无参过程完成了“清除”按钮的功能，效果如图6-3 所示。
项目分析
1.窗体中的组件 （1）三个Edit组件用于接收用户输入的三角形三边。 （2）两个Label组件，其中一个用于提示“输入边长a，b，c”；另一
个用于显示判断结果。 （3）两个Button组件，“判断”按钮用于判断输入的三边是否能组成
项目分析
1.窗体中的组件 （1）两个Label组件，Label1用于提示“输入数字”，Label2用于显
示比较大小的结果。 （2）三个Edit组件，用于输入数字。 （3）两个Button组件，一个是“比较”按钮，另一个是“清空”按钮。 （4）窗体中组件属性设置如表6-1所示。
下一页 返回
项目1比较大小
下一页 返回
项目3判断闰年
2.项目中的事件 （1）“判断”按钮的OnClick事件，首先定义一个integer变量，用于
接收Edit组件输入的年份，然后调用runnian函数判断输入的年份 是闰年还是平年。 （2）runnian函数，返回值为string，如果输入的年份能够被4和100整 除，或被400整除即为闰年，否则为平年。
（5）窗体设计效果如图6-2所示。 2.项目中的事件 （1）“比较”按钮的OnClick事件，首先用三个变量分别接收三个
Edit组件输入的数字，然后调用自定义的compare过程，把三个数 字进行比较，最后把结果显示在Label2上。 （2）“清空”按钮的OnClick事件，清空三个Edit组件和Label2组件 的内容，以便于下一次的操作。 （3）自定义compare过程用于比较三个数字的大小，首先定义一个临 时变量temp用于存放临时数据，在这个过程中我们要把三个数字 进行两两比较，总是把较小的放在前面，形成逐渐递增的顺序。 Delphi提供了一种方法可以使自定义的函数或过程自动加入到窗 体单元文件的接口部分，我们可以将光标置于定义的函数或过程 内部并按下“Ctrl+Shift+C”即可。
边长和以判断的结果。 （3）shape过程，首先判断输入的三边是否能构成三角形，若能构成
三角形就把三边按照大小排序，c边为最大边，通过c*c与a*a+b*b 的关系来判断三角形的形状。 （4）empty过程，把三个Edit组件和Label2组件的内容置空。
项目实现
上一页 返回
项目3判断闰年
项目说明
三角形，以及三角形的形状，“清空”按钮用于清空三个Edit组 件和Label2的内容。
下一页 返回
项目2判断三角形类型
（4）窗体中组件属性设置如表6-2所示。 （5）窗体设置效果如图6-4所示。 2.项目中的事件 （1）“判断”按钮的OnClick事件，首先定义三个变量来接收Edit组
件输入的三个边长，然后调用shape过程判断三角形的形状。 （2）“清除”按钮的OnClick事件，调用empty过程清空已输入过的
第六章过程与函数
项目1比较大小 项目2判断三角形类型 项目3判断闰年项目 项目4简单计算器
项目1比较大小
项目说明
本项目使用自定义的compare过程，实现了三个数字比较大 小的功能。窗体运行之后先在编辑框中输入三个数字，然后单击 “比较”按钮，即可显示三个数字由小到大的排列；单击“清空” 按钮，可以清空编辑框中的内容。运行效果如图6-1所示。
上一页 下一页 返回
项目1比较大小
2.过程的调用与参数传递 调用用户自定义过程与调用系统预定义过程的方法完全相同，
其一般语法如下： ＜过程名＞(＜实际参数表＞)；
（1）对于带有参数的过程调用，实际参数要求在个数、顺序、类型等 方面与相应的形式参数必须一致。
（2）形参说明项的一般形式是：
（3）不带有var选项的形参说明项称为值形参，这种形参采用值传送， 即实参可以是任何表达式，并且是单向传送的。
本项目使用自定义的runnian函数完成判断闰年的功能，运 行效果如图6-5所示。
项目分析
1.窗体中的组件 （1）两个Label组件，一个用于显示提示信息“请输入年份：”，另
一个用于显示结果。 （2）一个Edit组件，用于接收用户输入的年份。 （3）一个Button组件，“判断”按钮。 （4）窗体中组件属性设置如表6-3所示。 （5）窗体设置效果如图6-6所示。
上一页 下一页 返回
项目1比较大小
3.过程声明的位置 在private部分定义的过程是私有函数或过程，只能在当前窗
体的单元文件中调用，而不能用于其他窗体； 在Public部分定义的函数或过程是公用函数或过程，可在当
前工程中任何窗体中调用，但必须添加被定义函数或过程所在的 单元文件。
上一页 返回
项目2判断三角形类型
（2）＜过程名＞是过程的名称，可以是任何合法的标识符，以后用它 来调用这个过程。
（3）＜形参说明表＞定义过程需要的各种参数，与函数中形式参数的 定义方法相同。当然形参表中可以为空，这时称为无参过程。如 果有多个参数，各形参说明项用分号隔开。形参说明项的一般形 式有两种：
（4）＜变量声明＞用于声明过程所使用的局部变量，它们只在本过程 中有效。
项目实现 学习支持
1.自定义函数的基本形式 在程序中，函数名出现的地方将返回函数的结果值。因此，
在函数首部中需指明返回值的类型。 用户自定义函数的一般语法如下：
上一页 下一页 返回
项目3判断闰年
2.函数的调用 函数的调用与过程不同，它不是以语句的形式出现，而是出
现在表达式中。凡是允许写表达式的地方，都可以出现函数调用。 如果函数的结果值与表达式的类型不一致，就必须进行类型转换。
项目1比较大小
项目实现 学习支持
1.自定义过程的基本形式 一个过程是程序中相对独立的部分，用来实现某个特定的目
标。过程的说明由过程首部、＜声明部分＞和＜语句组＞三个部 分组成。过程的一般语法如下：
上一页 下一页 返回
பைடு நூலகம்
项目1比较大小
（1）每个过程以保留字procedure开始，procedure是Object Pascal的 关键字，用来标识子程序为过程；begin和end之间为过程的主体 部分；＜语句组＞可以为任何语句。
项目说明
本项目使用自定义shape过程完成了判断三角形类型的功能， 本项目还使用无参过程完成了“清除”按钮的功能，效果如图6-3 所示。
项目分析
1.窗体中的组件 （1）三个Edit组件用于接收用户输入的三角形三边。 （2）两个Label组件，其中一个用于提示“输入边长a，b，c”；另一
个用于显示判断结果。 （3）两个Button组件，“判断”按钮用于判断输入的三边是否能组成
项目分析
1.窗体中的组件 （1）两个Label组件，Label1用于提示“输入数字”，Label2用于显
示比较大小的结果。 （2）三个Edit组件，用于输入数字。 （3）两个Button组件，一个是“比较”按钮，另一个是“清空”按钮。 （4）窗体中组件属性设置如表6-1所示。
下一页 返回
项目1比较大小
下一页 返回
项目3判断闰年
2.项目中的事件 （1）“判断”按钮的OnClick事件，首先定义一个integer变量，用于
接收Edit组件输入的年份，然后调用runnian函数判断输入的年份 是闰年还是平年。 （2）runnian函数，返回值为string，如果输入的年份能够被4和100整 除，或被400整除即为闰年，否则为平年。
（5）窗体设计效果如图6-2所示。 2.项目中的事件 （1）“比较”按钮的OnClick事件，首先用三个变量分别接收三个
Edit组件输入的数字，然后调用自定义的compare过程，把三个数 字进行比较，最后把结果显示在Label2上。 （2）“清空”按钮的OnClick事件，清空三个Edit组件和Label2组件 的内容，以便于下一次的操作。 （3）自定义compare过程用于比较三个数字的大小，首先定义一个临 时变量temp用于存放临时数据，在这个过程中我们要把三个数字 进行两两比较，总是把较小的放在前面，形成逐渐递增的顺序。 Delphi提供了一种方法可以使自定义的函数或过程自动加入到窗 体单元文件的接口部分，我们可以将光标置于定义的函数或过程 内部并按下“Ctrl+Shift+C”即可。
边长和以判断的结果。 （3）shape过程，首先判断输入的三边是否能构成三角形，若能构成
三角形就把三边按照大小排序，c边为最大边，通过c*c与a*a+b*b 的关系来判断三角形的形状。 （4）empty过程，把三个Edit组件和Label2组件的内容置空。
项目实现
上一页 返回
项目3判断闰年
项目说明
三角形，以及三角形的形状，“清空”按钮用于清空三个Edit组 件和Label2的内容。
下一页 返回
项目2判断三角形类型
（4）窗体中组件属性设置如表6-2所示。 （5）窗体设置效果如图6-4所示。 2.项目中的事件 （1）“判断”按钮的OnClick事件，首先定义三个变量来接收Edit组
件输入的三个边长，然后调用shape过程判断三角形的形状。 （2）“清除”按钮的OnClick事件，调用empty过程清空已输入过的
第六章过程与函数
项目1比较大小 项目2判断三角形类型 项目3判断闰年项目 项目4简单计算器
项目1比较大小
项目说明
本项目使用自定义的compare过程，实现了三个数字比较大 小的功能。窗体运行之后先在编辑框中输入三个数字，然后单击 “比较”按钮，即可显示三个数字由小到大的排列；单击“清空” 按钮，可以清空编辑框中的内容。运行效果如图6-1所示。
上一页 下一页 返回
项目1比较大小
2.过程的调用与参数传递 调用用户自定义过程与调用系统预定义过程的方法完全相同，
其一般语法如下： ＜过程名＞(＜实际参数表＞)；
（1）对于带有参数的过程调用，实际参数要求在个数、顺序、类型等 方面与相应的形式参数必须一致。
（2）形参说明项的一般形式是：
（3）不带有var选项的形参说明项称为值形参，这种形参采用值传送， 即实参可以是任何表达式，并且是单向传送的。
本项目使用自定义的runnian函数完成判断闰年的功能，运 行效果如图6-5所示。
项目分析
1.窗体中的组件 （1）两个Label组件，一个用于显示提示信息“请输入年份：”，另
一个用于显示结果。 （2）一个Edit组件，用于接收用户输入的年份。 （3）一个Button组件，“判断”按钮。 （4）窗体中组件属性设置如表6-3所示。 （5）窗体设置效果如图6-6所示。
上一页 下一页 返回
项目1比较大小
3.过程声明的位置 在private部分定义的过程是私有函数或过程，只能在当前窗
体的单元文件中调用，而不能用于其他窗体； 在Public部分定义的函数或过程是公用函数或过程，可在当
前工程中任何窗体中调用，但必须添加被定义函数或过程所在的 单元文件。
上一页 返回
项目2判断三角形类型
（2）＜过程名＞是过程的名称，可以是任何合法的标识符，以后用它 来调用这个过程。
（3）＜形参说明表＞定义过程需要的各种参数，与函数中形式参数的 定义方法相同。当然形参表中可以为空，这时称为无参过程。如 果有多个参数，各形参说明项用分号隔开。形参说明项的一般形 式有两种：
（4）＜变量声明＞用于声明过程所使用的局部变量，它们只在本过程 中有效。
项目实现 学习支持
1.自定义函数的基本形式 在程序中，函数名出现的地方将返回函数的结果值。因此，
在函数首部中需指明返回值的类型。 用户自定义函数的一般语法如下：
上一页 下一页 返回
项目3判断闰年
2.函数的调用 函数的调用与过程不同，它不是以语句的形式出现，而是出
现在表达式中。凡是允许写表达式的地方，都可以出现函数调用。 如果函数的结果值与表达式的类型不一致，就必须进行类型转换。