COBOL基础培训.ppt

五.过程部（PROCEDURE DIVISION） 9. IF语句：条件转移语句。根据给出的判断条件是否满足，来决定执行哪一部分语句 关系运算规则： 数值变量之间按其代数值进行比较 35，10.5=10.50，100-200 字母型数据之间字典序进行比较 ‘x’‘y’ ‘cat’‘cap’ ‘c’‘cobol’ 字符型数据之间按其编码规则进行比较 ASCII编码： ‘1’ ‘A’ EBCDIC编码： ‘1’ ‘A’ 在条件判断表达式中，只能将同类型的数据进行比较，即数值型数据和数值型数据比较，字符型数据和字符型数据比较。 IF结构中‘.’的用法 IF A0 DISPLAY A ---------------- ① ADD A TO TOTA ---------------- ② END-IF DISPLAY TOTAL. IF A0 DISPLAY A. ---------------- ① ADD A TO TOTAL. ---------------- ② DISPLAY TOTAL. 五.过程部（PROCEDURE DIVISION） 9. IF语句：条件转移语句。根据给出的判断条件是否满足，来决定执行哪一部分语句 复合条件：由若干个简单的“条件”组合而成的条件，使用逻辑运算符AND(与)，OR(或)，如果在一个IF语句中同时用到AND,OR，其优先级是：AND OR IF ( A1000 AND A10000 )OR( A = 0 ) 符号条件：用来检查某数据项的值的代数符号 IF 数据名 IS [NOT] { POSITIVE | NEGATIVE | ZERO } IF X IS POSITIVE 等价于 IF X 0 类型条件：检查数据项的类型是否符合指定的要求，即数据项的内容是否全为数字或字母 IF 数据名 IS [NOT] { NUMERIC | ALPHABETIC | ALPHABETIC-LOWER | ALPHABETIC-UPPER } 77 T PIC A(4) VALUE ‘WANG’. IF T IS ALPHABETIC //true 五.过程部（PROCEDURE DIVISION） 9. IF语句：条件转移语句。根据给出的判断条件是否满足，来决定执行哪一部分语句 条件名条件：简单的说，条件名就是用一个数据名代表一个条件 例如：为鼓励存款，存款数小于1000元，利息为2%； 大于等于1000元但小于10000元，利息为3%； 大于等于10000元但小于50000元，利息为4%； 大于等于50000元但小于100000元，利息为5% 在数据部中可以这样定义： 77 CK PIC 9(05). 88 T1 VALUE 0 THRU 999. 88 T2 VALUE 1000 THRU 9999. 88 T3 VALUE 10000 THRU 49999. 88 T4 VALUE 50000 THRU 99999. ? CK是条件变量，定义为数值变化的范围 ? T1~T4是条件名，紧跟在条件变量之后，必须用层号88定义 ? VULUE子句的作用不是赋初值，而是为条件变量的一个可能值命名 ? 对于 “88 T1 VALUE 0 THRU 999” 应理解为：当CK的值在0~999时，条件T1为“真”在过程部可以直接使用条件名条件： IF T1 MOVE 0.02 TO RATE. IF ( CK = 0 AND CK=999 ) IF T2 MOVE 0.03 TO RATE. IF T3 MOVE 0.04 TO RATE. IF T4 MOVE 0.05 TO RATE. 五.过程部（PROCEDURE DIVISION） 10. EVALUATE语句：多分支选择结构 一般格式： EVALUATE 判断主体（标示符，常量，条件式） WHEN 判断对象1（ANY，TRUE，FALSE，标示符，常量） 语句序列1 …… WHEN 判断对象N（ANY，TRUE，FALSE，标示符，常量） 语句序列N [WHEN OTHER 语句序列M（通常为CONTINUE）] END- EVALUATE. 例如： EVALUATE TRUE WHEN TI MOVE 0.02 TO RATE WHEN T2 MOVE 0.03 TO RATE WHEN T3