COBOL小数点控制程序开发需求：实现特定小数格式化逻辑

核心思路 #

需求的核心是：保留两位小数，若小数点后第三位及以后全为0则直接保留两位；否则将第二位小数进0.01。实现逻辑分为两步：

• 先将原数截断至两位小数，得到基准值
• 比较原数与基准值，若不相等（说明存在非零的后续小数），则给基准值加0.01；若相等则直接使用基准值

完整代码示例 #

IDENTIFICATION DIVISION.
PROGRAM-ID. DECIMAL-ADJUST.

WORKING-STORAGE SECTION.
01  INPUT-VALUE      PIC 9(2)V9(5).  *> 支持最多两位整数、五位小数的输入
01  TRUNCATED-VALUE  PIC 9(2)V9(2).   *> 截断至两位小数的中间值
01  FINAL-VALUE      PIC 9(2)V9(2).   *> 调整后的最终值
01  OUTPUT-FORMAT    PIC ZZ.ZZ.       *> 输出格式：自动补前导空格，固定两位小数

PROCEDURE DIVISION.
    * 测试用例1：输入15.65778
    MOVE 15.65778 TO INPUT-VALUE.
    PERFORM ADJUST-DECIMAL.
    DISPLAY "输入15.65778时输出：" OUTPUT-FORMAT.

    * 测试用例2：输入15.65000
    MOVE 15.65000 TO INPUT-VALUE.
    PERFORM ADJUST-DECIMAL.
    DISPLAY "输入15.65000时输出：" OUTPUT-FORMAT.

    STOP RUN.

ADJUST-DECIMAL.
    MOVE INPUT-VALUE TO TRUNCATED-VALUE.
    IF INPUT-VALUE NOT = TRUNCATED-VALUE
        COMPUTE FINAL-VALUE = TRUNCATED-VALUE + 0.01
    ELSE
        MOVE TRUNCATED-VALUE TO FINAL-VALUE
    END-IF.
    MOVE FINAL-VALUE TO OUTPUT-FORMAT.

代码说明 #

1. 数据定义：

   • INPUT-VALUE：存储原始输入值，9(2)V9(5)的格式适配需求中的输入精度
   • TRUNCATED-VALUE：通过MOVE操作自动截断原数至两位小数（COBOL中不同精度数值间的MOVE会自动截断多余小数位）
   • OUTPUT-FORMAT：使用ZZ.ZZ编辑符号确保输出固定两位小数，前导空格自动处理

2. 调整逻辑：

   • 对比原数与截断后的数值，若不等则判定存在非零后续小数位，执行加0.01操作
   • 若相等则直接使用截断值，保证两位小数后全为0时不进位

3. 测试场景：

   • 代码内置需求指定的两个测试用例，运行后可直接输出对应结果

扩展说明 #

若需处理负数输入，只需在调整逻辑中增加符号判断：当原数为负数且与截断值不等时，执行减0.01操作即可。

内容的提问来源于stack exchange，提问作者MITTAPELLI AKHIL