您所在位置：主题：(紧急求救)如何随机产生一个数列?
kwxsyz
[专家分：80] 发布于 2005-11-02 22:19:00
本人初学PASCAL,恳请各位指教,如何随机产生一个数列?附程序如下:
program test;
type a=array[1..6] of integer;
var
i,temp:integer;
data:a;
begin
for i:=1 to 6 do
data[i]:=random(6);
for i:=1 to 6 do
write(data[i]:4);
end.
现在的问题是这样，第一次运行程序，产生的数列是4 3 0 4 2 0,第二次,第三次...
每次运行程序产生的都是这个数列,怎么办好?各位救救我!(是否PASCAL也象C一样,有一个语句插在RANDOM(X)之前,使得产生的数不同的)[em10][color=FF0000]紧急求救[/color]
program test;
type a=array[1..6] of integer;
var
i,temp:integer;
data:a;
begin
for i:=1 to 6 do
data[i]:=random(6);
for i:=1 to 6 do
write(data[i]:4);
end.
现在的问题是这样，第一次运行程序，产生的数列是4 3 0 4 2 0,第二次,第三次...
每次运行程序产生的都是这个数列,怎么办好?各位救救我!(是否PASCAL也象C一样,有一个语句插在RANDOM(X)之前,使得产生的数不同的)[em10][color=FF0000]紧急求救[/color]
