随机数1991年Pascal

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程序，虽然我不确定它会返回什么。