1991年帕斯卡的随机数

Question

我正在运行一个Fenuc Karel机器人进行类作业，该作业使用Pascal的变体，但是我们的机器人是从1991年到1993年，然后他们添加了random（）。有谁知道如何在Pascal的旧dos实现上获取随机数？请注意，由于年龄变量名称不能超过 8 个字符，数字不能超过 255

Answer 1

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

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

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

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

更新：看起来，Fanuc Karel（我希望是这样）有一个GET_TIME例程，尽管我不确定它会返回什么。