4讲 过程和函数.pptVIP

过 程 和 函 数 子程序中的参数 局部量、全程量与作用域 我们知道，程序有变量说明，过程与函数也有变量说明语句。凡在程序中使用到的量，均必须先说明后使用，这是Pascal语言所具有的一个特点。同样，在过程与函数内部使用的变量，也应该在本过程或函数中加以说明，这种在子程序内部说明的变量，称之为局部变量。 另外，将那些在程序开头的说明部分中加以定义与说明的量，称为全程量。 在不同的说明语句部分所说明的变量，在程序中对此变量进行存取的适用范围是不同的，我们将其适用的范围称之为作用域。 局部变量的作用域为所在子程序。由于形式参数只在所在子程序中有效，因此也属于局部变量。 值参数与变量参数 Pascal常用的算术标准函数 (1) abs(x) 求x的绝对值(|x|)； (2) exp(x) 求ex的值； （e为无理数2.71828…） (3) frac(x)求x的小数部分； (4) int(x) 求x的整数部分(不舍入，函数值为实型)； (5) ln(x) 求以e为底的x的对数（log ex )； (6) odd(x) 判断x的奇偶数(当x为奇数时odd(x)值为true，否则为false)； (7) ord(x) 求x的序号，结果为整型(x为有序类型量)； (8) pi π值(3.1415926535897932…)； (9) pred (x) 求x(有序类型)的前趋值； (10) succ(x) 求x(有序类型)的后继值； (11) random 随机函数，产生0～1的随机值； (12) random(n)产生0～n的随机数(n为word类型，先执行randomize， 才能得到随机整数)； (13) round(x) 求x的四舍五入整数； (14) trunc(x) 求x的整数部分(截掉小数部分，结果为整型)； (15) sqr(x) 求x的平方值(x2 )； (16) sqrt(x) 求x的开平方根值( )； (17) sin(x) 求x的正弦函数(x为弧度)； (18) cox(x) 求x的余弦函数(x为弧度)； (19) arctan(x) 正切的反三角函数(x为数值)； 函数 （1）标准函数： 我们已经接触过一些Free Pascal提供一些内部标准函数，供编程时调用，象求|X|可调用ABS（X），求可调用SQRT(49)等等。实际上，这些函数是一些包含在Free Pascal系统中供用户调用的程序模块，分别命名为：ABS,SQRT…等。因而，只要在程序中遵照一定的调用规则，写出某一函数名以及此函数所需的参数，系统就会自调用这些程序模块，求得运算结果。如：ABS(X) SQRT(12+X)等等。 （2）自定义函数 系统提供的这些内部标准函数，虽然使用起来十分方便，但其中种类和数量毕竟有限，不可能包含用户的所有需要。在实际问题中，经常会遇到诸如求N！这一类的运算，系统中则没有提供相应的函数可供调用。为此，Free Pascal允许用户自行定义一些函数，我们称之为自定义函数。这种自定义函数一经定义，就可象内部函数一样，通过函数名调用它。但要注意：这些函数必须在程序中定义，也只能在本程序中使用。 自定义函数的定义格式 Free Pascal自定义函数用FUNCTION语句开始，每个自定义函数均由函数的首部和函数体组成。 定义格式如下： Function 函数名（形参表）：函数类型； {函数首部} 说明部分； Begin {函数体} 语句块； 函数名:=表达式； {必须有，函数运算结果通过函数名带出函数体} End; 函数首部 函数体 功能 例：求任意输入的五个自然数的最大公约数。 解:⑴自定义一个专门求两自然数的最大公约数的函数GCD; ⑵调用自定义函数,第一次求前两个数的最大公约数;从第二次开始,用每次求得的最大公约数与下一个数再求两个数最大公约数,直到最后。本题共四次“求两个数的最大公约数”， 设输入的五个自然数分别是a1,a2,a3,a4,a5,采用如下步骤： ①求a1, a2两个数的最大公约数 → 存入a1； ②求a1, a3两个数的最大公约数 → 存入a1； ③求a1, a4两个数的最大公约数 → 存入a1； ④求a1, a5两个数的最大公约数 → 存入a1； ⑤ 输出 a1，此时的a1已是五个数的最大公约数。 编程找出由键盘任意输入五个整数中的最大整数。 Program Exam41_a; Var n1,n2,n3,n4,n5,t1 : integer; Function max(x1,x2 :