Question

十进制数的声明有问题。我想在COBOL中执行十进制加法和减法。

http://www.compileonline.com/compile_cobol_online.php--＆GT;我使用这个网站获取下面的代码

 IDENTIFICATION DIVISION.  

 PROGRAM-ID. HELLO-WORLD.

 DATA DIVISION.

 WORKING-STORAGE SECTION.

 01  A   PIC 99V99 VALUE 1011.

 01  B   PIC 99V99 VALUE 2022.

 01  C   PIC 99V99 VALUE 3333.

 PROCEDURE DIVISION.

 ADD A TO B GIVING C.

 DISPLAY C.

 SUBTRACT A FROM B GIVING C ROUNDED.

 DISPLAY C.

 DISPLAY B.

 STOP RUN.

Answer 1

01  A   PIC 99V99 VALUE 10.11.

（您省略了小数）

此后，按照弹跳球......

Answer 2

除了@Magoo建议的更改外，您还需要在显示结果时包含可见的小数点。像这样：

01 D PIC --9.99.

然后在你的程序部门：

MOVE C TO D.
DISPLAY D.

如何在COBOL中正确声明十进制数，以便它们可以用于算术运算？

2 个答案: