实例3 逻辑操作，很少用却很有用

所谓逻辑，即与、或关系，含有与、或关系运算符的表达式称为逻辑表达式，在Pascal语言中，与用and代替，或用or代替。

编写程序时，基本是处理这样几类问题：表达式、判断、分支选择。判断有简单判断与复杂判断，在复杂判断中，少不了用到各种逻辑关系。比如有这样一个判断：

筛选出年里在18~20岁、长头发、身高160以上、体重不小于60公斤的女孩。如果用多重判断的方法，就非常麻烦，例如：

if (Age>=18) then

begin

  if (Age<=20) then

  begin

    if (Hair) then

    begin

      if (Height>=160) then

      begin

        if (Weight<=60) then

        begin

          if (Type='Girl') then

          begin

            //代码

          end;

        end;

      end;

    end;

  end;

end;

运用逻辑表达式，只有如下一条语句即可：

if (Age>=18) and (Age<=20) and (Hair=True) and (Height>=160) and (Weitht<=60) and (Type='Girl') then

begin

  //代码

end;

在逻辑运算中，遇到与、或关系都存在的情况下：

（1）头脑冷静，分清关系。

（2）用括号将每一个完整的关系括起来，不要吝啬括号，要大胆使用，多用一对括号没关系，少用一对括号可能就造成大错误。如：

if ( (Age>19) and ( (Type='Boy) or (Type='Girl))) then   //年龄大于19岁的男孩或女孩

if ( (Age>19) and (Type='Boy') or (Type='Girl')) then   //年龄大于19岁的男孩或所有年龄段的女孩