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

例如求N! input "N=" to n t=1 for a=1 to n t=t*a endfor ?"N!=",t return

这个还什么内部外部的?几句就搞定: aa=1 for bb=1 to 10 aa=aa*bb endfor ?aa return

双重循环 第一个循环为 加的循环 第个循环为乘的循环 如 int sum=0; for(int i=1;i0 ;j--) { che=che*j; } sum+=che; }

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

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、endfor是一个整体,不要分开,这就是“提示嵌套错误”的原因。 2、“?n”有什么意义?应该是“?p”吧

jc=1 for i=1 to 5 jc=jc*i endfor ?'5!=',jc

* vfp 编写一个计算阶乘的带参数过程factorial,并将其包含在一个主程序中 SET TALK OFF CLEAR DO WHILE .T. ACCEPT "请输入阶乘基数(0-退出):" TO n n=ROUND(VAL(n),0) IF n

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