实例10 continue,让循环不做工作自己走

continue的英文字面意思就是继续，在循环中，用它表示继续下一个循环。别看这个“继续”不起眼，有时候一个continue可以让程序进入死循环，再也爬不出来。试看下面的一段小程序：

procedure test();

var

  ii,jj:Integer;

begin

  ii:=0;

  jj:=0;

  repeat

    if ii>100 then

　  break

   else

    continue;

   inc(ii);

  until  jj>1;

end;

这是个死循环，问题出在continue,当程序执行到contiue时，它并没有往下执行，即inc(ii)语句并没有运行，所有ii永远到不了100，程序就一直循环着，需要做如下修改：

procedure test();

var

  ii,jj:Integer;

begin

  ii:=0;

  jj:=0;

  repeat

    if ii>100 then

      break

   else

   begin

     Inc(ii);

     continue;

   end;

    inc(ii);

  until jj>1;

end;