Pascal 排列,组合的循环表达方式

Question

计算排列或者组合的一个循环表达式 (我只会编一点点,不会名词,是叫伪代码?)也就是求所有排列或者组合的一个循环部分.(可以用过程代替,也可以直接用循环表示) 比如: 求3个数字(5,7,9 就这三个吧)的组合 那么循环后记录下来的数字组要只有5,7,9,57,59,79,579求3个数字(还是5,7,9)的排列 循环后记录下来的数字组只有5,7,9,57,75,59,95,79,97,579,597,759,795,957,975 能表示出一个算一个,记录的方式可以是 一个元素,一组元素,一个字符(尽量不要字符,一个变量包括数组,是叫做元素吧?) 谢谢高手

Answer 1

1.我不是高手，是沙茶2.纯属打酱油，随便写的，不知道满不满足你的要求3.a数组为原数，b数组存搜索的数，v数组记录是否使用过，Count是答案个数
4.如有看不清楚请BS我或问我
const maxn=100;
var a,b:array[1..maxn] of longint;
v:array[1..maxn] of boolean;
limit,i,n,count:longint;
procedure print;
var i:longint;
begin
inc(count);write('No.',count:3,':');
for i:=1 to limit do write(b[i],' ');
writeln;
end;
procedure dfs(t:longint); {t为深度，即算到第几个数了}
var i:longint;
begin
for i:=1 to n do
if (not v[i]) then {如果没有被使用过}
begin
b[t]:=a[i];v[i]:=true; {标记为使用过}
if t=limit then print {深度符合条件（搜完了），打印}
else dfs(t+1); {深度加一，继续搜下一个}
v[i]:=false; {回溯算法，再标记成没有使用过}
end;
end;
begin
readln(n);
for i:=1 to n do read(a[i]);
for limit:=1 to n do
begin
fillchar(v,sizeof(v),0);
dfs(1);
end;
end.