全排列acc pascal程序加题解

全排列acc pascal程序加题解

全排列

Time Limit:20000MS  Memory Limit:65536K Total Submit:506 Accepted:218

Description

列出所有数字1到数字n的连续自然数的排列，要求所产生的任一数字序列中不允许出现得复数字。

Input

输入：n(1<=n<=9)

Output

由1~n组成的所有不重复的数字序列，每行一个序列。

Sample Input

3

Sample Output

1 2 3
1 3 2
2 1 3
2 3 1
3 1 2
3 2 1

Source

elba

程序如下

const
  maxn=1000;
var
  a:array[0..maxn] of longint;
  n,k:longint;
  x:array[0..maxn] of boolean;
procedure init;
begin
  read(n);
end;
procedure aa;//输出。
var
  i:integer;
begin
  for i:=1 to n do

    write(a[i],' ');
  writeln;
end;
procedure js;//搜索。
var i,j:integer;
begin
  if k>n then//步速
  begin
    aa;//符合就输出。
    exit;//结束程序。
  end;
  for i:=1 to n do
  begin
    if not x[i] then//判断是否用过。
    begin
      x[i]:=true;//x[i]设置为用过
      a[k]:=i;//放入输出数组。
      k:=k+1;//步数+1
      js;//回溯，步数-1.
      k:=k-1;//

回溯，步数-1.

x[i]:=false;//设为没用过。 end; end;end;begin init;//输入。 k:=1;//第一步 js;//搜索。end.