Question

下面是通过建立计算阶乘的自定义函数计算组合C(M,N)=M!/(N!*(M-N))!)的值,其中的M,N通过键盘输入。

下面是通过建立计算阶乘的自定义函数计算组合C(M,N)=M!/(N!*(M-N))!)的值,其中的M,N通过键盘输入。请在【15 】_处填上正确的语句。
***CC.PRG***
*主程序CC.PRG通过调用自定义函数CF计算组合C(M,N)
SET TALK OFF
CLEAR
INPUT "请输入组合元素个数M:" TO M
INPUT "请输入组合选取个数N:" TO N
X=M-N
MC=CF(M)/(CF(N)*CF(X))
?"C(M,N)=",MC
SET TALK ON
RETURN
*自定义函数CF根据参数P返回P!计算值
FUNCTION CF
PARA P
I=1
Z=1
DO WHILE I<=P
Z=Z*I
I=I+1
ENDDO
RETURN Z

Answer 1

且不说你指的 【15 】_在何处。就程序而言，有以下 2 个不当之处。
1 组合 C(M,N)=M!/(N!*(M-N)！) 算式成立 的必要条件是 （M> N) 。看这段程序存在错误：
INPUT "请输入组合元素个数M:" TO M
INPUT "请输入组合选取个数N:" TO N
X=M-N 这里应保证 M> N ， 加上容错处理。
MC=CF(M)/(CF(N)*CF(X)) 否则，当 M <= N. 计算将出错。

2 自定义函数返回值由Z 带回，因此在参数说明句中加上Z。
PARA P，Z
这样才能保证返回P! 的计算值。

追问

那您的意思是这道题出错了吗？要是没错的话，15这个空应该填什么？

追答

题没错，但你应当有保证 M> N 的容错处理，否则，当输入的　 M <= N. 时计算将出错。

你指的 【15 】_这个空在何处？？？