cobol学习之五简单输入成绩的计算

来源：互联网发布：黎巴嫩真主党知乎编辑：程序博客网时间：2024/05/21 12:23

代码功能：输入4科成绩，计算平均值，并用小数点形式输出，因为cobol在计算中使用V来代表小数，但是在显示时需要“.”来表示。

000010 IDENTIFICATION DIVISION.000020  PROGRAM-ID.STUDY2-009.000030 ENVIRONMENTDIVISION.000040 DATADIVISION.000050  WORKING-STORAGESECTION.000060 77SNO PIC X(5) VALUE '10011'.000070 77SNAME PIC X(8) VALUE 'ZHANGSAN'.000080 77SX PIC 999V9.000090 77YW PIC 999V9.000100 77RY PIC 999V9.000110 77ZY PIC 999V9.000111 77ZJ PIC 999V9.000112 77PJF PIC 999V9.000113 77SX-P PIC 999.9.000114 77YW-P PIC 999.9.000115 77RY-P PIC 999.9.000116 77ZY-P PIC 999.9.000117 77ZJ-P PIC 999.9.000118 77PJF-P PIC 999.9.000120 PROCEDURE DIVISION.000130  INPUTNUMBERSECTION.000131     DISPLAY 'SX:' WITH NO ADVANCING.000140     ACCEPT SX.000141     DISPLAY 'YW:' WITH NO ADVANCING.000142     ACCEPT YW.000143     DISPLAY 'RY:' WITH NO ADVANCING.000144     ACCEPT RY.000145     DISPLAY 'ZY:' WITH NO ADVANCING.000146     ACCEPT ZY.000150   COMPUTENUMBERSECTION.000160     COMPUTE ZJ = SX + YW + RY + ZY000170     COMPUTE PJF = ZJ / 4.000171   MOVENUMBERSECTION.000172   MOVE SX TO SX-P 000173   MOVE YW TO YW-P000174   MOVE RY TO RY-P000175   MOVE ZY TO ZY-P000176   MOVE ZJ TO ZJ-P000177   MOVE PJF TO PJF-P.000180   DISPLAYNUMBERSECTION.000190     DISPLAY 'SX=' SX-P000200     DISPLAY 'YW=' YW-P    000210     DISPLAY 'RY=' RY-P000220     DISPLAY 'ZY=' ZY-P000230     DISPLAY 'ZJ=' ZJ-P000240     DISPLAY 'PJF=' PJF-P000250     STOP RUN.

0 0