八、全排列与组合的生成

发布时间:2017-2-27 5:16:59 编辑: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发包工具介绍
下一篇:一个简单的动态页面转静页面的方法

相关文章

相关评论

本站评论功能暂时取消,后续此功能例行通知。

一、不得利用本站危害国家安全、泄露国家秘密,不得侵犯国家社会集体的和公民的合法权益,不得利用本站制作、复制和传播不法有害信息!

二、互相尊重,对自己的言论和行为负责。