wxsh.net
当前位置:首页>>关于阶乘程序如何编写vfp的资料>>

阶乘程序如何编写vfp

VFP 阶乘自定义函数参考: 调用例子: 求 100! CLEAR ? m_Factorial(100) **************************************** && 阶乘函数 m_Factorial() && 参数: && nFactor 数值型 阶乘因子 && 返回: && 数值型 阶乘的值 **************************...

S=0 FOR i = 1 to 10 S=S+jc(i) ENDFOR ?S PROCEDURE jc PARAMETERS j ss=1 FOR K = 1 to j ss=ss * k ENDFOR RetURN ss ENDPRO

**************************************** && 求N!阶乘 **************************************** clear input " 求 N 值的阶乘 请输入 N = " to n t=1 for a=1 to n t=t*a ?a,"N!=",t endfor ? ?n,"N!=",t return ------ 亲 觉得好请采纳 谢...

n=val(thisform.text1.value) s=1 for i=1 to n s=s*i next thisform.text2.value=s

for 循环本身就包含了i 的自增,不需要再人工设置i=i+1 而且你写的公式也不符合阶乘的算法,只是在前几个数上碰巧一致 你的疑问是什么?有问题的两点都指明 了啊

clear s=jc(8)+jc(9)+jc(10) ?'8的阶乘加上9的阶乘加上10得阶乘为',s procedure jc lparameter n1 n2=1 for i=1 to n1 n2=n2*i endfor return n2 endproc

1!/2!=1/2 2!/3!=1/3 1!/2!+2!/3!+....=1/2+1/3+...+1/21 s=0 for i=2 to 21 s=s+1/i next i ?"s=",s

int VPF(int n) { for (n,n>0,n--) n=n*(n-1); } 我不知道负数的阶乘是啥,乘到0的话,你加个if判断就行了。

clear s=0 for i=1 to 9 step 2 s=s+jc(i) endfor ?"1!+3!+5!+7!+9!="+alltrim(str(s)) function jc(x) p=1 for j=1 to x p=p*j endfor return p endfunc

让它连续除于10,直到不能整除10为止 input "n=" to n t=1 for i=1 to n t=t*i endfor s=0 do while t%10=0 s=s+1 t=t/10 enddo ?n,"的阶乘结果后0的个数是:",s

网站首页 | 网站地图
All rights reserved Powered by www.wxsh.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com