查一下 random(), randomize()，搜尋一下站內有不少範例～
http://delphi.ktop.com.tw/board.php?cid=168&fid=912&tid=38176

謝謝你
我會先去看看~^^

我看了
可是沒我要的重點一一
我要的是不能使用%
還有50000她是一個破表的直
我記的沒錯的話
rand好像只到3萬多

你查了線上說明嗎？
function Random [ ( Range: Integer) ]; //可以是個Integer。
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。
不要忘記先呼叫 Randomize。

rand()回傳值最大為 32767 
5萬超過...
如果用2個亂數相加產生機率又不夠平均
EX:0 =0 0
2=0 2 1 1 2 0

前輩請你用的是int random(int num);
而不是 int rand(void);

ㄜㄜ...
抱歉抱歉
我沒說清楚>"<
被限定用rand,srand來解決...
而且不能使用%...OTZ

50000

動動你的大腦，問題就可以節決
首先，有很多函式可以作亂數
既然你被限制，哪就利用這個限制

反正 rand() random() 做出來的都是有序的亂數
我們就把 50000 分成 50 個 zone

這樣，就有 50 * 1000 ，符合你的需求了吧

先用 rand () 取 base 1 ~ 50
再用 rand() 取 target 1~1000
例如 base = 43
target = 865

那亂數就是 43865，其實就是分斷取亂數而已，至於重複與否，用陣列€去判斷，反正已經分斷，陣列也不會很大

馬上解決你的問題

要盡量不同，哪就多多換 seed， seed 可以由滑鼠，螢幕，鍵盤來增加亂度，反正就是隨便找一個值就是了

至於分組，就看你爽，要分幾組，幾層都可以
我們大家都來將腦筋放活一點，是我們在用電腦，不是電腦在用我們

對齁~~~
哈哈
感謝大大
之前只想到25000 25000所產生的不平均
卻沒想到取位數來相加
真是太感謝大大哩~