COBOL 中的条件语句

在 COBOL 中，条件语句是根据某些条件来执行特定的代码块。COBOL 中最常见的条件语句是 IF 条件语句。

IF 条件语句

在 COBOL 中，IF 语句使用形式如下：

IF condition THEN
    statement(s)
ELSE
    statement(s)
END-IF.

其中：

• condition 是将计算为 TRUE 或 FALSE 的条件。
• statement(s) 是要执行的代码块。

如果 condition 为 TRUE，则执行 THEN 代码块中的语句。否则，执行 ELSE 语句中的代码块。

例如，假设你想根据学生的年龄来分配班级。如果学生的年龄小于 10 岁，则分配到小学班级；如果年龄在 10 到 14 岁之间，则分配到初中班级；如果年龄在 14 岁以上，则分配到高中班级。下面是一个实现这个逻辑的 COBOL 代码示例：

IDENTIFICATION DIVISION.
PROGRAM-ID. STUDENT-CLASS.
DATA DIVISION.
WORKING-STORAGE SECTION.
01  AGE       PIC 9(2).
PROCEDURE DIVISION.
    DISPLAY "Please enter student age:".
    ACCEPT AGE.
    IF AGE < 10 THEN
        DISPLAY "Your class is primary school."
    ELSE
        IF AGE < 14 THEN
            DISPLAY "Your class is middle school."
        ELSE
            DISPLAY "Your class is high school."
        END-IF
    END-IF
    STOP RUN.

当 AGE 的值小于 10 时，输出 Your class is primary school。。如果 AGE 的值介于 10 到 14 之间，则输出 Your class is middle school。。如果 AGE 的值大于等于 14，则输出 Your class is high school。。

CASE 语句

除了 IF 语句，还有一个用于处理多个可能情况的条件语句——CASE 语句。

在 COBOL 中，CASE 语句使用形式如下：

EVALUATE subject
    WHEN condition-1
        statement(s)
    WHEN condition-2
        statement(s)
    ...
    WHEN condition-n
        statement(s)
    WHEN OTHER
        statement(s)
END-EVALUATE.

其中：

• subject 是将被测试的条件。
• condition-1 到 condition-n 是 CASE 块的各种可能情况。
• statement(s) 是要执行的代码块。

如果 subject 与某个 condition 匹配，则执行该 condition 对应的 statement(s)。如果 subject 与所有条件都不匹配，则执行 OTHER 块中的 statement(s)。

例如，假设你要根据学生成绩判断成绩等级。如果成绩在 90 分以上，则等级为 A；如果成绩在 80 到 90 分之间，则等级为 B；如果成绩在 70 到 80 分之间，则等级为 C；如果成绩在 60 到 70 分之间，则等级为 D；如果成绩在 60 分以下，则等级为 F。下面是一个实现这个逻辑的 COBOL 代码示例：

IDENTIFICATION DIVISION.
PROGRAM-ID. STUDENT-GRADE.
DATA DIVISION.
WORKING-STORAGE SECTION.
01  GRADE     PIC 9(3).
PROCEDURE DIVISION.
    DISPLAY "Please enter student grade:".
    ACCEPT GRADE.
    EVALUATE TRUE
        WHEN GRADE >= 90
            DISPLAY "Your grade is A."
        WHEN GRADE >= 80
            DISPLAY "Your grade is B."
        WHEN GRADE >= 70
            DISPLAY "Your grade is C."
        WHEN GRADE >= 60
            DISPLAY "Your grade is D."
        WHEN OTHER
            DISPLAY "Your grade is F."
    END-EVALUATE
    STOP RUN.

当 GRADE 的值大于等于 90 时，输出 Your grade is A.。如果 GRADE 的值介于 80 到 90 之间，则输出 Your grade is B.。如果 GRADE 的值介于 70 到 80 之间，则输出 Your grade is C.。如果 GRADE 的值介于 60 到 70 之间，则输出 Your grade is D.。如果 GRADE 的值小于 60，则输出 Your grade is F.。

以上就是 COBOL 中条件语句的介绍。通过掌握这些语句，你可以很方便地处理各种情况下的控制流程，帮助你编写更高效、更易于维护的代码。