软件下载 | 资讯教程 | 最近更新 | 下载排行 | 一键转帖 | 发布投稿
您的位置:最火下载站 > 源码下载 > Delphi源码 > 系统相关 > Delphi排列组合小程序演示代码下载

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

  • 界面语言:简体中文 / 国产软件
  • 文件大小:8 KB
  • 资源等级:3星级
  • 相关链接:Home Page
  • 有无插件:无插件
  • 授权方式:免费版
  • 更新时间:2011-06-06 09:50:46
  • 运行环境:windows/delphi7

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排列组合小程序演示代码
推荐下载
下载说明
栏目导航
推荐下载