随机数1991年Pascal

Question

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

Answer 1

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

\n\n

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

\n\n

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

\n\n

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

\n\n

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

\n