VC中的用法

VB 中的用法

Delphi 中的用法

pascal中的用法

初始化随机函数发生器: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.