TC官方合作论坛

标题: 数字排列高手指点下 [打印本页]
作者: qq5111059    时间: 2014-4-27 22:57
标题: 数字排列高手指点下
本帖最后由 qq5111059 于 2014-4-27 23:46 编辑

想写个排列数字的比如只用1和2排列 8位。11111112  11111121 22222221 22222212
意思也就是8个1  8个2
排列成个8位的数字不重复


谁有思路的话提示下。能写下源码最好了。太感谢了

作者: qq5111059    时间: 2014-4-27 22:58
自己顶个
作者: qq5111059    时间: 2014-4-27 23:28
采纳会员2个月
作者: JSDYWZ    时间: 2014-4-27 23:35
本帖最后由 JSDYWZ 于 2014-4-28 01:00 编辑
  1. 空间 排列组合
  2. //默认空间

  4. //开始按钮_点击操作
  5. 功能 开始_点击()
  6.     变量 组合,位数,全部组合=""
  7.     组合=数组[256]
  8.     全部组合="11111111"
  9.     遍历(i=1;i<256;i++)
  10.         组合[i]=排列组合.十进制转二进制(i)
  11.         位数=字符串.长度(组合[i])
  12.         选择(位数)
  13.             条件 1:
  14.             组合[i]="0000000"&组合[i]
  15.             条件 2:
  16.             组合[i]="000000"&组合[i]
  17.             条件 3:
  18.             组合[i]="00000"&组合[i]
  19.             条件 4:
  20.             组合[i]="0000"&组合[i]
  21.             条件 5:
  22.             组合[i]="000"&组合[i]
  23.             条件 6:
  24.             组合[i]="00"&组合[i]      
  25.             条件 7:
  26.             组合[i]="0"&组合[i]      
  27.             条件 8:
  28.         选择结束
  29.         组合[i]= 字符串.替换(组合[i],"1","2")
  30.         组合[i]=字符串.替换(组合[i],"0","1")
  31.         全部组合=全部组合&"\r\n"&组合[i]
  32.     遍历结束
  33.     编辑框.设置文本("编辑框0",全部组合)
  34.     调试输出(全部组合)
  35. 功能结束


  38. 功能 十进制转二进制(十进制数值)
  39.     变量 字符串累加值=""
  40.     循环(十进制数值!=1)
  41.         如果((十进制数值 % 2)==0)
  42.             十进制数值=类型.取整((十进制数值/2))
  43.             字符串累加值="0"&字符串累加值
  44.         否则
  45.             十进制数值 = 类型.取整(((十进制数值-1)/2))
  46.             字符串累加值 = "1" & 字符串累加值
  47.         如果结束
  48.     循环结束
  49.     如果(十进制数值!=0)
  50.         字符串累加值="1"&字符串累加值
  51.     如果结束
  52.     返回 字符串累加值
  53. 功能结束


  56. 功能 退出_点击()
  57.    
  58.     辅助.退出()
  59. 功能结束

  61. 空间结束
  62. //空间结束语句
复制代码


作者: qq5111059    时间: 2014-4-27 23:37
JSDYWZ 发表于 2014-4-27 23:35
按什么排列   排列大小？

8位不重复排列
作者: a5602395    时间: 2014-4-27 23:42
表示看不明白
作者: qq5111059    时间: 2014-4-27 23:46
a5602395 发表于 2014-4-27 23:42
表示看不明白

意思也就是8个1  8个2
排列成个8位的数字不重复

作者: JSDYWZ    时间: 2014-4-27 23:52
是 生成  所有的 组合吧
作者: qq5111059    时间: 2014-4-27 23:54
JSDYWZ 发表于 2014-4-27 23:52
是 生成  所有的 组合吧

是的
作者: rainshine    时间: 2014-4-27 23:57
这还不简单 随机呗
作者: JSDYWZ    时间: 2014-4-28 00:02
遍历 十进制    0-255，   每一个数字   转换成  一个二进制  ，  在使用字符串 替换  0  1  就可以了



欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/) Powered by Discuz! X3.1