Delphi排列组合小程序演示代码

  • 文件大小:8 KB
  • 授权方式:免费版
  • 更新时间:2011-06-06
  • 界面语言:简体中文
  • 软件等级:3星级
  • 插件情况:无插件
  • 相关网站:Home Page
  • 演示网址:Demo Url
  • 运行环境:windows/delphi7
(3)
(2)

软件简介:

Delphi排列组合小程序演示,使用广泛,实现时先定义函数指针:

var M,N:Integer; //假设已经输入好了

Used:array[1..9] of Boolean; //1..10哪些数字被使用了或被剔除了

Used2:array[1..9] of Boolean;

OutPutNums:array[1..9] of Byte; //真正要输出的数字

Order:array[1..9] of Byte; //Order[i]表示排在第i个输出的为哪个数

WorkType:0..1; //如果为0表示选择数字,1表示剔除数字

ToReachCount:Byte;

SelectNumProcs:TSelectNumsProc; //函数指针

然后生成生成N个数,输出N个数的全排列 ,OrderedCount为已经有输出顺序的数字,输出组合、排列的过程,剔除数字状态,生成OutPutNums[1..N]中记载数字的全排列……

下面这段:

{1,2,3,4,5,6,7,8,9,10 M=10

比如 从Min=6开始选 (ToReachCount-NowNumCount)个数字(假设这个值为3)的话

M-(ToReachCount-NowNumCount-1)=8

也就是6到8这三个数字中至少选出一个,才能使剩下的9,10可以满足还需要选2个的可能

}

软件标签:Delphi 排列组合 
《Delphi排列组合小程序演示代码》的下载地址

 1、我们对所有资源都进行了病毒查杀和插件检查,力争提供绿色下载环境。当然,有些含钩子和补丁的软件包可能会误报病毒,但绝对是安全的,推荐您在解压使用前自行检查。
 2、如果某软件不能下载,请稍后尝试,总是不能下载的请点击上边的报告错误,我们将尽快修正,谢谢合作!
 3、我们提供的程序意在学习和研究,未经作者或本站许可请不要用于商业用途,由此造成的不良后果本站不承担任何责任。
 4、本站部分资源下载后需要解压密码,请双击压缩文件,查看右侧的说明,除此之外所有密码为:liehuo.net
 5、如果本站提供的某软件或资源侵犯了您的利益或版权,请立即告诉我们,我们将在收到反馈后的第一时间确认并处理。
 6、建议使用迅雷下载本站提供的软件,并使用Winrar进行解压缩,如果您感觉本站还不错,请收藏最火软件站