全排列acc pascal程序加题解

最新推荐文章于 2018-04-21 22:46:54 发布

SSL_zeng_yu

最新推荐文章于 2018-04-21 22:46:54 发布

阅读量632

点赞数

CC 4.0 BY-SA版权

分类专栏： pascal 杂乱题目 pascal 搜索

本文链接：https://blog.youkuaiyun.com/SSL_zeng_yu/article/details/53400175

pascal 杂乱题目同时被 2 个专栏收录

13 篇文章

订阅专栏

pascal 搜索

7 篇文章

订阅专栏

本文提供了一段使用Pascal语言实现的全排列程序代码及其题解。该程序能够生成从1到n的所有不重复数字序列，并通过递归实现搜索算法来避免重复。适用于初学者了解全排列算法。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >


全排列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.