Random “确定”；“模式”；最高随机数

我正在开发一个图灵应用程序，它显示一个随机数，然后显示该数的滚动次数，然后找到模式，随机数滚动次数的最大值，并显示滚动次数最多的数字（1-6）。谢谢你的帮助

var numberDice : int
var freq : array 1 .. 6 of int
var highestNum : int

highestNum := 0

for j : 1 .. 6
    freq (j) := 0
end for


for i : 1 .. 25
    randint (numberDice, 1, 6)

    freq (numberDice) := freq (numberDice) + 1


end for

for counter : 1 .. 6
    if freq (counter) > highestNum then
        highestNum := freq (counter)
    end if
end for


put "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"

put "Number             Frequency"
put "1                  ", freq (1)
put "2                  ", freq (2)
put "3                  ", freq (3)
put "4                  ", freq (4)
put "5                  ", freq (5)
put "6                  ", freq (6)

put " "
put "Mode: ", highestNum
put "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"

---

人们还在使用图灵真是太好了。这是最好的初学者语言

---

您当前的代码捕获最大频率值。您还需要捕获最大频率值的索引。仔细查看您的代码，以确定所需的索引值可以在何处计算或正在计算。声明一个变量来捕获它，比如说

highestIndex

。然后添加代码以进行捕获和打印。我想需要三行。它们是什么？他们去哪里？当您了解当前程序的工作原理时，您将看到……

您需要一个额外的变量来保持您发现的最高模具：

var highestNum : int
var highestIndex : int

highestNum := 0
highestIndex := 0

. . .

    highestNum := freq (counter)
    highestIndex := counter

---

这里有问题吗？此外，“mode”通常的意思与您在这里使用它的方式不同。@Lee Daniel Crocker我的问题是：我已经找到了最高的数字，但如何将其应用于数字（1-6）？我仍然不明白这是什么意思。你想完成什么？这是一个掷骰子游戏，我找到了每个骰子的频率，我需要说哪个是最高的掷骰数，这正是程序所做的。那么问题是什么？