C語言 函式名:randomize
功 能:初始化隨機數發生器
用 法:void randomize(void);
程式例:
#include <stdlib.h>
int main(void)
{
int i;
randomize();
printf("Ten random numbers from 0 to 99\n\n");
for(i=0; i<10; i++)
printf("%d\n", rand() % 100);
return 0;
}
註：可以在TC2.0中運行通過，在VC6.0不能運行。
VC中的用法
VC中使用srand()來初始化為隨機數生成器。代碼實例：
#include <stdio.h>
#include <stdlib.h>
#include <time.h>
#define N 10
main()
{
int i;
srand(time(0)); /*設定種子,並生成偽隨機序列*/
for(i=0;i<N;++i)
printf("%d\n",rand()%100);/*得到[0,99]偽隨機數*/
system("pause");
}
VB 中的用法
Randomize 語句示例
本示例用 Randomize 語句初始化隨機數生成器。由於忽略了數值參數， 所以 Randomize 用 Timer 函式的返回值作為新的隨機數種子值。
Dim MyValue
Randomize ' 對隨機數生成器做初始化的動作。
MyValue = Int((6 * Rnd) + 1) ' 生成 1 到 7 之間(不包括7)的隨機數值。
Delphi 中的用法
以下事例將隨機產生0到100的數字，如果不使用Randomize函式，得到的結果將有規律性。
procedure TForm1.btn1Click(Sender: TObject);
begin
randomize;
ShowMessage(IntToStr(Random(100)));
end;
pascal中的用法
pascal中如果不使用randomize，就是上一次的結果。並且，pascal中的隨機數語句是從0開始的，以X-1結束。因此如果隨即產生0~100間的數要用random(101)來。
下面一個產生0~100的隨機數的程式：
var a:integer;
begin
randomize;
a:=random(101);
writeln(a);
readln;
end.
