cobol 如何取余

例如我想求400%13的余数,怎么写。。
2024-12-18 05:47:45
推荐回答(1个)
回答1:

01 D1 PIC S99V9.
01 D2 PIC S99V9.
01 S1 PIC S99.
01 Y1 PIC S99V9.
01 R1 PIC S99V9.

DIVIDE D1 INTO D2 GIVING S1 R1
COMPUTE Y1 = R1 - S1 * D2
Y1就是余数