random - 如何在 FreePascal 中生成 1 到 1,000,000 之间的随机数

Question

如何在 Free Pascal 中生成 1 到 1,000,000 之间的随机数？

我使用了 LongInt、Real、Integer 等变量类型，但始终存在 RangeError。

但是 1 到 33,333 之间的随机数可以正常工作。

Program Random;

var
  a: ...;

begin

a:=random(1000000);

end.

Answer 1

您使用哪个版本的 Free Pascal？我在这里使用2.6.0 并使用LongInt作为.

顺便说一句：您不应将程序命名为Random，这会导致错误（但不会导致范围错误）。