从记录中查找最高值

Question

我正在尝试编写一个过程，该过程会遍历数字记录并找到最高的数字，当前的代码如下。我遇到的问题是，它似乎只是列出了记录中的最后分数（而不是最高分数）。非常感谢任何帮助。

Procedure FindTopScore(Var TopScores : TTopScores);
Var
Count : Integer;
Highest : Integer;
Name: String;

Begin
     For Count := 1 to MaxSize Do
          If TopScores[Count].Score > Highest Then
     Highest := TopScores[Count].Score;
     Name := TopScores[Count].Name;
       Writeln('Higest score is by ' ,TopScores[Count].Name, ' of ', TopScores[Count].Score);
End;

Answer 1

您输出的不是 Highest，而是 TopScores[Count].Score。只需使用

 Writeln('Highest is ', Highest, ' for ', Name);

另外，您应该将名称放入 if 语句内的变量 Name 中（它实际上在外部）。

插件：如果您想要所有名字以防平局，您可以使用以下代码

Highest := 0;
For Count := 1 to MaxSize Do Begin
     If TopScores[Count].Score = Highest Then Begin
         Name := Name + ' and ' + TopScores[Count].Name;
     End;
     If TopScores[Count].Score > Highest Then Begin
         Highest := TopScores[Count].Score;
         Name := TopScores[Count].Name;
     End;
 End;

Answer 2

除了霍华德的答案之外，在开始循环之前将“0”设置为“最高”。由于未初始化，它具有任意值，可能高于最高分。

Answer 3

除了接受的答案之外，请确保打开警告和提示，您会看到：

      testhighest.pp(16,39) Warning: Local variable "Highest" does not seem to be initialized

哪一

        If TopScores[Count].Score > Highest Then

行