1

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

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

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

Program Random;

var
  a: ...;

begin

a:=random(1000000);

end.
4

1 回答 1

2

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

顺便说一句:您不应将程序命名为Random,这会导致错误(但不会导致范围错误)。

于 2013-02-24T14:40:07.527 回答