vfp 编写一过程,计算(M+N)!/(M!+N!)
来源:学生作业帮 编辑:大师作文网作业帮 分类:综合作业 时间:2024/11/12 05:43:19
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
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
VFP中,编写程序,计算Y=(M+N)!/(M!+N!),M,N由键盘输入
用vfp编写计算 s=n!/m!(m-n)!,m>n,
计算(m+2n/n-m)-(n/m-n)+(2m/n-m)要过程
p=n+(n+1)+(n+2)+……+(n+m)编写vfp程序
使用MATLAB编写M 文件(传递参数n)计算Fibonacci 数列第n 项
计算(3-m+n)*(3+m-n)-(2-m+n)*(2+m-n)
计算(2m²-n)²(2m²+n)²(要有过程)!
计算表达式 /n!(m-n)!
计算 m+n/m²-mn÷(m+n)×(m²-n²)
计算 (m-2n)^2(m+2n)^2
计算(m-n)平方乘(m+n)平方
c语言作业,编写程序:计算m!/(m-n)!,其中m、n为正整数且m>n