如何讓亂數不重複? |
答題得分者是:cobraliu
|
tony_s70266
一般會員 發表:1 回覆:0 積分:0 註冊:2008-04-29 發送簡訊給我 |
三個元件 Edit 、Memo1、Button1
procedure TForm1.Button1Click(Sender: TObject); var i,n:integer; begin n:=StrToInt(Edit1.Text); Randomize(); i:= Random(n) 1; memo1.Lines.Add(IntToStr(i)); end; 我想要做一個亂數產生器 可是它出現的值還是會再重複一次 聽說可以用陣列去記錄,如果取過的值他就不會在取了 只是...我不知道該怎麼做 希望有高手能夠指點一下 ,謝謝 ----------------------- 版主大人對不起,真是不好意思 我記得我有打,可能是改到了吧! 已經把標題改了,感謝你的通知 ---------------------- 我大概已經知道了 謝謝各位的回答 編輯記錄
tony_s70266 重新編輯於 2008-05-02 14:52:53, 註解 無‧
tony_s70266 重新編輯於 2008-05-02 14:54:26, 註解 無‧ tony_s70266 重新編輯於 2008-05-02 14:56:27, 註解 無‧ tony_s70266 重新編輯於 2008-05-02 14:56:46, 註解 無‧ tony_s70266 重新編輯於 2008-05-02 16:48:08, 註解 無‧ tony_s70266 重新編輯於 2008-05-03 14:09:01, 註解 無‧ |
cobraliu
中階會員 發表:15 回覆:75 積分:83 註冊:2007-11-22 發送簡訊給我 |
------
初學、初學、學了很久...還是在初學階段..Orz |
P.D.
版主 發表:603 回覆:4038 積分:3874 註冊:2006-10-31 發送簡訊給我 |
1.請使用有意義的標題
http://delphi.ktop.com.tw/board.php?cid=32&fid=107&tid=20571 通常對沒有意義的標題, 我們是不會提供任何意見的, 謝謝! |
P.D.
版主 發表:603 回覆:4038 積分:3874 註冊:2006-10-31 發送簡訊給我 |
1.樓上網友已經有充分的提供答案來源了, 這邊不多述code
2.Random(n), 其中的 n 我們一般稱為 種子來源, 當來源一樣時, 所產生的亂數是同一組 所以, 我一般會用時間與日期做種子來源求亂數, 例如 DecodeDate(), DecodeTime()取出年月日時分秒值, 然後給它做一堆亂七八糟的 -*/ 求出來的數值做為種子來源, 基本上要重覆的可能性非常低 你可以朝向這方面來設計, 多利用搜尋來找答案 ===================引 用 tony_s70266 文 章=================== 三個元件 Edit 、Memo1、Button1 procedure TForm1.Button1Click(Sender: TObject); var i,n:integer; begin n:=StrToInt(Edit1.Text); Randomize(); i:= Random(n) 1; memo1.Lines.Add(IntToStr(i)); end; |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |