pascal - 1991 Pascal 中的随机数

Question

我正在运行一个 Fenuc Karel 机器人进行类作业，它使用 Pascal 的变体，但我们的机器人是在 1991-1993 年添加 random() 之前的。有谁知道如何在 Pascal 的旧 dos 实现上获取随机数？请注意，年龄变量名称不能超过 8 个字符，并且数字不能超过 255

Answer 1

如果它是 borland pascal 版本，您可以使用 asm { … } block ，这将允许您从 RTC 获取一个值，该值对于许多意图和目的来说是足够随机的。给定一个随机变量:

asm {
  xor ax, ax;
  int 1ah;
  mv random, al;
}

这将为您提供实时时钟值的最后 8 位。

除此之外，您还可以在旧机器上寻找伪随机数生成，例如C64;尽管您必须将代码移植到 pascal。

更新:看起来，Fanuc Karel(我希望就是这样)有一个 GET_TIME 例程，尽管我不确定它返回什么。