?? 一個利用系統時間產生隨機數的程序,比系統的隨機函.txt
字號:
一個利用系統時間產生隨機數的程序,比系統的隨機函數真實 (2001年1月7日)
網友更新 分類:算法 作者: alaclp(推薦) 推薦:alaclp 閱讀次數:417
(http://www.codesky.net)
--------------------------------------------------------------------------------
function Myrandom(Num: Integer): integer;
var
T: _SystemTime;
X: integer;
I: integer;
begin
Result := 0;
GetSystemTime(T);
X := T.wDayOfWeek * T.wYear * T.wMilliseconds*T.wSecond * (random(Num)+1) + Random(1);
if X < 0 then X := -X;
X := Random(X);
if(num = 0) then Exit;
X := X mod num;
for I := 0 to X do //通過隨機發生次數來控制產生不同的隨機數
X := Random(Num);
Result := X;
end;
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -