全排列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.
全排列acc pascal程序加题解
最新推荐文章于 2017-11-16 21:13:38 发布