内容发布更新时间 : 2024/12/26 22:01:37星期一 下面是文章的全部内容请认真阅读。
函数与过程
前面我们曾经学习了程序设计中的三种基本控制结构（顺序、分支、循环）。用它们可以组成任何程序。但在应用中，还经常用到子程序结构。
通常，在程序设计中，我们会发现一些程序段在程序的不同地方反复出现，此时可以将这些程序段作为相对独立的整体，用一个标识符给它起一个名字，凡是程序中出现该程序段的地方，只要简单地写上其标识符即可。这样的程序段，我们称之为子程序。
子程序的使用不仅缩短了程序，节省了内存空间及减少了程序的编译时间，而且有利于结构化程序设计。因为一个复杂的问题总可将其分解成若干个子问题来解决，如果子问题依然很复杂，还可以将它继续分解，直到每个子问题都是一个具有独立任务的模块。这样编制的程序结构清晰，逻辑关系明确，无论是编写、阅读、调试还是修改，都会带来极大的好处。
在一个程序中可以只有主程序而没有子程序(本章以前都是如此)，但不能没有主程序，也就是说不能单独执行子程序。pascal中子程序有两种形式：函数和过程。
一、函数
在此之前，我们曾经介绍并使用了pascal提供的各种标准函数，如abs,trunc等等，这些函数为我们编写程序提供了很大的方便。但这些函数只是常用的基本函数，编程时经常需要自定义一些函数。
（一）函数的说明
在pascal中，函数也遵循先说明后使用的规则，在程序中，函数的说明放在调用该函数的程序（主程序或其它子程序）的说明部分。函数的结构与主程序的结构很相似。
函数定义的一般格式:
function 函数名(形式参数表):类型; {函数首部}
说明:
①函数由首部与函数体两部分组成。 ②函数首部以关键字function开头。 ③函数名是用户自定义的标识符。
④函数的类型也就是函数值的类型，所求得的函数值通过函数名传回调用它的程序。可见，函数的作用一般是为了求得一个值。
⑤形式参数简称形参，形参即函数的自变量。自变量的初值来源于函数调用。在函数中，形参一般格式如下：
变量名表1：类型标识符1；变量名表2：类型标识符2；?;变量名表n：类型标识符n
可见形参表相当于变量说明，对函数自变量进行说明，但应特别注意：此处只能使用类型标识符，而不能直接使用类型。
⑥当缺省形参表（当然要同时省去一对括号）时，称为无参函数。 ⑦函数体与程序体基本相似，由说明部分和执行部分组成。
⑧函数体中的说明部分用来对本函数使用的标号、常量、类型、变量、子程序加以说明，这些量只在本函数内有效。
⑨函数体的执行部分由begin开头，end结束，中间有若干用分号隔开的语句，只是end后应跟分号,不能像程序那样用句号\。
⑩在函数体的执行部分，至少应该给函数名赋一次值，以使在函数执行结束后把函数值带回调用程序。
（二）函数的调用
我们可以在任何与函数值类型兼容的表达式中调用函数，或者说，函数调用只能出现在允许表达式出现的地方，或作为表达式的一个因子。
函数调用方式与标准函数的调用方式相同。 函数调用的一般格式： ＜函数名＞ 或
＜函数名＞（实在参数表）
说明：①实在参数简称实参。实参的个数必须与函数说明中形参的个数一致，实参的类型与形参的类型应当一一对应。
②调用函数时，一般的，实参必须有确定的值。
③函数调用的步骤为：计算实参的值，\赋给\对应的形参；
（三）函数的应用举例
例1 求正整数a和b之间的完全数(a 1 for i:=a to b do 2 if perfect(i) then writeln(i); 源程序如下： var i,a,b : integer; function perfect(x:integer):boolean; var k,sum : integer; begin sum:=1; for k:=2 to x div 2 do if x mod k=0 then sum:=sum+k; {累加x所有小于本身的因数} perfect:=x=sum; {将关系表达式x=sum的结果赋值给函数名} end;{end perfect} begin{主程序开始} repeat readln(a,b); {输入0 for i:=a to b do {从a到b逐个判断,是完全数则打印出来 if perfect(i) then writeln(i); {判断x是否是完全数} end. 自定义函数只是主程序的说明部分，若主程序中没有调用函数，则系统不会执行函数子程序。当主程序调用一次函数时，则将实在参数的值传给函数的形式参数，控制转向函数子程序去执行，子程序执行完 毕后自动返回调用处。 [例2]编程找出由键盘任意输入五个整数中的最大整数。 解:设输入的五个整数为n1、n2、n3、n4、n5，为了便于处理，引入一个中间变量t1，按如下步骤处理： ①令t1=n1; ②将t1与n2比较，将两者中较大的数放入t1； ③将t1与n3比较，将两者中较大的数放入t1； ④将t1与n4比较，将两者中较大的数放入t1； ⑤将t1与n5比较，将两者中较大的数放入t1； ⑥经过以上5步处理后，t1即为5个数中最大者。 从上面规划的步骤看来，从步骤②到步骤⑤需处理的目标是相同的，因此我们可以设计一段子程序max(x1,x2)，以找出x1和x2中最大的值并返回。 var n1,n2,n3,n4,n5,t1 : integer; function max(x1,x2 : integer) : integer; begin if x1>x2 then max:= x1 else max:= x2; end; begin 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(t1); end. 从上例看出，引入函数实际上是将一个复杂的问题划分成若干个易于处理的子问题，将编程化简的一种有效办法，而化简的方法是多种多样的，如前面已经做过求三个数中的最大数，所以可定义一个专门求三个数中最大数的函数(max)。第一次用这个函数求出n1,n2,n3三个数中的最大数t1;第二次调用这个函数求出t1与n4,n5三个数中的最大数，也就是前三个数的最大数(已在t1中)和后面二个数再求一次，就得到五个数的最大数。因此，需要两次使用“求三个数中的最大数”，步骤如下： ①调用函数max ( n1, n2, n3)， 求出n1，n2，n3中的最大者 t1； ②调用函数max ( t1, n4, n5 )，求出t1, n4, n5中的最大者t2； ③输出最大数 t2。 var n1,n2,n3,n4,n5,t1: integer; function max(x1,x2,x3: integer): integer; ｛自定义函数max｝ var xx: integer; ｛函数内部变量说明｝ begin ｛函数体｝ if x1>x2 then xx:=x1 else xx:=x2; if x3>xx then xx:=x3; max:=xx end; begin ｛主程序｝ readln(n1,n2,n3,n4,n5); ｛输入五个数｝ t1:=max(n1,n2,n3); ｛用函数求n1, n2, n3的最大数｝