wxsh.net
当前位置:首页>>关于vfp中怎么编写10的阶乘的程序?(过程,答案)的资料>>

vfp中怎么编写10的阶乘的程序?(过程,答案)

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

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

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

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

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