全排列acc pascal程序加题解

来源：互联网发布：分享淘宝链接怎么赚钱编辑：程序博客网时间：2024/05/19 05:34


全排列acc pascal程序加题解
全排列
Time Limit:20000MS  Memory Limit:65536KTotal Submit:506 Accepted:218 
Description 
列出所有数字1到数字n的连续自然数的排列，要求所产生的任一数字序列中不允许出现得复数字。
Input 
输入：n(1<=n<=9)
Output 
由1~n组成的所有不重复的数字序列，每行一个序列。
Sample Input 
3
Sample Output 
1 2 31 3 22 1 32 3 13 1 23 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.

0 0