用vfp编写计算 s=n!/m!(m-n)!,m>n,急求解答

来源：百度知道 编辑：UC知道 时间：2024/05/21 19:18:20
用vfp编写计算s , s=n!/m!(m-n)!,m>n

*main.prg
set talk off
clear all
clear
stor 0 to s,mj,nj,kj,m,n
@1,10 say "输入M值" get m
@2,10 say "输入n值" get n
read
b=0
if m<n
b=m
m=n
n=b
endif
k=m-n
do sub1 with m,mj
do sub1 with n,nj
do sub1 with k,kj
s=nj/mj*kj
? s
set talk on
clear all
return

*sub1.prg
para jc,jg
jg=1
for i=1 to jc
jg=jg*i
endfor
return
以经上机验证过

*main.prg
set talk off
clear all
clear
stor 0 to s,mj,nj,kj,m,n
@1,10 say "输入M值" get m
@2,10 say "输入n值" get n
read
b=0
if m<n
b=m
m=n
n=b
endif
k=m-n
do sub1 with m,mj
do sub1 with n,nj
do sub1 with k,kj
s=nj/mj*kj
? s
set talk on
clear all
return

*sub1.prg
para jc,jg
jg=1
for i=1 to jc
jg=jg*i
e