for-loop - 如何在for循环中增加计数器？ (帕斯卡)

Question

我有一个大问题，因为这段代码在 Dev-Pascal 中正确编译，但在 Lazarus 中却没有。

 for k:=1 to n do
     begin
          writeln(a[k]:4:2,'  ',a[k+1]:4:2,'  ',a[k+2]:4:2);
          inc(k,2);
     end;

我收到这条消息

Error: Illegal assignment to for-loop variable "k"

我现在应该怎么做？我的程序中需要这个解决方案(递增 k 计数器)。

Answer 1

实际上，我认为这更像是 Dev-Pascal 的一种情况，它让您逃脱了惩罚，而 FP 则完全正确。编译器通常不会让你在循环内修改 for 变量的原因是它可以颠覆编译器生成的代码，以确定何时达到了上层 for 值。

添加一个局部变量 j ，为其分配与 k 相同的起始值，在 for 循环内将其增加 2 并使用 j 作为数组索引器而不是 k 。