VFP实验9..docVIP

实验4-4 过程文件与自定义函数 一、实验目的 加强对过程文件与自定义函数概念的理解，掌握过程文件与自定义函数在程序设计中的运用，并掌握程序之间数据传递的方法。 二、实验准备 复习教材中有关子程序与自定义函数的内容，重点掌握子程序、过程与过程文件、自定义函数等概念，理解本节给出的实例。 三、实验内容 1．用过程文件的形式编写程序，求1！+ 3！+ 5！+?+ n！的值，n从键盘输入，阶乘计算用过程。 2．编写自定义函数，判断X是否是素数，返回结果为逻辑值.T. 或 .F.。 3．编写程序，要求利用参数传递和过程文件求解：(m! + n!)?((m - n)!+ m^n + m^m )的值。M，N从键盘上输入且MN，要求使用子程序和过程文件两种方式实现。 4．编制自定义函数，实现将任意一个正整数分解为其最小因子的连乘式。如：8=2*2*2。 5．编写程序，要求从键盘输入一个正整数M，自动判断并显示M中有哪些数可以分为两个相等的素数。如：若M=10，因为10中有4=2+2，6=3+3，10=5+5，所以共有三个数符合条件。 6．用自定义函数编制程序：实现将一个日期型表达式转换为中文大写形式。如：{^1999-02-15}或CTOD(“1999-02-15”) 转换为中文大写形式为：一九九九年二月十五日。 四、实验4-4报告 1．实验过程报告 （1）写出第1题的程序代码及n=7时的程序运行结果。 SET TALK OFF CLEAR input 请输入N的值： to N S=0 FOR M=1 TO N STEP 2 MJ=M DO JC_SUB WITH MJ S=S+MJ ENDFOR ?S=,ALLTRIM(STR(S,19,0)) PROCEDURE JC_SUB PARAMETERS x T=1 FOR I=1 TO x T=T*I ENDFOR x=T ENDPROC 输出结果是5167 （2）写出第2题的程序代码。 SET TALK OFF CLEAR INPUT 请输入一个整数： to N IF SS(N) ?N,是素数 ELSE ?N,不是素数 ENDIF FUNCTION SS PARAMETERS x FOR I=2 TO x-1 IF x%I=0 EXIT ENDIF ENDFOR IF Ix-1 RETURN .T. ELSE RETURN .F. ENDIF ENDFUNC （3）写出第5题的程序代码及程序运行结果（输入M=20）。 SET TALK OFF CLEAR input M= to M FOR I=2 TO M/2 IF SS(I) ?ALLTRIM(STR(I*2,20))+=+ALLTRIM(STR(I,20))+++ALLTRIM(STR(I,20)) ENDIF ENDFOR FUNCTION SS PARAMETERS X FOR J=2 TO X-1 IF X%J=0 EXIT ENDIF ENDFOR IF J=X RETURN .T. ELSE RETURN .F. ENDIF ENDFUNC 输出结果为 4=2+2 6=3+3 10=5+5 14=7+7 2．简答题 （1）叙述子程序、过程、过程文件的概念。 子程序：相对于主程序而言的一个独立的程序文件。 过程：存放在过程文件中的子程序。 过程文件：存放若干个子程序的文件。 （2）过程文件打开的方法及过程调用的方法？ 打开方法：SET PROCEDURE TO 过程文件名 调用：DO 过程名 [WITH 参数表达式列表] （3）程序之间参数传递有哪几种方法？ 一．利用内存变量作用域传递参数 二．利用带参调用命令DO…WITH 传递参数 （4）自定义函数应如何调用, 其数据是怎样传递的？ 调用：像系统函数一样用输出语句（？、？？）输出或出现在表达式中 传递：既可以用传值的方法，也可以用引用的方法，默认是传值的方法。 可以用命令SET UDFPARMS TO VALUE/REFERENCE改变参数的传递方法（VALUE是传值的方法，REFERENCE的引用的方法）。 也可以在参数变量前冠以@，将采用引用格式。 3．实验完成情况及存在问题 第三题： SET TALK OFF CLEAR input 请输入M= to M input