vfp 编写一过程,计算(M+N)!/(M!+N!)用什么子程序!

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/06 09:04:10

vfp 编写一过程,计算(M+N)!/(M!+N!)用什么子程序!
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