如何在COBOL语言中正确声明十进制数，以便用于算术计算？

十进制数的声明有问题吗。 我想用COBOL语言执行十进制加减运算。

>我使用此网站获取下面给出的代码

 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.

（你省略了小数点）

此后，跟随反弹的球

（你省略了小数点）

此后，跟随反弹的球

（你省略了小数点）

此后，跟随反弹的球

（你省略了小数点）

---

此后，跟随弹跳球…

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

01 D PIC --9.99.

然后在你的程序部门：

MOVE C TO D.
DISPLAY D.

---

除了@Magoo建议的更改外，您还希望在显示结果时包含一个可见的小数点。大概是这样的：

01 D PIC --9.99.

然后在你的程序部门：

MOVE C TO D.
DISPLAY D.

---

除了@Magoo建议的更改外，您还希望在显示结果时包含一个可见的小数点。大概是这样的：

01 D PIC --9.99.

然后在你的程序部门：

MOVE C TO D.
DISPLAY D.

---

除了@Magoo建议的更改外，您还希望在显示结果时包含一个可见的小数点。大概是这样的：

01 D PIC --9.99.

然后在你的程序部门：

MOVE C TO D.
DISPLAY D.

---

如果计算结果的小数部分>=0.5，则结果将增加到下一个更高的整数。如果是你可以再次发布…我没有在5分钟内接受你的回答为“已接受”。这次我会的。快点。@ArihanKashyap不太适合圆形。对于小数位数相同（零或更多）的加法/减法，将不进行舍入。如果中间结果中有一个数字紧靠最终结果中最低有效数字的右侧，则将根据该数字进行舍入（如果指定）-截断0-4，否则向最低有效数字添加一个数字（尽可能向上携带字段）。如果最终结果为整数，则仅舍入/截断为整数。如果计算结果的小数部分>=0.5，则结果将增加为下一个更高的整数。如果是你可以再次发布…我没有在5分钟内接受你的回答为“已接受”。这次我会的。快点。@ArihanKashyap不太适合圆形。对于小数位数相同（零或更多）的加法/减法，将不进行舍入。如果中间结果中有一个数字紧靠最终结果中最低有效数字的右侧，则将根据该数字进行舍入（如果指定）-截断0-4，否则向最低有效数字添加一个数字（尽可能向上携带字段）。如果最终结果为整数，则仅舍入/截断为整数。如果计算结果的小数部分>=0.5，则结果将增加为下一个更高的整数。如果是你可以再次发布…我没有在5分钟内接受你的回答为“已接受”。这次我会的。快点。@ArihanKashyap不太适合圆形。对于小数位数相同（零或更多）的加法/减法，将不进行舍入。如果中间结果中有一个数字紧靠最终结果中最低有效数字的右侧，则将根据该数字进行舍入（如果指定）-截断0-4，否则向最低有效数字添加一个数字（尽可能向上携带字段）。如果最终结果为整数，则仅舍入/截断为整数。如果计算结果的小数部分>=0.5，则结果将增加为下一个更高的整数。如果是你可以再次发布…我没有在5分钟内接受你的回答为“已接受”。这次我会的。快点。@ArihanKashyap不太适合圆形。对于小数位数相同（零或更多）的加法/减法，将不进行舍入。如果中间结果中有一个数字紧靠最终结果中最低有效数字的右侧，则将根据该数字进行舍入（如果指定）-截断0-4，否则向最低有效数字添加一个数字（尽可能向上携带字段）。如果最终结果是整数，它只舍入/截断为整数。与其在线运行，不如从SourceForge下载GNU COBOL，然后您会看到错误消息，告诉您您的值太大？而不是在线运行，为什么不从SourceForge下载GNU COBOL，然后你会看到错误消息，告诉你你的值太大？与其在线运行，不如从SourceForge下载GNU COBOL，然后你会看到错误消息，告诉你你的值太大？不要在线运行，为什么不从SourceForge下载GNUCobol，然后就会看到错误消息，告诉您您的值太大了？