初始化随机函数发生器:randomize
C语言函数名:randomize
功 能:初始化随机数发生器
用 法:void randomize(void);
程序例:
#include <stdlib.h>
int main(void)
{
int i;
randomize();
printf("Ten random numbers from 0 to 99
");
for(i=0; i<10; i++)
printf("%d
", 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
",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.