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.