list - 如何在 FreePascal 中生成 50 个随机数（0 到 100 之间）的列表

Question

有人可以帮我在 FreePascal 中生成 50 个随机数（0 到 100 之间）的列表吗？

Answer 1

假设您想要一个包含 50 个整数的数组，您可以使用以下代码。首先它使用Randomizeprocedure初始化随机数生成器。然后它将数组从低索引迭代到高索引（相反，您也可以使用常量范围），并使用该函数for I := 0 to 49 to为该数组的每个元素生成一个 0 到 100 范围内的随机数。Random该Random函数返回一个大于或等于 0 且小于该函数唯一参数的随机数：

var
  I: Integer;
  IntArray: array[0..49] of Integer;
begin
  Randomize;
  for I := Low(IntArray) to High(IntArray) do
    IntArray[I] := Random(101);
  ...
end;