实验7 子程序和过程.doc

实验??? 子程序和过程 一、实验目的 1. 掌握用户自定义函数、过程的定义。 2. 掌握用户自定义函数及过程的建立方法。 3. 掌握子程序的建立和调用方法。 4. 理解在调用过程和函数时参数传递的意义和功能。 二、实验内容及上机步骤 【上机题一】 编写自定义函数求一自然数x的阶乘。在主程序中调用函数，计算s=a!+b!+c!操作要求： 1. 由键盘输入3个数，分别存放在变量a，b，c中。2. 设计一个自定义函数FAC()，用它来求x!3. 由主程序调用3次函数，即求得结果。【上机步骤】 本题的知识点是用户自定义函数的建立及调用方法，程序代码如下： CLEARSET TALK OFFINPUT “请输入a” TO aINPUT “请输入b” TO bINPUT “请输入c” TO cs=FAC(a)+FAC(b)+FAC(c) ? “三个数的阶乘之和为”，sSET TALK ONRETURNFUNCTION FAC()PARAMETERS nf=1FOR i=1 to nf=f*iENDFORRETURN f 【上机题二】 用过程的方法来求1000内的素数的个数。【上机步骤】 本题的知识点是过程的建立方法。素数的算法需要用到双重循环，外层循环用来循环1到1000每个数，内层循环进行素数的判断。用过程的方法来解决，则把内层循环的内容用过程来描述，程序代码如下： CLEARSET TALK OFFsum=0For i=1 to 1000prime=.T.DO SUB1 WITH iIF primesum=sum+1ENDIFENDFOR? “1000内素数的个数为：”,sumSET TALK ONRETURNPROCEDURE SUB1PARAMETERS xFOR j=2 TO INT(SQRT(x))IF MOD(x,j)=0prime=.F.EXITENDIFENDFORRETURN 【上机题三】 验证以下过程程序，并检查输出结果。 【上机步骤】 本题的知识点是理解在调用过程或函数时参数传递的意义和功能。 (1) 建立一个程序文件，程序代码如下：SET TALK OFFx=15y=7DO SUB WITH x,(y)? x,ySET TALK ONRETURNPROCEDURE SUBPARAMETERS a,ba=a＋bb=a－bRETURN保存该程序文件并运行程序，输出结果为22，7。因为x为按地址传递，其值会随着形参的变化而变化。y为值传递，不管形参如何变化，实参y的值不变。把x，y都改成地址传递，再次运行程序，观察程序运行结果有没有变化？(2) 建立一个程序文件，程序代码如下：SET TALK OFFx=9y=13z=FU(x,y)? zSET TALK ONRETURNFUNCTION FUPARAMETERS a,ba=a*bRETURN (a)保存该程序文件并运行程序，输出结果为117。 把自定义函数中的RETURN(a)语句改为RETURN(b-a)，再次运行程序，观察返回结果是多少？