cobol+return+IVFD
时间: 2023-12-15 09:06:17 浏览: 52
根据提供的引用内容,我们可以得知COBOL是一种编程语言,RETURN是COBOL中的一个关键字,用于从子程序中返回主程序,并且IVFD是一种COBOL数据类型,表示带有十进制小数点的数字。
因此,COBOL+RETURN+IVFD的组合可以用于从一个带有小数点的子程序中返回一个数字。
以下是一个简单的COBOL程序示例,演示了如何使用RETURN和IVFD数据类型:
```cobol
IDENTIFICATION DIVISION.
PROGRAM-ID. RETURN_IVFD.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 NUM1 IV-9(3)V99 VALUE 123.45.
01 NUM2 IV-9(3)V99 VALUE 678.90.
PROCEDURE DIVISION.
MAIN-PROCEDURE.
DISPLAY "NUM1: " NUM1.
DISPLAY "NUM2: " NUM2.
COMPUTE NUM1 = NUM1 + NUM2.
DISPLAY "SUM: " NUM1.
PERFORM SUB-PROCEDURE.
DISPLAY "AFTER SUB-PROCEDURE: " NUM1.
STOP RUN.
SUB-PROCEDURE.
DISPLAY "INSIDE SUB-PROCEDURE".
COMPUTE NUM1 = NUM1 + 10.50.
DISPLAY "NUM1 INSIDE SUB-PROCEDURE: " NUM1.
RETURN.
```
在上面的示例中,我们定义了两个带有小数点的数字NUM1和NUM2,然后在主程序中计算它们的和,并调用一个子程序。在子程序中,我们将NUM1增加了10.50,然后使用RETURN关键字返回到主程序。最后,我们显示了NUM1的值,以演示子程序是否成功地修改了它。
相关推荐
![zip](https://img-home.csdnimg.cn/images/20210720083736.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)