如何在 Free Pascal 中生成 1 到 1,000,000 之间的随机数?
我使用了 LongInt、Real、Integer 等变量类型,但始终存在 RangeError。
但是 1 到 33,333 之间的随机数可以正常工作。
Program Random;
var
a: ...;
begin
a:=random(1000000);
end.
如何在 Free Pascal 中生成 1 到 1,000,000 之间的随机数?
我使用了 LongInt、Real、Integer 等变量类型,但始终存在 RangeError。
但是 1 到 33,333 之间的随机数可以正常工作。
Program Random;
var
a: ...;
begin
a:=random(1000000);
end.