codevs 全排列 1294

题目描述 Description
        给出一个n, 请输出n的所有全排列


输入描述 Input Description
读入仅一个整数n   (1<=n<=10)


输出描述 Output Description
一共n!行，每行n个用空格隔开的数，表示n的一个全排列。并且按全排列的字典序输出。


样例输入 Sample Input
3


样例输出 Sample Output
1 2 3
1 3 2
2 1 3
2 3 1
3 1 2

3 2 1

代码：

var
  a:array[1..10]of longint;
  b:array[1..10]of boolean;
  n,i:longint;


procedure dfs(t:longint);
var
  i:longint;
begin
  if t>n then
  begin
    for i:=1 to n do
      write(a[i],' ');
    writeln;
    exit;
  end;
  for i:=1 to n do
    if b[i] then
      begin
        b[i]:=false;
        a[t]:=i;
        dfs(t+1);
        b[i]:=true;
      end;
end;


begin
  fillchar(b,sizeof(b),true);
  readln(n);
  dfs(1);
end.