是否有一个特殊的置换公式

Question

谁可以通过QBASIC代码帮助我找到给定数字的排列。我真的很感激。我尝试编写一些代码，但未给出所需的答案。

Answer 1

如果通过排列，您的意思是阶乘，那么以下是您需要的代码。它会得到一个整数并计算其阶乘。

DECLARE FUNCTION Factorial (n)
FUNCTION Factorial (n)
  IF n = 0 THEN
    Factorial = 1
  ELSE
    Factorial = n * Factorial(n - 1)
  END IF
END FUNCTION
INPUT "PLEASE ENTER AN INTEGER", n
PRINT n;"! = "; Factorial(n)

但是如果用排列法来表示序列1，...，n的所有排列，那是另一回事了。因此，请在评论中告诉我。