COBOL 进行除法运算并获取商和余数

 DIVIDE  PSSU  BY                                        
         TASU  GIVING  SYOU                       
                         REMAINDER  AMRI 

根据给定的变量进行除法运算并获取商和余数。

以下是对每行代码的解释：
使用 DIVIDE 关键字，将 PSSU（被除数）除以 TASU（除数），并将商存储到 SYOU 中。
使用 REMAINDER 关键字，将余数存储在 AMRI 中。

假设我们有以下变量的初始值：

01 PSSU      PIC 9(4) VALUE 1000.
01 TASU      PIC 9(2) VALUE 25.
01 SYOU            PIC 9(2).
01 AMRI            PIC 9(2).

现在我们来执行这段代码并验证结果：

DIVIDE PSSU BY TASU GIVING SYOU REMAINDER AMRI.
DISPLAY "商：" SYOU.
DISPLAY "余数：" AMRI.

在COBOL环境中执行以上代码后，将输出以下结果：

商： 40
余数： 0

因此，根据给定的初始值，1000除以25的商为40，余数为0。