COBOL批处理程序总计行百分比与字母等级缺失及计算错误求助

一、字母等级计算错误问题（如89%显示E） #

核心排查点与修复步骤 #

1. 条件判断顺序逻辑错误
   COBOL的IF语句是自上而下匹配，若先判断低等级条件（如<60分=E），再判断高等级，会导致高等级条件永远无法触发。例如89%的情况，若先执行IF PERCENT < 0.60 MOVE 'E' TO GRADE，后续的高等级判断不会被执行。
   修复：将等级判断从高到低排序，示例代码：

   IF ASSIGN-PERCENT >= 90 MOVE 'A' TO ASSIGN-GRADE
   ELSE IF ASSIGN-PERCENT >= 80 MOVE 'B' TO ASSIGN-GRADE
   ELSE IF ASSIGN-PERCENT >= 70 MOVE 'C' TO ASSIGN-GRADE
   ELSE IF ASSIGN-PERCENT >= 60 MOVE 'D' TO ASSIGN-GRADE
   ELSE MOVE 'E' TO ASSIGN-GRADE
   

2. 百分比计算的精度问题
   若得分和满分均为整数类型，直接执行PERCENT = TOTAL-SCORE / TOTAL-POSSIBLE会触发整数除法（如89/100结果为0），导致后续等级判断逻辑完全错误。
   修复：通过浮点运算或放大倍数保留精度，示例：

   -- 方式1：使用COMP-3类型变量+浮点计算
   COMPUTE ASSIGN-PERCENT = (ASSIGN-SCORE-TOTAL / ASSIGN-POSSIBLE-TOTAL) * 100.0
   -- 方式2：整数放大运算避免小数丢失
   COMPUTE ASSIGN-PERCENT = (ASSIGN-SCORE-TOTAL * 100) / ASSIGN-POSSIBLE-TOTAL
   

3. 变量赋值时机错误
   检查等级赋值语句是否在百分比计算之前执行，若提前赋值，会使用未初始化或错误的百分比值生成等级。
   修复：确保PERFORM CALCULATE-GRADE语句在百分比计算完成后调用。

二、最终总计行百分比与等级未显示问题 #

核心排查点与修复步骤 #

1. 总计变量累加逻辑缺失
   检查最终总计的得分、满分变量（如TOTAL-ALL-SCORE、TOTAL-ALL-POSSIBLE）是否在作业、测试统计完成后正确累加，是否存在变量被意外重置的情况。

2. 总计百分比计算遗漏
   确认是否在所有数据处理完成后，执行了最终百分比的计算逻辑，示例：

   COMPUTE FINAL-PERCENT = (TOTAL-ALL-SCORE / TOTAL-ALL-POSSIBLE) * 100.0
   PERFORM CALCULATE-FINAL-GRADE
   

3. 输出语句变量引用错误
   检查最终总计行的输出代码，确认是否正确引用了总计百分比和等级变量（如FINAL-PERCENT、FINAL-GRADE），避免与作业/测试的变量混淆或拼写错误。

内容的提问来源于stack exchange，提问作者Ellena Michaelis