全排列问题

原创 2015年07月10日 16:50:25

[题目描述]
输出自然数1~n所有不重复的排列,即n的全排列,要求所产生的任一数字序列中不允许出现重复数字。
[输入格式]
1<=n<=9
[输出格式]
由1~n组成的所有不重复的数字序列。每行一个序列
[输入样例]
3
[输出样例]
1 2 3
1 3 2
2 1 3
2 3 1
3 1 2
3 2 1
[思路分析]
本体只是在生成序列问题上简做修改,就可得出答案
[参考程序]

var a,b:array[1..5000]of longint;
    v:array[1..5000]of boolean;
    i,j,k,l,m,n,t,num,tail:longint;
procedure qs;
var i,j:longint;
    q:longint;
begin
  for i:=1 to n-1 do
   begin
     for j:=i+1 to n do
       begin
         if a[i]>a[j] then
          begin
            q:=a[i];
            a[i]:=a[j];
            a[j]:=q;
          end;
       end;
  end;
end;
procedure print;
var i,j,k:longint;
begin
  for i:=1 to n-1 do
    write(b[i],' ');
    writeln(b[n]);
end;
procedure dfs(k:longint);
var i,j,l:longint;
begin
  if  v[k] then
    begin
      v[k]:=false;
      num:=num+1;
      b[num]:=a[k];
      if num=n then
        print;
      if num<>n then
        for i:=1 to n do
          dfs(i);
      v[k]:=true;
      num:=num-1;
    end;
end;
begin
  //readln(t);
  {for l:=1 to t do
   begin
     n:=0;
     if l<>1 then
       readln;
     while not eoln do
       begin
         inc(n);
         read(a[n]);
       end;
     qs;
     //dec(n);}
     readln(n);
     num:=0;
     tail:=0;
     for i:=1 to n do
       a[i]:=i;
     fillchar(v,sizeof(v),true);
     for k:=1 to n do
       dfs(k);
    // writeln;
   //end;
end.

相关文章推荐

C#实现解决全排列重复问题

  • 2017年09月12日 14:40
  • 25KB
  • 下载

ACM零起点2017-7-26(全排列问题)

给出一个字符串S(可能有重复的字符),按照字典序从小到大,输出S包括的字符组成的所有排列。例如:S = "1312", 输出为: 1123 1132 1213 1231 1312 1321 211...

全排列问题.ppt

  • 2014年03月27日 18:52
  • 486KB
  • 下载

算法分析与设计中的全排列问题

  • 2009年03月28日 10:52
  • 29KB
  • 下载

全排列,字典顺序问题 ( permutations/leetcode)

46. Permutations题目地址 https://leetcode.com/problems/permutations/注意是distinct numbers,所以相对简单, 当然写出好的代...

旅行商问题(全排列)

  • 2010年07月11日 09:32
  • 1KB
  • 下载

Java 数组的全排列问题

  • 2010年06月13日 15:01
  • 3KB
  • 下载

全排列问题

元素互异的全排列问题与有重复问题的全排列问题
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:全排列问题
举报原因:
原因补充:

(最多只允许输入30个字)