实例8 条件循环用while

条件循环while的标准写法为：

while 条件关系 do

begin

  处理语句;

end;

当条件关系满足时就循环，不满足时就停止循环。但也有条件关系满足不了的情况 ，在这种情况下，该循环就成了死循环。死循环是程序设计中的一大忌，一定要在程序代码中多加判断条件，让程序跳出循环。

在实际应用程序设计中，死循环的程序设计方法有时却是故意采用的，比如：

var  ii:Integer;

ii:=0;

while ii:=0 do

begin

  处理语句;

end;

这可是个死循环程序，如果你不在循环的处理程序中加上中断语句，这个程序就将永无休止地循环下去了。

但这种循环往往是很有用的，有时候在想不出别的办法时，只有它才能帮你解决问题，为什么不用呢？

比如说，我们在不知道任何条件的情况下查找一件东西，找到后就退出循环。很自然，我们就联想到了“死循环”程序。但是，有时死循环也不是那么好用的，万一条件不考虑周到，那就成了真正的死循环。找东西这个循环，常规的写法是：

var  ii:Integer;

ii:=0;

while ii=0 do    //while True do

begin

  处理语句;

  //条件判断程序

  if (找到) then  break;  //break是跳出整个循环，continue是跳出此次循环

end;

如果找到，就退出。如果这个东西不存在，找不到呢？这个循环就永远退出不了。我们在编写程序，特别是在编写循环程序时，一定要考虑程序退出的多种可能性，防止死循环。不要怕麻烦，将每一种你能想到的可能性都作为退出条件。编程序有一个诀窍：胆大、心细。所谓胆大，即要有创新的精神，敢于式，敢于写。心细即要考虑问题的方方面面，不要陷入死循环的泥潭。