实验十三子程序、过程与函数.docVIP

实验十三 子程序、过程与函数 一、实验目的 1．掌握用户自定义函数、过程的定义。 2．掌握用户自定义函数及过程的建立方法。 3．掌握子程序的建立和调用方法。 理解在调用过程和函数时参数传递的意义和功能。 二、实验内容及上机步骤 【上机题1】编写自定义函数求一自然数x的阶乘。在主程序（文件名为p13-1.prg）中调用函数，计算s=a!+b!+c! 操作要求：（1）由键盘输入3个数，分别存放在变量a，b，c中。 (2)设计一个自定义函数FAC()，用它来求x! (3)由主程序调用3次函数，即求得结果。 【上机步骤】本题考查的知识点是用户自定义函数的建立及调用方法。参考程序代码如下： CLEAR SET TALK OFF INPUT “请输入a” TO a INPUT “请输入b” TO b INPUT “请输入c” TO c s=FAC(a)+FAC(b)+FAC(c) ? “三个数的阶乘之和为”，s SET TALK ON RETURN FUNCTION FAC() PARAMETERS n f=1 FOR i=1 to n f=f*i ENDFOR RETURN f 【上机题2】用过程的方法来求1000内的素数的个数。 【上机步骤】本题考查的知识点是过程的建立方法。素数的算法需要用到双重循环，外层循环用来循环1到1000每个数，内层循环进行素数的判断。用过程的方法来解决，则把内层循环的内容用过程来描述。程序代码如下： CLEAR SET TALK OFF sum=0 For i=1 to 1000 prime=.T. DO SUB1 WITH i IF prime sum=sum+1 ENDIF ENDFOR ? “1000内素数的个数为：”,sum SET TALK ON RETURN PROCEDURE SUB1 PARAMETERS x FOR j=2 TO INT(SQRT(x)) IF MOD(x,j)=0 prime=.F. EXIT ENDIF ENDFOR RETURN 【上机题3】验证以下过程程序，并检查输出结果。 【上机步骤】本题考查的知识点是理解在调用过程或函数时参数传递的意义和功能。操作步骤如下： (1) 建立一个程序文件p13-31.prg，程序代码如下： SET TALK OFF x=15 y=7 DO SUB WITH x,(y) ? x,y SET TALK ON RETURN PROCEDURE SUB PARAMETERS a,b a=a＋b b=a－b RETURN 保存该程序文件并运行程序，输出结果为22，7。因为x为按地址传递，其值会随着形参的变化而变化。y为值传递，不管形参如何变化，实参y的值不变。 把x，y都改成地址传递，再次运行程序，观察程序运行结果有没有变化？ (2) 建立一个程序文件p13-32.prg，程序代码如下： SET TALK OFF x=9 y=13 z=FU(x,y) ? z SET TALK ON RETURN FUNCTION FU PARAMETERS a,b a=a*b RETURN (a) 保存该程序文件并运行程序，输出结果为117。 请把自定义函数中的RETURN(a)语句改为RETURN(b-a)，再次运行程序，观察返回结果是多少？ 三、实验习题 1．用子过程的方法求1000到2000之间的完数的个数。 2．用自定义函数的方法求Cnm = m!/n!(m-n)!。 四、习题要点提示 1．一个循环来对1000到2000每个数进行一次循环，用子过程来完成判断完数的功能。 2．用自定义函数求x!，程序中需要输入两个数m和n，并且要对m和n做大小的比较。