[url=http://www.programfan.com/club/showbbs.asp?id=128367]Moz 的排列组合[/url]

【1】4位数排列：任给出4个非0的不同数字，求出由这4个数字组成的所有的4位数。
　　 例如：输入：3，2，1，6
　　       输出：1 2 3 6   1 2 6 3   1 3 2 6   1 3 6 2   1 6 2 3   1 6 3 2
                 2 1 3 6   2 1 6 3   2 3 1 6   2 3 6 1   2 6 1 3   2 6 3 1
                 3 1 2 6   3 1 6 2   3 2 1 6   3 2 6 1   3 6 1 2   3 6 2 1
                 6 1 2 3   6 1 3 2   6 2 1 3   6 2 3 1   6 3 1 2   6 3 2 1
　　程序要求：从键盘输入4个不同的非0数字，列出由这4个数字组成的所有4位数，从小到大依次输出，每行输出6个数。
CLS
FOR I = 1 TO 4
  INPUT A(I)
NEXT I
FOR I = 1 TO 4
  FOR J = I + 1 TO 4
    IF A(J) < A(I) THEN SWAP A(J), A(I)
  NEXT J
NEXT I
FOR I = 1 TO 4
  FOR J = 1 TO 4
    FOR K = 1 TO 4
      FOR L = 1 TO 4
        IF I * J * K * L = 24 THEN
        IF I + J + K + L = 10 THEN
        PRINT A(I) * 1000 + A(J) * 100 + A(K) * 10 + A(L);
        END IF
        END IF
      NEXT L, K, J, I
END


【2】从N个不同元素中取出M（M<=N）个元素的所有组合的个数，可以用一个公式求出： N!/(M!*(N-M)!)
     试编程输出个数。例如，输入：10，4   输出：210
CLS
INPUT N, M
S = 1
FOR I = 1 TO N
  S = S * I
NEXT I
X = 1
FOR I = 1 TO N - M
  X = X * I
NEXT I
W = 1
FOR I = 1 TO M
  W = W * I
NEXT I
PRINT S / (X * W)
END


【3】从N个不同元素中取出M（M<=N）个元素的所有排列的个数，也可以用一个公式求出： N!/(N-M)!
     试编程输出个数。例如，输入：10，4   输出：5040
CLS
INPUT N, M
S = 1
FOR I = 1 TO N
  S = S * I
NEXT I
X = 1
FOR I = 1 TO N - M
  X = X * I
NEXT I
PRINT S / X
END


【4】有N（N>=3）位同学去照相，每次照三个同学，共可照出多少张不全相同的照片？
     每张照片中都是谁？
CLS
INPUT N
S = 1
FOR I = 1 TO N
  S = S * I
NEXT I
PRINT S
END

哇！hxy 你好厉害！