wxsh.net
当前位置:首页>>关于求计算机二级考试复习,vfp程序设计,求n的阶乘怎...的资料>>

求计算机二级考试复习,vfp程序设计,求n的阶乘怎...

SET TALK OFFCLEARinput '请输入一个正整数:' to na=1FOR i=1 TO na=a*iNEXT i? ALLTRIM(STR(n))+'的阶乘='+ALLTRIM(STR(a))SET TALK ONRETURN运行结果: 请输入一个正整数:(假设输入3) 3的阶乘=6

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 而且你写的公式也不符合阶乘的算法,只是在前几个数上碰巧一致 你的疑问是什么?有问题的两点都指明 了啊

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

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

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

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

回答你的问题: ** 计算阶乘和 ** 求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