Question

pascal中如何产生随机数

Answer 1

pascal中使用random(100)可产生[0，99]之间的伪随机整数。
如要产生整数a~b(a<b)之间的随机整数，可以使用x:=random(b-a+1)+a;
for i:=1 to n do
write(random(101),' '); 可产生0~100之间的随机整数。

但是这样的程序段，多次运行的结果是完全一样的。
如要使每次运行产生不同的随机数序列，可以在使用随机函数之前，用系统时钟初始化随机数发生器。具体使用方法是使用randomize; 语句。

Answer 2

pascal中随机数函数是random
使用之前先用randomize;语句，是初始化，其实不初始化也可以…你了解怎么生成随机数就知道为什么了。
然后random(n)表示生成一个0~n-1的随机整数，用法：
a := random(10);
random表示生成一个0~1的随机实数，用法：
a := random;

Answer 3

pascal中随机数函数是random
使用之前先用randomize;语句，是初始化然后random(n)表示生成一个0~n-1的随机整数，用法：
var a:longint;
begin
randomize;
a:=random(n)
write(a);
end.
a即为一个0~n-1的随机整数

Answer 4

var
a:longint;
begin
randomize; {初始化随机数发生器}
a:=trunc(random*10); {产生一个1~9的随机数}
write(a);
end.

Answer 5

var
a:array [1..10000] of longint;
i,j,k:longint;
begin
randomize;{随机数初始化};
for i:=1 to 随机数个数 do a[i]:=random(范围);{在范围之内的数据中随机产生随机数个数个随机数}
for i:=1 to 随机数个数 do write(a[i],' ');
end.