实验9(二)04-28.docVIP

实验9（二） 088103132 殷欢 04.28 md d:\088103132yinhuan cd d:\088103132yinhuan cd 十一、自定义函数的创建与使用 1、将自定义函数以独立的程序文件保存 parameters num s=1 for n=1 to num s=s*n endfor return s ?test_fun(0) ?test_fun(1) ?test_fun(4) ?test_fun(24) 2、过程文件 ********自定义函数jc()用于计算阶乘 function js parameters num s=1 for n=1 to num s=s*n endfor return s ********自定义函数ljh()用于计算累加和 function ljh parameters num s=0 for n=1 to num s=s+n endfor return s set procedure to test_proc ?jc(5)-------文件‘JC。PRG’不存在？ ?ljh(10) set procedure to ?jc(5) -------文件‘JC。PRG’不存在？ 3、自定义函数位于程序的底部 clear nresult=0 for n=1 to 10 nresult=nresult+jc(n-1)/jc(n) endfor ?nresult ***********以下部分为自定义函数 function jc parameters num s=1 for n=1 to num s=s*n endfor return s 1. 用FOR …ENDFOR结构编写一个程序实现SN=1/12+1/32+…+1/192+1/212求和，并且显示计算结果。 ******程序功能：计算SN=1^(-2)+3^(-2)+…+19^(-2)+21^(-2)求和 Sn=0 for n=1 to 21 step 2 Sn=Sn+n^(-2) endfor ?Sn 结果为：1.21 用 FOR…for…endfor…ENDFOR结构编写一段程序，实现显示下列结果的功能。 A BB CCC DDDD EEEEE FFFFFF CLEAR c=ABCDEF n=len(c) for i=1 to n ?space(1) for j=1 to i ??subs(c,i,1) =inkey(0.5) endfor endfor 结果为： A BB CCC DDDD EEEEE FFFFFFF