八、全排列与组合的生成

1.排列的生成：（1..n）
procedure solve(dep:integer);
  var
    i:integer;
  begin
    if dep=n+1 then begin writeln(s);exit; end;
    for i:=1 to n do
      if not used[i] then begin
        s:=s+chr(i+ord(''0''));used[i]:=true;
        solve(dep+1);
        s:=copy(s,1,length(s)-1); used[i]:=false;
    end;
  end;

2.组合的生成(1..n中选取k个数的所有方案)
procedure solve(dep,pre:integer);
  var
    i:integer;
  begin
    if dep=k+1 then begin writeln(s);exit; end;
    for i:=1 to n do
      if (not used[i]) and (i>pre) then begin
        s:=s+chr(i+ord(''0''));used[i]:=true;
        solve(dep+1,i);
        s:=copy(s,1,length(s)-1); used[i]:=false;
    end;
end;