易语言新手求高手帮写个程式

问题描述:

易语言新手求高手帮写个程式
数列1.2.3.4.5.6.7.8.9.10[1-10范围]
1组是13456[1-10里面的随意5个数但没有重复的.5个数不是随机数是可以随意手写的位置没有要求只要不重复就可以了]
2 组是23457
3组是24789
4组是56789
现在想随机一组5位数据范围是[范围是上述数列1-10]但又不能与前面4组数列中有相同的数字超过3个.
1个回答 分类:综合 2014-10-22

问题解答:

我来补答
.版本 2
.支持库 spec
.局部变量 数字数组, 整数型, , "0"
.局部变量 排序后的数字数组, 整数型, , "0"
.局部变量 随机数, 整数型
.局部变量 计次, 整数型
.局部变量 显示的排序数字, 文本型
.计次循环首 (5, 计次)
加入成员 (数字数组, 计次)
.计次循环尾 ()
置随机数种子 ()
.计次循环首 (5, 计次)
随机数 = 取随机数 (1, 取数组成员数 (数字数组))
加入成员 (排序后的数字数组, 数字数组 [随机数])
删除成员 (数字数组, 随机数, )
.计次循环尾 ()
.计次循环首 (5, 计次)
显示的排序数字 = 显示的排序数字 + 到文本 (排序后的数字数组 [计次])
.计次循环尾 ()
调试输出 (显示的排序数字)
信息框 (显示的排序数字, 0, )
 
 
展开全文阅读
剩余:2000
下一页:老师第一十三题