百度作业网pascal数字排列问题
来源：学生作业帮 编辑：百度作业网作业帮 分类：综合作业 时间：2024/06/30 18:39:33
pascal数字排列问题
列出所有数字从1到n的自然数排列,眼球所产生任意序列中不允许出现重复的数字
输入：n（n
列出所有数字从1到n的自然数排列,眼球所产生任意序列中不允许出现重复的数字
输入：n（n
var n:longint;
p:array[1..1000]of boolean;
f:array[1..1000]of longint;
procedure dfs(i:longint);
var a:longint;
begin
if i>n then
begin
for a:=1 to n do write(f[a],' ');
writeln;
exit;
end;
for a:=1 to n do
if not p[a] then
begin
p[a]:=true;
f[i]:=a;
dfs(i+1);
p[a]:=false;
end;
end;
begin
read(n);
dfs(1);
end.
p:array[1..1000]of boolean;
f:array[1..1000]of longint;
procedure dfs(i:longint);
var a:longint;
begin
if i>n then
begin
for a:=1 to n do write(f[a],' ');
writeln;
exit;
end;
for a:=1 to n do
if not p[a] then
begin
p[a]:=true;
f[i]:=a;
dfs(i+1);
p[a]:=false;
end;
end;
begin
read(n);
dfs(1);
end.