《新编Visual FoxPro 程序设计实用教程ppt vfp第13周讲稿》由会员分享,可在线阅读,更多相关《新编Visual FoxPro 程序设计实用教程ppt vfp第13周讲稿(10页珍藏版)》请在金锄头文库上搜索。
1、教学目的与要求,掌握模块化设计方法 强化循环结构的应用能力,模块化程序设计,1. 子程序与主程序 被其它程序调用的程序称为子程序,调用程序 称为主程序。 子程序结尾处含有return语句,使流程返回主 程序的调用语句处,在主程序中结束整个程序 的运行。 parameters,用于接收主程序在调用 时传递过来的参数。,模块化程序设计续,2. 调用子程序 DO WITH 参数表列 3. 全局变量PUBLIC,模块化程序设计例,*子程序FAC.prg PARA X F=1 FOR I=1 TO X F=F*I ENDFOR RETURN,*主程序main.prg PUBLIC F INPUT TO
2、N DO FAC WITH N ?F,模块化程序设计例,读程序,写出程序功能,*子程序FAC.prg PARA X F=1 FOR I=1 TO X F=F*I ENDFOR RETURN,*主程序main.prg PUBLIC F INPUT 请输入一个整数: TO N S=0 FOR I=1 TO N DO FAC WITH I S=S+F ENDFOR ?S,自定义函数,自定义函数的格式: FUNCTION (参数表) RETURN ENDFUNC 自定义函数的调用: 函数名(实参表),自定义函数例,函数的功能是计算某一个数的阶乘。 ?F(5) FUNCTION F(I) F=1 FOR
3、 K=1 TO I F=F*K ENDFOR RETURN F ENDFUNC,巩固例题,1. 3!+4!+5! (150) P=1*2!*3!*N! (34560) 2. 1 3 222 222 33333 11111 3. (1.5498) P=P+1/2*2+1/3*3+1/10*10 4. 求N的所有因子之和(积),巩固例题,5. (1) Y=1-1/3+1/5-1/7+1/9 (0.8349) (2)Y=1-1/2+1/4-1/6+1/8-1/10 (0.6083) (3) P=1-1/(2*2)+1/(3*3)-1/(4*4)+1/(5*5) (0.8386) 6. (1) S=1/3+1/33+ (2) S=3-33+333-3333,作业,实验十三,