然後生成 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 之間的隨機數。

樓上是正確的解決方案，樓上不是演算法。