wxsh.net
当前位置:首页>>关于1的阶乘加到10的阶乘用vfp程序怎么写?的资料>>

1的阶乘加到10的阶乘用vfp程序怎么写?

Private Sub Command1_Click() a = 1 '初始化a的值 For i = 1 To 10 '循环十次,i每次都会+1 a = a * i '用1分别乘1到10的10个数 Next '继续循环 Print a '输出结果 End Sub

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

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

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

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

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

回答你的问题: ** 计算阶乘和 ** 求1至20的阶乘的和 CLEAR s=0 i=1 j=1 DO WHILE i

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