)全排列
从n个不同元素中任取m（m≤n）个元素，按照一定的顺序排列起来，叫做从n各不同元素中取出m个元素的一个排列。当m＝n时所有的排列情况叫全排列。
如1,2,3三个元素的全排列为：
1,2,3
1,3,2
2,1,3
2,3,1
3,1,2
3,2,1
全排列数f(n)=n!(定义0!=1)
采用深度优先搜索算法，即对每一位上的数进行枚举而求得所有排列。一般利用递归完成。
全排列是将一组数按一定顺序进行排列，如果这组数有n个，那么全排列数为n!个。现以{1,2,3,4,5}为
例说明如何编写全排列的递归算法。
1、首先看最后两个数4,5。它们的全排列为45和54,即以4开头的5的全排列和以5开头的4的全排列。
由于一个数的全排列就是其本身，从而得到以上结果。
2、再看后三个数3,4,5。它们的全排列为345、354、435、453、534、543六组数。
即以3开头的和4,5的全排列的组合、以4开头的和3,5的全排列的组合和以5开头的和3,4的全排列的组合.
从而可以推断，设一组数p={r1,r2,r3,...,rn},全排列为perm(p)，pn=p-。
因此perm(p)=r1perm(p1),r2perm(p2),r3perm(p3),...,rnperm(pn)。当n=1时perm(p}=r1。
为了更容易理解，将整组数中的所有的数分别与第一个数交换，这样就总是在处理后n-1个数的全排列。
programe;
var
n,t:longint;
a:array[1..8]of integer;
flag:array[1..8]of boolean;
procedure search(depth:integer);{depth变量表示正在搜索第几个元素}
var
i:integer;
begin
if (depth>n) then{depth>n表明已经搜索到了第n个数，那么输出结果}
begin
for i:=1 to n do write(a［i］:4);
writeln;
inc(t);
exit;{此种结果输出后，退出该层搜索}
end;
for i:=1 to n do{枚举下一个出现的元素}
if flag［i］=false then{判断是否已经出现过}
begin
a[depth]:=i;{没有出现，则把第depth个数设为i}
flag［i］:=true;{给这个标志变量给出出现的标志}
search(depth 1);{递归搜索下一个元素}
flag［i］:=false;{回溯，此时恢复这个标志变量为没出现的标志}
end;
end;
begin
writeln('inputN:');
read(n);
t:=0;
fillchar(flag,sizeof(flag),false);{赋初值，设定全部没有出现过}
search(1);
writeln('Total=',t);
end.
