pascal_第6讲_过程和函数.ppt

《pascal_第6讲_过程和函数.ppt》由会员分享，可在线阅读，更多相关《pascal_第6讲_过程和函数.ppt（64页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、一、过程的定义一、过程的定义Pascal的过程定义由过程首部与过程体组成，其形式：的过程定义由过程首部与过程体组成，其形式：Procedure 过程名过程名(形式参数表形式参数表); 说明部分说明部分; BEGIN 过程体过程体(语句块语句块) END;1.过程首部过程首部（1）过程首部以关键词）过程首部以关键词Procedure 开头。开头。（2）过程名与函数名的使用规则相同，但要注意过程名不）过程名与函数名的使用规则相同，但要注意过程名不能和同一程序中的变量、数组、函数同名。同时过程名不能能和同一程序中的变量、数组、函数同名。同时过程名不能代表任何数据，因此不必说明类型。代表任何数据，因此

2、不必说明类型。（3）参数表中为过程的形式参数，用逗号分隔。过程和）参数表中为过程的形式参数，用逗号分隔。过程和函数一样也可以不带形参，此时，只是在主程序调用它时，函数一样也可以不带形参，此时，只是在主程序调用它时，执行指定的操作。执行指定的操作。（4）形式参数的使用主要有值形参与变量形参。）形式参数的使用主要有值形参与变量形参。如下例：如下例：Procedure FAC（A,B:real; C:integer; var x,y:reaL）;其中：其中：A,B,C称为值形参，它们与在函数中介绍的形参相称为值形参，它们与在函数中介绍的形参相同；同；X,Y称为变量形参，在它们的前面冠有保留字称为变量

3、形参，在它们的前面冠有保留字Var；关于形式参数的有关内容将在后面介绍。关于形式参数的有关内容将在后面介绍。 2过程体：过程体：过程体与函数体相同，也包括说明和执行这两个部分。过程体与函数体相同，也包括说明和执行这两个部分。（1）在过程体内使用的有关常量、变量等必须在过程体的）在过程体内使用的有关常量、变量等必须在过程体的说明部分内加以说明或定义。说明部分内加以说明或定义。（2）在过程体说明的有关量，只有在过程体执行期间有效，）在过程体说明的有关量，只有在过程体执行期间有效，当退出过程体后，为这些量分配的存储单元被释放。当退出过程体后，为这些量分配的存储单元被释放。（3）过程体的执行部分不能给

4、过程名赋值，因为过程名不）过程体的执行部分不能给过程名赋值，因为过程名不能代表任何数据。能代表任何数据。二、过程的调用二、过程的调用主程序是通过一条独立的过程调用语句来调用过程的。主程序是通过一条独立的过程调用语句来调用过程的。调用过程必须给出一个过程名，并用实在参数代替形式参数，调用过程必须给出一个过程名，并用实在参数代替形式参数，一般形式是：一般形式是： 过程名过程名(实在参数表实在参数表);对于过程的调用要注意以下几点：对于过程的调用要注意以下几点：（1）调用的过程必须在调用之前进行说明，也就是说必）调用的过程必须在调用之前进行说明，也就是说必须先说明后调用。须先说明后调用。（2）调用过

5、程时，通常是通过值形参给过程提供原始数）调用过程时，通常是通过值形参给过程提供原始数据，通过变量形参将值带回调用程序。因此我们可以这样据，通过变量形参将值带回调用程序。因此我们可以这样来理解：值形参是过程的输入参数，变量形参是过程的输来理解：值形参是过程的输入参数，变量形参是过程的输出参数。出参数。（3）仅当在主程序中调用过程时，过程中的语句块才被）仅当在主程序中调用过程时，过程中的语句块才被执行，调用完毕自动返回主程序的调用点，使主程序继续执行，调用完毕自动返回主程序的调用点，使主程序继续往下执行。因此，过程中的过程定义仅起一个说明作用。往下执行。因此，过程中的过程定义仅起一个说明作用。例如

6、，执行下面程序：例如，执行下面程序：（1）const x=100;（2）Procedure sub(x:integer); Begin X:=x+200; Write(sub x=,x); End;（3）begin Write(x=,x); End.执行结果是：执行结果是：x=100为了说明问题，在程序的前面附加了为了说明问题，在程序的前面附加了(1)(2)(3)的标号。从程序的标号。从程序的标号来看，虽然程序第的标号来看，虽然程序第(1)标号语句的下一语句的标号是标号语句的下一语句的标号是(2)，也就是过程也就是过程sub的入口点。然而，由于执行该程序时并没有的入口点。然而，由于执行该程序时

7、并没有调用调用sub过程，因此执行完第过程，因此执行完第(1)语句后，程序并不会自动进语句后，程序并不会自动进入从第入从第(2)语句开始的该过程，因而打印出来的结果是语句开始的该过程，因而打印出来的结果是x=100。例例1：编写程序，求：编写程序，求：S=2!+4!+6!+8!+10!测试数据：测试数据：输入：无输入：无输出：输出：3669866分析：此题不用过程也很好求分析：此题不用过程也很好求S，但经仔细研究可发现：，但经仔细研究可发现：用一个过程去完成每次求阶乘的计算，避免了同一功能用一个过程去完成每次求阶乘的计算，避免了同一功能程序的重复，使程序更为简洁，也更加容易阅读。程序的重复，使

8、程序更为简洁，也更加容易阅读。 程序如下：程序如下：program aa; var i:integer; b,s:longint; procedure njs(x:integer; var t:longint); var j:integer; begin t:=1; for j:=1 to x do t:=t*j; end; begin s:=0; for i:=2 to 10 do if not odd(i) then begin njs(i,b); s:=s+b; end; writeln(s); end.1.判断程序运行结果，不准用计算判断程序运行结果，不准用计算机算，只能用笔算。机算，

9、只能用笔算。program g1; var s,a,b:longint; procedure add(x,y:longint; var sum:longint); var i:integer; begin sum:=0; for i:=x to y do begin sum:=sum+i; end; end; begin s:=0; read(a,b); add(a,b,s); writeln(s); end.输入输入:9 10输出输出:练习一2.判断程序运行结果，不准用计算机算，只能用笔算。判断程序运行结果，不准用计算机算，只能用笔算。program g2; var k:real; proc

10、edure p(x:real; var y:real); var z:real; begin z:=x*x+3; y:=y+z; end; begin k:=1.0; p(2.0,k); writeln(k:0:2); end.输出输出:3.判断程序运行结果，不准用计算机算，只能用笔算。判断程序运行结果，不准用计算机算，只能用笔算。program g3; var a,b,c:integer; procedure pro; var c:integer; begin a:=1; b:=2; c:=3; end; begin a:=100; b:=200; c:=300; pro; writeln(

11、a:5,b:5,c:5); end.输出输出:4.（文件名：（文件名：g4.pas）将求一个数阶乘的方法设）将求一个数阶乘的方法设计为一个过程，利用这个过程，求输入的任意的计为一个过程，利用这个过程，求输入的任意的两个数的阶乘和。（两个数的阶乘和。（N,M8）测试数据：测试数据：输入：一行，两个数之间隔一空格输入：一行，两个数之间隔一空格3 5输出：一行，两个的阶乘和。输出：一行，两个的阶乘和。126例例2：学校举行晚会，要：学校举行晚会，要M个学生中选个学生中选N个学生到舞台个学生到舞台上表演一个游戏，问有多少种选择方法。这是数学中上表演一个游戏，问有多少种选择方法。这是数学中的组合运算，的

12、组合运算，可用下列公式计算可用下列公式计算 ，其中，其中M，N由键由键盘输入。盘输入。分析：从上述公式我们发现，它有三个完全相同的计分析：从上述公式我们发现，它有三个完全相同的计算阶乘的运算。若我们把计算阶乘的程序拿出来，作算阶乘的运算。若我们把计算阶乘的程序拿出来，作为一独立的过程，那么计算这道题目的程序结构就变为一独立的过程，那么计算这道题目的程序结构就变得非常简单了。得非常简单了。 )!*(!nmnmCnm程序如下：程序如下：program aa; var L,m,n:integer; a,b,c:real; x:longint; procedure fac(k:integer); va

13、r i:integer; f:longint; begin f:=1; for i:=1 to k do f:=f*i; x:=f; end;测试数据：测试数据：输入：输入：m,n=10 7输出：输出：120begin write(m,n=); read(m,n); if m=n then L:=1 else L:=m-n; fac(m);a:=x; fac(n);b:=x; fac(L);c:=x; c:=a/(b*c); writeln(c:0:0) end.例例3：利用自定义过程求任意两个整数的乘积：利用自定义过程求任意两个整数的乘积(将求两个将求两个整数乘积的程序段设为一个过程整数乘积

14、的程序段设为一个过程).program lkj;var a,b,c:longint;procedure sum(a,b:longint;var c:longint); begin c:=a*b; end;begin readln(a,b); sum(a,b,c); writeln(c);end.测试数据：测试数据：输入输入:5 10输出输出:50可以看出，可以看出，Pascal的过程函数相似，都需要先定义后的过程函数相似，都需要先定义后调用，但有以下几个主要差别：调用，但有以下几个主要差别：（1）函数通常被设计成求一个函数值；而过程通常被）函数通常被设计成求一个函数值；而过程通常被设计成能得到

15、若干个运算结果，也可以用来完成一系设计成能得到若干个运算结果，也可以用来完成一系列的数据处理或与计算无关的各种操作。列的数据处理或与计算无关的各种操作。（2）调用方式不同。函数的调用出现在表达式中，而）调用方式不同。函数的调用出现在表达式中，而过程调用，是由一个独立的语句（过程语句）来完成过程调用，是由一个独立的语句（过程语句）来完成的。的。（3）过程没有类型，也不能给过程名赋值。）过程没有类型，也不能给过程名赋值。（4）返回值的实现方法不同。函值返回时，只由函数）返回值的实现方法不同。函值返回时，只由函数名带回一个函数值；过程返回时，可由实参将运算的名带回一个函数值；过程返回时，可由实参将运

16、算的值带回，需要时可以带回多个值。值带回，需要时可以带回多个值。 引入函数和过程（相当于在程序中引入了可以按引入函数和过程（相当于在程序中引入了可以按名引用的模块）之后，名引用的模块）之后，Pascal中的程序获得了简中的程序获得了简化。化。 Pascal的过程和用户自定义函数的参数传递，的过程和用户自定义函数的参数传递，局部变量等都将给程序以全新的面貌。局部变量等都将给程序以全新的面貌。 更重要的是过程和函数还具有完全递归的功能。更重要的是过程和函数还具有完全递归的功能。所谓递归就是一个函数或过程可以直接或间接地调所谓递归就是一个函数或过程可以直接或间接地调用自己。关于这方面的知识，将在下面

17、专门介绍。用自己。关于这方面的知识，将在下面专门介绍。 1program g5; var x,y,z:integer; procedure sy(x:integer; var y:integer); var z:integer; begin x:=5; y:=6; z:=7; writeln(x,y,z); end; begin x:=1; y:=2; z:=3; sy(y,x); writeln(x,y,z); end.输出输出:练习二判断程序运行结果2program g6; var y,t:integer; a,b:real; procedure f(m:integer; var s,k:

18、real); begin y:=2*y; s:=s*y; k:=s/4; k:=k+s+y; end; begin read(y,a); f(y,a,b); writeln(a:0:2,b:10:2); end.输入输入:1 2输出输出:3（文件名：（文件名：g7.pas）利用自定义过程求任）利用自定义过程求任意两个整数的和意两个整数的和(将求两个整数和的程序段设将求两个整数和的程序段设为一个过程为一个过程).测试数据：测试数据：输入：输入：10 5输出：输出：154.（文件名：（文件名：g8.pas）将求两个数的最小公倍数的程序设定为）将求两个数的最小公倍数的程序设定为一个过程一个过程,编程

19、求任意两个数的最小公倍数。编程求任意两个数的最小公倍数。测试数据：测试数据：输入：输入：12 8输出：输出：24提示：求最小公倍数过程提示：求最小公倍数过程 procedure abc(m,n:longint; var y:longint); begin y:=m; while y=m*n do begin if y mod n=0 then break; y:=y+m; end; end;program aa; var a:integer; procedure add(x:integer); var a1:integer; begin a1:=x+10; writeln(a1=,a1); e

20、nd; begin a:=15; add(a); writeln(a=,a); end.请思考请思考:哪个是局部量？哪个是局部量？哪个是全程量？哪个是全程量？各自的作用域是什么？各自的作用域是什么？测试数据：测试数据：输出：输出：a1=25a=15关于这个问题，我们来看下面的一个例子：关于这个问题，我们来看下面的一个例子：局部变量的作用域的实质我们可以这样来理解，当局部变量的作用域的实质我们可以这样来理解，当其所在的子程序被调用时，局部变量才分配有确定其所在的子程序被调用时，局部变量才分配有确定的存储单元，而当程序的执行一旦返回到调用程序的存储单元，而当程序的执行一旦返回到调用程序时，局部变量

21、所占用的存储单元就被释放。时，局部变量所占用的存储单元就被释放。至于全程变量的作用域，情况就要复杂一点，我们至于全程变量的作用域，情况就要复杂一点，我们还是先来看以下的一个例题：还是先来看以下的一个例题：program aa; var a,b:integer; procedure sub; var a:integer; begin a:=0; writeln(a2=,a, b2=,b); a:=a+10; b:=b+10; writeln(a3=,a, b3=,b); end;测试数据：测试数据：输出：输出：a1=15 b1=20a2=0 b2=20a3=10 b3=30a4=15 b4=30

22、begin a:=15; b:=20; writeln(a1=,a, b1=,b); sub; writeln(a4=,a, b4=,b); end. 前面我们提到，前面我们提到，Pascal语言中过程与函数的主要参语言中过程与函数的主要参数种类有值参数与变量参数。变量参数在形式上比值参数种类有值参数与变量参数。变量参数在形式上比值参数多了一个前缀数多了一个前缀VAR，但两者不仅含义不同，且相应的，但两者不仅含义不同，且相应的实在参数的个数、顺序和类型都必须与形式参数一一对实在参数的个数、顺序和类型都必须与形式参数一一对应。应。 Free Pascal在处理数据传送时有三种方法。一种在处理数据

23、传送时有三种方法。一种是传名，一种是传值，另一种方法是传地址。是传名，一种是传值，另一种方法是传地址。 传名就是通过全程量传递数据，变量在主程序中定传名就是通过全程量传递数据，变量在主程序中定义，在子程序不被重新定义而被使用，那么它在主程序义，在子程序不被重新定义而被使用，那么它在主程序和子程序中就是同一个变量，所以在调用函数或过程时和子程序中就是同一个变量，所以在调用函数或过程时其值发生改变，返回主程序，它的值仍然是改变的。它其值发生改变，返回主程序，它的值仍然是改变的。它的用法比较简单，在此就不作详细介绍了，下面主要说的用法比较简单，在此就不作详细介绍了，下面主要说明传值和传地址两种传值方

24、法的使用。明传值和传地址两种传值方法的使用。 在调用过程或函数时，传值就是把一个调在调用过程或函数时，传值就是把一个调用语句中的实在参数的值，赋给对应的形式参用语句中的实在参数的值，赋给对应的形式参数。一旦过程（或函数）执行完了，相应分配数。一旦过程（或函数）执行完了，相应分配给形式参数的存储单元就被释放，其值也随之给形式参数的存储单元就被释放，其值也随之消失，相应实参的值并没有发生变化。也就是消失，相应实参的值并没有发生变化。也就是说，实在参数的值仅向形式参数作单向传送，说，实在参数的值仅向形式参数作单向传送，形式参数的值发生变化不会反过来影响实在参形式参数的值发生变化不会反过来影响实在参数

25、的值。例如函数调用时就是采用了数的值。例如函数调用时就是采用了“按值传按值传送送”的方法，返回时只由函数名带回一个函数的方法，返回时只由函数名带回一个函数值。值。program aa; var a:integer; procedure add(a1:integer); begin a1:=a1+20; writeln(a1=,a1); end; begin a:=10; add(a); writeln(a=,a); end.执行结果为：执行结果为：a1=30a=10Free Pascal的过程也可用值参数方法传递数据，请看下例：的过程也可用值参数方法传递数据，请看下例： 请注意两个打印结果。请

26、注意两个打印结果。A1是值参数，在过程是值参数，在过程语句开始执行时，实参数语句开始执行时，实参数A的值的值10传递给传递给A1，经，经过过程体的运算，过过程体的运算，A1的值结果为的值结果为30，此时输出，此时输出A1=30，然而，当过程执行完毕返回主程序时，原，然而，当过程执行完毕返回主程序时，原实在参数实在参数A的值并未受影响，打印结果仍为的值并未受影响，打印结果仍为10。 此例体现了此例体现了Pascal语言语言“按值传送按值传送”方法的方法的一个规则：变量和表达式能用传值方法来传送数据。一个规则：变量和表达式能用传值方法来传送数据。一般说来，只要在过程或函数中不出现对实参变量一般说来

27、，只要在过程或函数中不出现对实参变量的赋值操作，实参变量的值是不会因调用过程或函的赋值操作，实参变量的值是不会因调用过程或函数而变更的（实参变量对过程或函数而言是全程变数而变更的（实参变量对过程或函数而言是全程变量）。量）。 传地址是指将实在参数在内存的存储单元的传地址是指将实在参数在内存的存储单元的地址分配给形式参数。也就是说，实在参数与形地址分配给形式参数。也就是说，实在参数与形式参数实际上共同一个存储单元。式参数实际上共同一个存储单元。 传地址的优点是被调用的过程能够影响传送传地址的优点是被调用的过程能够影响传送给它的变量的值，从而能把信息传给调用者。这给它的变量的值，从而能把信息传给调

28、用者。这是因为是因为“按址传送按址传送”方法实质是在传指针，它指方法实质是在传指针，它指向数据存储的地址，所以过程知道变量存放什么向数据存储的地址，所以过程知道变量存放什么地方，因而能够对其进行读、写操作。地方，因而能够对其进行读、写操作。 以下的例子就是用以下的例子就是用“按址传送按址传送”的方法进行的：的方法进行的： 程序中，实参程序中，实参A起了起了双向传递数据的作用，即双向传递数据的作用，即把实际参数把实际参数A的存储单元的存储单元的地址传递到过程的形式的地址传递到过程的形式参数参数C，在过程体中进行，在过程体中进行运算后，再把结果带回主运算后，再把结果带回主程序输出。由此可知，用程序

29、输出。由此可知，用传地址方法传送的变量值传地址方法传送的变量值能被调用的过程改变。能被调用的过程改变。program aa; var a:integer; procedure add(var c:integer); begin c:=c+10; writeln(c=,c); end; begin a:=10; add(a); writeln(a=,a); end.运行结果：运行结果：c=20a=20 从上面两例的对比中可以看出：实参数据的单、从上面两例的对比中可以看出：实参数据的单、双向传递，是由过程定义中相应的形参种类所决定的，双向传递，是由过程定义中相应的形参种类所决定的，利用变量形参是从

30、一个过程中传回数据的主要手段之利用变量形参是从一个过程中传回数据的主要手段之一。一。 综上所述，我们可以得到如下的结论：综上所述，我们可以得到如下的结论：Free Pascal中的参数若是值形参则参数传递必为传值，若中的参数若是值形参则参数传递必为传值，若形式参数为变量形参，则传地址。由于值形参的作用形式参数为变量形参，则传地址。由于值形参的作用仅仅是将子程序外部的值传递给过程或函数，因此又仅仅是将子程序外部的值传递给过程或函数，因此又称值参数是输入参数，所以对应的实际参数可以是常称值参数是输入参数，所以对应的实际参数可以是常数、变量或表达式。而变量参数除了能将子程序外部数、变量或表达式。而变

31、量参数除了能将子程序外部的数据传递给过程或函数，更重要是它能将子程序中的数据传递给过程或函数，更重要是它能将子程序中变化的形式参数的值带出来，所以又将变量参数称之变化的形式参数的值带出来，所以又将变量参数称之为输出参数，其对应的实际参数必须为变量。为输出参数，其对应的实际参数必须为变量。 program g9; var x,y:integer; procedure pd(a:integer;var b:integer); begin a:=1; b:=a+b; end; begin x:=10; y:=20; pd(x,y); writeln(x,y:5); end.输出输出:_1.判断程序运

32、行结果，不准在计算机上运算，只能用笔算。判断程序运行结果，不准在计算机上运算，只能用笔算。练习三program g10; var x:integer; procedure pr(var z:integer); begin z:=z+100; write(x=,x); end; begin x:=10; pr(x); x:=100; writeln( x=,x); end.输出：输出：_2. 判断程序运行结果，不准在计算机上运算，只能用笔算。判断程序运行结果，不准在计算机上运算，只能用笔算。3. 判断程序运行结果，判断程序运行结果，program g11; var a,b:integer; pr

33、ocedure sub; var a:integer; begin a:=0; writeln(a2=,a, b2=,b); a:=a+15; b:=b+20; writeln(a3=,a, b3=,b); end; begin a:=5; b:=10; writeln(a1=,a, b1=,b); sub; writeln(a4=,a, b4=,b); end.4.（文件名：（文件名：g12.pas）将求梯形面积的方法设计为一）将求梯形面积的方法设计为一个过程，利用这个过程，现在输入任意上底、下底和个过程，利用这个过程，现在输入任意上底、下底和高的值，求梯形的面积。底、高、面积的值均为实型高

34、的值，求梯形的面积。底、高、面积的值均为实型数，最后结果保留二位小数。数，最后结果保留二位小数。测试数据测试数据输入：三个数，分别是上底、下底和高，数字间隔一输入：三个数，分别是上底、下底和高，数字间隔一空格空格2.5 3.5 6.6输出：输出：19.80但要注意：这些函数必须在程序中定义，也只能在本程序中但要注意：这些函数必须在程序中定义，也只能在本程序中使用。使用。（1）函数首部以保留字）函数首部以保留字Function开头，其后的函数名必须与保开头，其后的函数名必须与保留字之间有一个以上的空格。留字之间有一个以上的空格。（2）函数名是对用户定义的一个函数的标识，用于存放调用后的）函数名是

35、对用户定义的一个函数的标识，用于存放调用后的函数值。函数名与标识符的构成规则相同。在同一程序中，所定函数值。函数名与标识符的构成规则相同。在同一程序中，所定义的函数名，不能用作变量数组或过程名。义的函数名，不能用作变量数组或过程名。（3）圆括号中的形参表是用逗号隔开的一个或多个形参名。形参）圆括号中的形参表是用逗号隔开的一个或多个形参名。形参名由用户自己决定，所有形参都必须同时说明类型，不同类型的名由用户自己决定，所有形参都必须同时说明类型，不同类型的说明之间用分号隔开。说明之间用分号隔开。例如：例如：Function EX01(X,Y:Real; m,n:integer):real;形参即函

36、数的自变量，其初值来源于函数的调用。只有在程序执形参即函数的自变量，其初值来源于函数的调用。只有在程序执行过程中调用了函数，形参才有可能得到具体的值并参与运算，行过程中调用了函数，形参才有可能得到具体的值并参与运算，求得函数值。可见形参表相当于变量说明，但应特别注意：此处求得函数值。可见形参表相当于变量说明，但应特别注意：此处只能使用类型标识符，而不能直接使用类型。只能使用类型标识符，而不能直接使用类型。若函数没有自变量，则形参表可以缺省，称为无参函数。此若函数没有自变量，则形参表可以缺省，称为无参函数。此时函数的定义形式为：时函数的定义形式为：Function 函数名：函数类型；函数名：函数

37、类型； 函数首部函数首部（4）函数的类型也就是函数值的类型，它由函数首部来说）函数的类型也就是函数值的类型，它由函数首部来说明，所求得的函数值通过函数名传送回调用程序。由此可见明，所求得的函数值通过函数名传送回调用程序。由此可见函数的作用一般是为了求得一个值。函数的作用一般是为了求得一个值。 函数体也由说明与执行部分组成。函数体也由说明与执行部分组成。（1）说明部分用来对函数体内所用的类型、常量、变）说明部分用来对函数体内所用的类型、常量、变量等进行说明，这些量只在本函数内有效，与函数体量等进行说明，这些量只在本函数内有效，与函数体外的同名量无关。外的同名量无关。（2）函数体的执行部分以）函数

38、体的执行部分以BEGIN开始，以开始，以END结束结束（其后紧跟一个分号）。中间为语句块但至少要有一（其后紧跟一个分号）。中间为语句块但至少要有一条赋值语句。即：条赋值语句。即：函数名函数名:=表达式；表达式；该操作把表达式的值赋给函数名，然后把这个值通过该操作把表达式的值赋给函数名，然后把这个值通过函数名返回调用它的程序中去。函数名返回调用它的程序中去。 自定义函数定义了一个求值的模块，当一个语自定义函数定义了一个求值的模块，当一个语句中使用了这个函数时，这个模块才被调用执句中使用了这个函数时，这个模块才被调用执行。行。 例例1：用函数求：用函数求a+b=c的值的程序是：的值的程序是：参考程

39、序：参考程序： program aa; var a,b,c:longint; function add(a,b:longint):longint; var s:longint; begin s:=a+b; add:=s; end; begin read(a,b); c:=add(a,b); writeln(c); end.测试数据：测试数据：输入：输入：8987 7798输出：输出：16785该程序中的该程序中的ADD函函数，就演示了函数数，就演示了函数结构。结构。函数的调用函数的调用 函数一经定义，就可以在同一程序中与函数值类型兼容的函数一经定义，就可以在同一程序中与函数值类型兼容的表达式中

40、多次被调用。其调用形式如下：表达式中多次被调用。其调用形式如下： 变量变量:=函数名函数名(实在参数表实在参数表);函数调用的说明：函数调用的说明： （1）自定义函数中的形参称为形式参数，由于它不是实）自定义函数中的形参称为形式参数，由于它不是实际存在的变量，所以又称虚拟变量。例如：前面所举例子中的际存在的变量，所以又称虚拟变量。例如：前面所举例子中的X即为形式参数。即为形式参数。 它们并不占用内存单元，只有在调用函数时，才临时开辟它们并不占用内存单元，只有在调用函数时，才临时开辟相应的内存单元，存放实在参数的值。相应的内存单元，存放实在参数的值。所谓实在参数是在调用函数时所用的自变量，只是在

41、调用函数所谓实在参数是在调用函数时所用的自变量，只是在调用函数时，才将实在参数的值传送到相应于形参的临时的内存单元中时，才将实在参数的值传送到相应于形参的临时的内存单元中去。去。形参实质上是实参的一个形参实质上是实参的一个“替身替身”和和“代办代办”，实参在程序中，实参在程序中可以千变万化，但可以千变万化，但“代办代办”只有一个，从而保证了一个子程序只有一个，从而保证了一个子程序可被多次调用。通常，将这种数值传送称为可被多次调用。通常，将这种数值传送称为“参数传值参数传值”。在调用函数时，实在参数将值赋给形式参数。因而，必须注意在调用函数时，实在参数将值赋给形式参数。因而，必须注意实在参数的个

42、数、类型应该与形式参数一一对应，并且必须要实在参数的个数、类型应该与形式参数一一对应，并且必须要有确定的值。有确定的值。（2）函数调用的步骤为：计算实参的值，传送给对应的形参；）函数调用的步骤为：计算实参的值，传送给对应的形参；然后执行函数体；最后将函数值返回到调用处。然后执行函数体；最后将函数值返回到调用处。（3）函数说明是静态的，不具备执行的含义。也就是说，如）函数说明是静态的，不具备执行的含义。也就是说，如果一个函数说明之后未被调用，则该函数永远不会被执行。果一个函数说明之后未被调用，则该函数永远不会被执行。1（文件名：（文件名：h1.pas）将求两个整数的差设计）将求两个整数的差设计为

43、一个函数，然后求任意两个整数的差。为一个函数，然后求任意两个整数的差。测试数据：测试数据：输入：输入：98778 8788输出：输出：89990练习一2（文件名：（文件名：h2.pas）将求三角形的面积设计）将求三角形的面积设计为一个函数，然后求任意底和高的三角形的面积。为一个函数，然后求任意底和高的三角形的面积。保留二位小数。保留二位小数。测试数据：测试数据：输入：输入：10.2 2.5输出：输出：12.753.3.（文件名：（文件名：h3.pash3.pas）利用标准函数，对输入）利用标准函数，对输入的一个长度不小于的一个长度不小于8 8的字符串的字符串, ,分别输出它的长分别输出它的长度

44、、第度、第2 2个字符和第个字符和第5 5个字符个字符, ,不同的输出结果之不同的输出结果之间间隔一个字符间间隔一个字符. .提示：用到的函数有提示：用到的函数有lengthlength、copycopy测试数据测试数据: :输入输入: :asdf3536sdfasdf3536sdf输出输出: :11 s 3 11 s 3 4.(文件名文件名:h4.pas)输入两个字符串，判断第一个输入两个字符串，判断第一个字符串在第二个字符串中的起始位置。两个字符字符串在第二个字符串中的起始位置。两个字符串位于两行。串位于两行。提示：用到的函数有提示：用到的函数有pos测试数据：测试数据：输入：输入：abc

45、dasdfabcdsdffsf输出：一行，起始位置输出：一行，起始位置55.（文件名为h5.pas）编一程序，将摄氏温度换为华氏温度。公式为：其中f为华氏温度,c是摄氏温度。将上述公式编为一个函数,要求输入摄氏温度,输出华氏温度,(保留两位小数）. 例例2：先编写一个自定义函数用以求：先编写一个自定义函数用以求X2-5X+4，然后再通过主程序调用此函数，分别求然后再通过主程序调用此函数，分别求Y1=32-5*3+4;Y2=(A+5)2-5*(A+5)+4 program aa; var y1,y2,a:integer; function fun(x:integer):integer; begi

46、n fun:=x*x-5*x+4 end; begin write(input a=); read(a); y1:=fun(3); y2:=fun(a+5); writeln(y1=,y1); writeln(y2=,y2); end.测试数据：测试数据：输入：输入：input a=2输出：输出：y1=-2y2=18程序如下：程序如下：例例3：现设计一个函数完成乘方运算。当然可以：现设计一个函数完成乘方运算。当然可以用用power函数来实现。函数来实现。分析：根据数学知识乘方运算的定义是：分析：根据数学知识乘方运算的定义是： ，而当而当n0 then for i:=1 to n1 do t:=

47、t*x1; if n10 then for i:=1 to -n1 do t:=t/x1; fc:=t; end;begin read(x,n); y:=fc(x,n); writeln(y:0:2); end. 测试数据：测试数据：输入输入:2 3输出输出:8.00 例例4:设计一个函数设计一个函数digit(n,k)，它能将自然数，它能将自然数N的从右边开始的第的从右边开始的第K位上的数字取出来。位上的数字取出来。 例如：例如：digit(13579,3)=5 digit(2468,6)=0调用此函数，求出调用此函数，求出3次输入后，得到的第次输入后，得到的第K位上的位上的数字之和。数字之

48、和。 分析：为了取得一个数的第分析：为了取得一个数的第K位，可将其右边位，可将其右边K-1位数字去掉，即：位数字去掉，即：k-1次次(N DIV 10)所得到数的所得到数的个位就是所求的数字。个位就是所求的数字。 程序如下：程序如下：program aa; var n1,k1,j,s:longint; function digit(n,k:longint):integer; var i:integer; begin n:=abs(n); for i:=1 to k-1 do n:=n div 10; digit:=n mod 10; end; 测试数据：测试数据：输入：输入：133756 25

49、34534534 698809 3输出：输出：18begin s:=0; for j:=1 to 3 do begin readln(n1,k1); s:=s+digit(n1,k1); end; writeln(s); end.例例5：求出正整数：求出正整数NM之间的完全数（之间的完全数（NM）。）。分析：所谓完全数是指它的因子之和等于它本身的分析：所谓完全数是指它的因子之和等于它本身的数，如：数，如：6=1+2+3。为了判定完全数，可以定义一。为了判定完全数，可以定义一个布尔函数，若是完全数，其值为个布尔函数，若是完全数，其值为TRUE，否则为，否则为FALSE。程序如下：程序如下：pro

50、gram aa; var m,n,i:integer; function perfect(x:integer):boolean; var t,s:integer; begin s:=1; for t:=2 to x div 2 do if x mod t=0 then s:=s+t; if x=s then perfect:=true else perfect:=false end;测试数据：测试数据：输入：输入：2 100输出：输出：628begin readln(n,m); for i:=n to m do if perfect(i)=true then writeln(i); end.注