使用COBOL编写的简单计算器示例代码

这是一段使用COBOL编写的简单计算器示例代码，可以进行加减乘除运算。

IDENTIFICATION DIVISION.
PROGRAM-ID. CALCULATOR.

DATA DIVISION.
WORKING-STORAGE SECTION.
01 A        PIC 9(4) VALUE 0.
01 B        PIC 9(4) VALUE 0.
01 RESULT   PIC 9(9) VALUE 0.
01 OPERATOR PIC X.

PROCEDURE DIVISION.
MAIN-PROCEDURE.
    DISPLAY "请输入A和B的值："
    ACCEPT A
    ACCEPT OPERATOR
    ACCEPT B
    IF OPERATOR = "+" THEN
        COMPUTE RESULT = A + B
        DISPLAY "A + B = ", RESULT
    ELSE IF OPERATOR = "-" THEN
        COMPUTE RESULT = A - B
        DISPLAY "A - B = ", RESULT
    ELSE IF OPERATOR = "*" THEN
        COMPUTE RESULT = A * B
        DISPLAY "A * B = ", RESULT
    ELSE IF OPERATOR = "/" THEN
        IF B = 0 THEN
            DISPLAY "除数不能为0。"
        ELSE
            COMPUTE RESULT = A / B
            DISPLAY "A / B = ", RESULT
        END-IF
    ELSE
        DISPLAY "输入有误，请重新输入。"
    END-IF
    STOP RUN.

免责申明：文章和图片全部来源于公开网络，如有侵权，请通知删除 server@dude6.com