randomize
randomize
randomize是一種函數，功能是初始化隨機數發生器。
註：可以在TC2.0中運行通過，在VC6.0不能運行。
VC中使用srand()來初始化為隨機數生成器。代碼實例：
#include
#include <time.h>
#define N 10
main()
{
int i;
srand(time(0));
for(i=0;i
printf("%d\n",rand()%100);
system("pause");
}
語句名:Randomize
功 能：初始化隨機數發生器
用 法:Randomize
Randomize 語句示例
本示例用 Randomize 語句初始化隨機數生成器。由於忽略了數值參數，所以 Randomize 用 Timer 函數的返回值作為新的隨機數種子值。
Dim MyValue
Randomize ' 對隨機數生成器做初始化的動作。
MyValue = Int(6 *Rnd+1) ' 生成 1 到 6 之間(包括6）的隨機整數。
以下事例將隨機產生0到100的數字，如果不使用Randomize函數，得到的結果將有規律性。
procedure TForm1.btn1Click(Sender: TObject);
begin
randomize;
ShowMessage(IntToStr(Random(100)));
end;
pascal中如果不使用randomize，就是上一次的結果。並且，pascal中的隨機數語句是從0開始的，以X-1結束。因此如果隨即產生0~100間的數要用random(101)來。
下面一個產生0~100的隨機數的程序：
var a:integer;
begin
randomize;
a:=random(101);
writeln(a);
readln;
end.
同上，在FBIde里，如果沒有RANDOMIZE，隨機出來的結果跟開始一樣
下面是產生20個0~100之間的整數的語句(要用到一維數組）：
FOR I=1 TO 20
A(I)=INT(RND*101)
NEXT I
目錄