然后生成 31 以内的数字（体育彩票）

我自己写了一个函数，我曾经用它来制造麻烦。

function unsamerand(x, y: integer):tstringlist;

var x：敏感掩码总数，y：范围。

i,count,z:integer;

str:tstringlist;

a:array of integer;

label l;

beginif (x>=y) or (x=0) or (y=0) then

对不起，随机数的总数和范围都不能为零，它们不能相等，并且范围必须大于总数。 '提示',0+16+0);

result:=nil;

exit;end

else begin

str:=;

randomize;

setlength(a,x);

for i:=0 to x-1 do

beginl:z:=random(y);

for count:=0 to i do

beginif a[count]=z then

begingoto l;

end;end;

a[i]:=z;

end;result:=str;

end;end;

声誉饥渴的具体应用是：

unsamerand(7,31);7 个不同的随机数，范围为 1...在31之间。

在我尘土飞扬的空间里有一个不走运的问题：

还有截图，大家可以去看看吧！

以下是 Delphi 源码，可以查看。

randomize

与Randseed的关系。

procedure

randomize;

varcounter:

int64;

beginifqueryperformancecounter(counter)then

randseed

counter

elserandseed

gettickcount;

end;

声明三个字符串类型存储了 everyone，每个字符串上都存储了 10 个、10 个数字，可以多次点击组合按钮将对应的数字保存到 tstring 中，然后遍历输出，这是一个三层循环。

留下来会写出好的例子并发送给你。

以下示例通过以下方式进行调试：

procedure : tobject);

var bb,ss,gg:tstrings;

var temp:string;

b,s,g:integer;

beginbb:=;

ss:=;gg:=;

for b:=0 to do

beginfor s:=0 to do

beginfor g:=0 to do

begintemp:='';

temp:=bb[b]+ss[s]+gg[g];

end;end;

end;;;

end;

你在左边用什么控件，不会一个一个地完成，对吧？ 如果是复选框，当你组合它时，你把百、十和单位分成字符，然后把它们加到右边！

function hassamenum(s: array of integer; n: integer): boolean;

vari: integer;

beginhassamenum := false;

for i := low(s) to high(s) -1 doif s[i] = n then

beginhassamenum := true;

exit;end;

end;procedure : tobject);

varx, y: integer;

s: array[1..5] of integer;

beginrandomize;

x := 1;

while x < 6 do

beginy := random(10);从 0-9 生成随机数 y ： = y + 1;

if (not hassamenum(s,y)) or (x = 1) then

begins[x] := y;

inc(x);

end;end;

end;一个更愚蠢的方法，你可以自己研究一下。

31 个中有 5 个是这样授予的：

一等奖：投注号码与彩票号码中的7个正数相同，即为中奖彩票;

二等奖：投注号码与抽奖号码中的任意6个正数和特殊号码相同，即为中奖;

三等奖：投注号码与彩票号码中的任意6个正数相同，即中奖;

四等奖：投注号码与抽奖号码中的任意5个正数和特殊号码相同，即为中奖奖品;

五等奖：投注号码与抽奖号码中的任意5个正数相同，即为中奖奖品;

六等奖：下注号码与抽奖号码中的任意4个正数和特殊号码相同，即为中奖彩票;

七等奖：投注号码与开奖号码中的任意4个正数相同，即表示中奖。

因此，最低中奖条件是赢得 4 个正数。

姜烤猪盖饭 描述 简单的食材也被做成开胃菜， 日式姜烤猪肉饭 成分 猪肉（肌肉）5 6片，洋葱1 4片，酱油3汤匙，醋或味醂1汤匙，生姜1小块，葱1小块 考前准备 将生姜磨成泥，加入约40-50cc水备用 洋葱切成条状备用 猪肉用沸水洗净， 将米酒腌制，去腥 调整酱汁，酱油3汤匙，醋1汤匙 平底锅中烧一勺油，将洋葱拌匀炒至香味散去，炒猪肉酱汁上色后，再加入姜水（筛去姜泥）， 翻炒炖至汁液减少，这时就可以出锅了猪肉盖上米饭，放一些葱丝，然后完成罗。

1.鸽子在运输和返航过程中处于紧急状态，产生应激反应并降低自身免疫力。 上笼、车撞、水分不平衡、休息不畅、体力消耗过多，都会造成鸽子的身心疲劳，导致抵抗力下降，所以一些潜伏的病菌也可以趁势而上。 2.鸽子在比赛中暴露于病菌源。

篮子没有消毒，病鸽子被放进篮子里，鸽子在笼子里打架，饮用水不卫生，鸽子在回家的路上在野外等等，这些都像是“细菌战”来“打败”鸽子。 当鸽子回到家时，通常有三种表现状态。 一种是立即走到水壶前，喝一大口水，然后吃饲料。

二是先吃饲料，再去喝水。 三是不吃不喝，蹲在角落里。 先吃饲料再喝水的鸽子，说明身体没有那么累。

给鸽子喝水然后喂食是它们有点累的迹象。 鸽子蹲在一边不吃不喝，说明他很累，可能得了病。 赛后训练最重要的事情之一就是休息和休息。

当鸽子回来时，先给它一点加了蜂蜜和电解质的水，然后把它放在巢里30到40分钟，然后喂它一个容易消化的小颗粒饲料，用平时量的一半，另外，塞进酵母片以帮助消化， 可以防止暴饮暴食引起的消化不良。傍晚时分，再给一粒赛后宝药或广谱抗菌药，以防疾病发生。 归巢第二天，饲料和饮用水恢复到正常的饲喂管理，除了增加饲料中蛋白质饲料的比例，并在饮用水中添加肝精。

然而，鸽舍被置于黑暗中，所有的鸽子都被允许安静地休息，以加快它们的恢复速度并缓解它们的紧张情绪。 到达第三天，在洗澡水中加入少许高锰酸钾，给它们洗澡，让它们在敞开的树冠中自由飞翔，让它们在熟悉的生活环境中充分放松，增强信心。 几天后，鸽子会精神抖擞，精神抖擞。

充足的休息和放松，这是鸽子恢复体力和精神力的最佳方式。 抵达第四天后，一切都恢复到通常的管理水平，并准备好迎接下一个挑战。 对于不吃不喝的归巢鸽，应将其隔离、饲养和观察。

因为它们可能是整个鸽舍鸽子的疾病来源。 当发现病鸽时，首先要做的就是隔离病鸽。 隔离病鸽，不仅可以防止整个鸽舍被感染，而且对病鸽的****也非常有利。

蹲在鸽舍角落的病鸽会受到其他鸽子的攻击和骚扰，病鸽总是处于精神紧张的状态，这会加速疾病的恶化。 隔离后，让它有一个平和的环境，加点好的饮用水，然后仔细观察，对症用药**，自然会恢复得更快。

你把生成的保存在一个字符串列表中，下一代确定字符串列表是否存在，如果存在，继续生成，直到它不存在！ 另外，在使用 random 之前，请使用 randomize 初始化随机种子！

randomize;生成随机数种子。

i:=random(100);生成一个 0-99 之间的随机数。

楼上是正确的解决方案，楼上不是算法。