[求助]把1-50随机分成五组, - Delphi论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 开发语言 → 『 Delphi论坛』 → [求助]把1-50随机分成五组,

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 596 人关注过本帖

标题：[求助]把1-50随机分成五组,

只看楼主加入收藏

party_L

等　级：新手上路
帖　子：11
专家分：0
注　册：2007-1-29

楼主

问题点数：0 回复次数：4

[求助]把1-50随机分成五组,

把1-50随机分成五组, 谁能帮忙给点提示，如果有源码更好，我是个新手，先谢谢了

搜索更多相关主题的帖子: 随机　

2007-02-03 10:01

xu2000

等　级：贵宾
威　望：51
帖　子：3890
专家分：56
注　册：2006-4-8

第 2 楼

得分:0

是每组10个数吗？

我会拿出我全部的钱财，以保你衣食无忧。我会献出我所有的智慧，以助你一帆风顺。我会想到所有的笑语，以令你展眉开颜。我会挤出最长的时间，以使你终生幸福。　 [本人原创的结婚宣言]

2007-02-03 11:02

party_L

等　级：新手上路
帖　子：11
专家分：0
注　册：2007-1-29

第 3 楼

得分:0

我也想是的，我也是别的地方看到的题目，觉得有意思就想试试的，能帮忙吗？

爬走跑跳飞

2007-02-03 11:45

xu2000

等　级：贵宾
威　望：51
帖　子：3890
专家分：56
注　册：2006-4-8

第 4 楼

得分:0

random是一个求随机函数，必需用到它。delphi帮助中这么说的。
n Delphi code, Random returns a random number within the range 0 <= X < Range. If Range is not specified, the result is a real-type random number within the range

0 <= X < 1.
用TList类用来记录1-50的值。
设定两个变量i,j,i初值为50
j:=random(i);
j的值为list中的序号，取出后移出。同时i:=i-1;再做上一步。

这只是个思路，没做测试，你试一下。做完把代码发上来。

2007-02-03 12:03

party_L

等　级：新手上路
帖　子：11
专家分：0
注　册：2007-1-29

第 5 楼

得分:0

好的，我先试试，谢谢

爬走跑跳飞

2007-02-03 13:12

快速回复：[求助]把1-50随机分成五组,