好贷网好贷款

八、全排列与组合的生成

发布时间:2016-12-4 20:23:13 编辑:www.fx114.net 分享查询网我要评论
本篇文章主要介绍了"八、全排列与组合的生成",主要涉及到八、全排列与组合的生成方面的内容,对于八、全排列与组合的生成感兴趣的同学可以参考一下。

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;  

上一篇:常用IP发包工具介绍
下一篇:一个简单的动态页面转静页面的方法

相关文章

相关评论