8章子程序.pptVIP

第八章 子程序 语句函数 函数子程序 子例行程序 程序单元之间的数据传递 递归调用 等价语句与数据块子程序 内部子程序 模块 一、语句函数 1．语句函数的定义 语句函数定义的一般格式是： f(x1,x2,…,xn)=e 2．语句函数的调用 语句函数的调用形式和内在函数完全相同。 例1 计算f(1) f(10) f(12) f(-5)的值。 例2 找出100~999之间的所有水仙花数。 二、函数子程序 1．函数子程序的定义 函数子程序的定义格式是： [类型说明] FUNCTION 函数名(虚参表) 函数体 END 函数名的命名方法与变量名相同，虚参可以是简单变量和数组变量，但不能是常数、数组元素、表达式) 例1 求 分析：上述三个数列的通项不同，求和范围也不同，用一个程序段难以同时计算三个数列的和，并且，因为无法用一个语句函数完成数列的求和计算，所以也无法使用语句函数来简化程序设计。可以采用函数子程序来完成这个问题。设计一个求和的函数子程序SM(M,N,L)，M、N分别为求和范围的上、下界，L反映数列通项的性质。 函数定义部分应注意如下问题： （1）函数不能有同名虚参。虚参的类型可以在函数体中进行说明，当未对虚参类型进行说明时，虚参类型遵守I—N隐含规则。 （2）函数定义部分中一定要有一个语句将函数值赋值给函数名，这种赋值语句的格式是：函数名=表达式。注意不要在函数名后带上括弧。 2．函数子程序的调用 调用一个函数子程序的方法和调用内在函数和语句函数的方法基本相同。 例2 用函数子程序的方法设计一个程序，求50~100内的所有素数及其和。 分析：设计一个函数子程序 PRIME(N)： 主程序的任务是应用PRIME函数子程序在50~100之间使用枚举法求出那些使PRIME函数值为1的自然数并求这些数的和。 例2 当一个数各个数位的立方和等于这个数本身时，称这样的数为水仙花数(如153=1**3+5**3+3**3，所以，153是一个水仙花数。)编程：求100~999之间的水仙花数。 分析：设计一个函数子程序NUM(N，I)，当I=100时，函数NUM返回N的百位上的数；当I=10时，NUM返回N的十位上的数，I=1时，NUM返回N的个位上的数。主程序中调用NUM函数在100~999之间找出所有水仙花数。 三、子例行程序 1．子例行子程序的定义 子例行子程序定义格式是： SUBROUTINE 子程序名(虚参表) 子例行程序体 END 子程序的命名方法与变量相同。虚参由变量、数组名(不能是数组元素，常数、表达式)充当，当虚参多于一个时，各虚参间用逗号分隔，当没有虚参时，子例行程序名后的一对括弧可以省略。 子例行程序的设计方法和函数子程序相同，但因为其名字没有值，所以不能有对子例行程序的名字赋值的语句。 2．子例行子程序的调用 子例行程序的调用格式是： CALL 子例行程序名(实参表) 其实参的类型与函数子程序相同。和函数子程序的调用不同的是，子例行子程序的调用是一个独立的语句。 例1 用子例行程序的方法求上面的s1,s2,s3。 例2 设计一个子例行程序程序，求任意矩阵的转置矩阵。 实验九 子程序（一） 四、程序单元之间的数据传递 1．简单变量作为虚参 （1）简单变量或数组元素作为实参。系统将实参与虚参安排同一个存储单元，对虚参的任何改变都作用在对应的实参上，因而调用一个子程序(包括函数子程序和子例行程序)时，实参的值有可能改变。 （2）常量或表达式作为实参。首先计算表达式的值(如果实参为表达式时) ，然后将该值赋值给对应的虚参。此种情况下，子程序中不能改变与常量(或表达式)对应的虚参的值。 2．数组名作为虚参 当虚参是数组名时，对应的实参可以是与虚参类型相同的数组名或数组元素，并且实参与虚参共用一片连续的存储单元。 例：写出下列程序的执行结果 INTEGER A(5) N1=1 N2=1 DO 10 J=1,5 10 A(J)=M(N1,N2) WRITE(*,*)A END FUNCTION M(I1,I2) M=I1+I2 I1=I2 I2=M END J=1 J=2 J=3 J=4 J=5 例 PROGRAM MAIN INTEGER A(10) …… CALL SB(A(3)) …… END SUBROUTINE SB(B) DIMENSION B(6) …… END 四、程序单元之间的数据传递 3．子程序名作为虚参 例 设有三个连续函数： 四、程序单元之间的数据传递 4．变量的作用域 （1）变量存储区的分配与释放 （2）变量作用域 （3）子程序中变量的存储属性：SAVE 属性，STATIC属性，AUTOM