作业帮 > 综合 > 作业

vfp 编写一过程,计算(M+N)!/(M!+N!)

来源:学生作业帮 编辑:大师作文网作业帮 分类:综合作业 时间:2024/11/12 05:43:19
vfp 编写一过程,计算(M+N)!/(M!+N!)
用什么子程序!
vfp 编写一过程,计算(M+N)!/(M!+N!)
文件一:主文件,文件名随意
CLEAR
DO WHILE .T.
INPUT "请输入一个正整数 M:" TO nGetM
IF NOT TYPE([nGetM]) = "N"
"数据无效!"
ELSE
IF nGetM > 0 AND INT(nGetM) = nGetM
EXIT
ENDIF
ENDIF
ENDDO
DO WHILE .T.
INPUT "请输入一个正整数 N:" TO nGetN
IF NOT TYPE([nGetN]) = "N"
"数据无效!"
ELSE
IF nGetN > 0 AND INT(nGetN) = nGetN
EXIT
ENDIF
ENDIF
ENDDO
js1 = zi_jisuan(nGetM + nGetN)
js2 = zi_jisuan(nGetM )
js3 = zi_jisuan(nGetN)
"M:" + str(nGetM)," N:" + str(nGetN)
"结果 "+ str(js1 / (js2 + js3) )
文件二:子程序(另起一个文件,文件名叫zi_jisuan.prg)
parameter myi
tmp =1
for i=2 to myi
tmp = tmp *i
endfor
return tmp