求助： pascal 排列与组合是常用的数学方法，其中组合就是从n个元素中抽出r个元素(不分顺序且r<＝n)，我们

Question

急 pascal

排列与组合是常用的数学方法，其中组合就是从n个元素中抽出r个元素(不分顺序且r<＝n)，我们可以简单地将n个元素理解为自然数1，2，…，n，从中任取r个数。
现要求你不用递归的方法输出所有组合。
例如n＝5，r＝3，所有组合为：
l 2 3 l 2 4 1 2 5 l 3 4 l 3 5 1 4 5 2 3 4 2 3 5 2 4 5 3 4 5

Answer 1

const mix=21; //题意如此，暂且限定到这。
var
n,m,d,r,i,z,c:integer;
q:array[0..mix] of 0..1;
a:array[0..mix] of integer;
procedure print;
var i,j:integer;
begin
for i:=1 to r do
write(a[i]:3); // 题意如此往往容易忽视.
writeln;
end;
function panding(l,m:integer):boolean;
var
i,j:integer;
begin
panding:=true;
for i:=1 to m-1 do
begin
if a[i]=l then begin panding:=false; exit; end;
if a[i]>l then begin panding:=false; exit; end;
end;
end;
procedure try (k:integer);
var i,j,l:integer;
begin
for j:=a[k-1] （1）to n do
if (panding(j,k))and (q[j]=0) then
begin
a[k]:=j;
q[j]:=1;
if k=r then begin print end
else try(k+1);
q[j]:=0;
end;
end;
begin
assign(input,'Compage.in');
reset(input);
assign(output,'Compage.out');
rewrite(output);
read(n,r);
if (n=0) or (r=0) then
halt; //注意边界.
for i:=1 to n do
begin
q[i]:=0;
a[i]:=0;
end;
a[0]:=1;
try(1);
close(input);
close(output);
end.

Answer 2

啊哈，此乃全排列是也！递推递归都可以

追问

有代码吗