exexex

来自「目前,国内运用COBOL语言的公司很少,导致目前国内懂cobol的程序员甚少.我」· 代码 · 共 31 行

       IDENTIFICATION DIVISION.
       PROGRAM-ID.        EX.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       77    HUO-LIANG     PIC     9(4).
       77    YINZI         PIC     9.
       77    AMOUNT        PIC     9(6).
       PROCEDURE DIVISION.
           ACCEPT     HUO-LIANG.
           COMPUTE    YINZI = (HUO-LIANG + 50) / 50.
           GO TO A, B, C, D, E DEPENDING YINZI.
       A.
           COMPUTE    AMOUNT = 10 * T.
           GO TO DISPLAY-RESULE.
       B.
           COMPUTE    AMOUNT =  9 * T.
           GO TO DISPLAY-RESULT.
       C.
           COMPUTE    AMOUNT =  8 * T.
           GO TO DISPLAY-RESULE.
       D.
           COMPUTE    AMOUNT =  7 * T.
           GO TO DISPLAY-RESULE.
       E.
           COMPUTE    AMOUNT =  6 * T.
           GO TO DISPLAY-RESULE.
       DISPLAY-RESULT.
           DISPLAY HUO-LIANG, AMOUNT.
           STOP RUN.