如何在1到1,000,000之間生成FreePascal中的隨機數

Question

如何生成1到1,000,000之間的Free Pascal中的隨機數？

我已經使用了一個變量類型LongInt，Real，Integer，但總是有一個RangeError。

但是，1和33,333之間的隨機數工作正常。

Program Random; 

var 
    a: ...; 

begin 

a:=random(1000000); 

end. 

Answer 1

您使用的是哪種版本的Free Pascal？我在這裏使用2.6.0並且使用LongInt作爲a的類型。

順便說一句：你不應該命名你的程序隨機，這會導致錯誤（但不是範圍錯誤）。