是否有特殊的排列公式

Question

谁能帮我用QBASIC CODE找到给定数字的排列。 我真的很感激。 我尝试编写一些代码，但它没有给出所需的答案。

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 的所有排列，那么那就是另一回事了。所以在评论中让我知道。