对 Pascal 语法感到困惑

Question

我遇到了这段帕斯卡代码。我很好奇这不会无休止地重复。

repeat
  if xs>(torgx+xlim)
    then begin
      x:=xlim;
      BREAK;
    end;

  if xs<(torgx-xlim)
    then begin
      x:=0-xlim;
      BREAK;
    end;

  x:=xs-torgx; 
  BREAK;
until 0<>0; 

我对零如何大于或小于零感到困惑。

Answer 1

一直持续到0 <> 0 的循环应该是无限的。 但是在循环内部有一些条件会破坏循环，因此使用关键字break。

事实上，repeat..until 循环只会运行一次。进行比较，如果一个值大于或小于另一个条件，它将跳出循环。如果这些条件都不满足，无论如何它都会中断。