GCSE水平德尔福

Question

var
RegNo: array of string;
Speed: array of real;
cars : integer;
time : real;
begin
Setlength(RegNo, 99);
Setlength(Speed, 99);
Writeln ('The speed limit is 50km/h');
Writeln ('The distance between the two points is 50m');
cars := 0;
time := 1;
while time>0
  do
    begin
    cars := cars + 1;
    Writeln ('Enter the car takes to pass the two points');
    Readln (time);
      if time = 0 then
      Writeln
      else
        if time < 1 then
          begin
           Writeln ('Enter the registration plate for the car');
           Readln (RegNo[cars]);
          Speed[cars]:= 50/time;
          end
        else
    end;
Setlength (RegNo, cars);
Setlength (Speed, cars);
Writeln (RegNo[cars]);
Writeln (Speed[cars]:5:2);
Readln;
end.

我不明白我做错了什么。这应该是一个程序来读取使用数组加速的汽车。它表示变量RegNo 可能尚未初始化。它表示变量Speed 可能尚未初始化。

Answer 1

这是因为您第一次在条件 if 子句中访问这些变量。

因此，如果不满足该条件子句预期的特定条件，则该代码将永远不会运行。

这就是编译器产生上述警告的原因。

但是您的代码中存在更大的问题。由于您使用的是动态数组，因此您需要使用 SetLength(YourArray, NewSize) 设置它们的大小，然后才能将任何数据存储到它们。

如果您在项目中启用了范围检查，否则会引发 EOutOfRange 异常。

如果没有启用范围检查（默认情况下），您可以轻松覆盖属于其他对象或变量的部分内存，从而对您的程序造成严重破坏。

Answer 2

我不确定你从哪里想到在显然是初学者的编程任务中使用动态数组，因为必须处理内存分配和从零开始的数组索引的复杂性有点分散任务的注意力你在。

Delphi 实现动态数组的主要原因之一是为了处理直到运行时才知道元素数量的情况（另一个是允许编写与特定数量的数组无关的例程元素）。但是，在您的情况下，您不需要使用动态数组的复杂性，它们只是引入了可避免错误的可能性。

在像这样的传统练习中，我们会使用静态数组：

var
  RegNo: array[1..100] of string;  // assuming you actually want 100 elements
  Speed: array[1..100] of real;

这样做的好处包括

• 数组可以有直观的上下界，而不是 0 和 98：当然，这是假设您确实打算在数组中包含 99 个元素，而不是 100 个，这说明了这种错误很容易如果您使用动态数组或从零开始的数组，则通常在它们不适合您的编程任务时使用。

• 如果数组是全局变量（不是过程或函数的局部变量），您可以直接使用数组，即无需在使用它们之前对其进行内存分配 (SetLength)，也无需之后需要释放内存。原因是在运行时，全局变量会在程序启动时自动填充零，因此程序以已知状态启动它们。

我同意 David Heffernan 的评论，即启用范围检查可以帮助获取超出范围的数组索引，但就这么简单的事情而言，最好不要依赖“训练轮”，而是习惯首先让您的数组索引正确。必须在你的数组心智模型和数组边界和从零开始的数组的索引之间来回切换可能是最常见的错误来源之一。除非有人通过坚持零基数数组故意让您的生活变得困难，否则请使用 Pascal 允许的自然数组边界让您的生活更轻松。

局部变量是在堆栈上分配的（除了某些例外，托管生命周期变量是一个高级主题），因此包含随机值，因此它们应该在使用前进行初始化，方法如下：

FillChar(MyArray, SizeOf(MyArray), Chr(0));

有些人可能不同意，但 imo，最好养成初始化变量的习惯，即使你不需要初始化变量（比如全局变量），而不是绊倒未初始化的变量。

值得一提的是，数组的边界不必是明显的数字。例如，给定一个枚举

type

  TFruit = (apple, pear, banana);

然后你可以声明一个数组

var
  Calories : array[apple..banana] of real;

这是您在 Pascal 教程中经常看到的一种风格，它早于 Delphi，主要归功于它作为一种强类型的教学语言的目标。