全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:843
推到 Plurk!
推到 Facebook!

生成随机数的第一个值

答題得分者是:shunaarom
ralph921
一般會員


發表:17
回覆:31
積分:14
註冊:2005-08-22

發送簡訊給我
#1 引用回覆 回覆 發表時間:2005-09-20 23:57:14 IP:221.201.xxx.xxx 未訂閱
以下是小弟写的一个用于生成随机数的小过程: { var Chk: Integer; begin Chk:= 10000001 Random(99999999 - 00000001); showmessage(IntToStr(Chk)); end; } 为何每次运行时,生成的第一个随机数总是10000001??
shunaarom
一般會員


發表:8
回覆:34
積分:18
註冊:2003-07-02

發送簡訊給我
#2 引用回覆 回覆 發表時間:2005-09-21 01:31:39 IP:220.134.xxx.xxx 未訂閱
var Chk: Integer; begin Randomize; <--多這個 Chk:= 10000001 Random(99999999 - 00000001); showmessage(IntToStr(Chk)); end; 其實Random他還是有一定規則~所以一定值都會一樣~ 所以先在前面加上Randomize即可 ~進步~ 別人問題~將是我問題~ 決解問題~ 再邁向更頂尖~
ralph921
一般會員


發表:17
回覆:31
積分:14
註冊:2005-08-22

發送簡訊給我
#3 引用回覆 回覆 發表時間:2005-09-21 08:26:42 IP:210.83.xxx.xxx 未訂閱
謝謝shunaarom!    那個,你簽名檔是不是應該是“解決問題”?
系統時間:2024-11-23 0:45:30
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!