有一堆物品,数量为10。有两个包,大包可装8个,小包可以装3个。
若大包1次能装完,显示OK,否者继续执行,剩下的用小包装,装下显示OK,否者显示ERROR
IDENTIFICATION DIVISION.
PROGRAM-BAG.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 BIG PIC 9 VALUE 8.
01 SMALL PIC 9 VALUE 3.
01 APPLE PIC 99 VALUE 10.
01 SHENG PIC 9.
PROCEDURE DIVISION.
IF BIG > APPLE
DISPLAY 'OK!'
ELSE
SUBTRACT BIG FROM APPLE GIVING SHENG
IF SHENG > SMALL
DISPLAY 'OK!'
ELSE
DISPLAY 'ERROR!'
END-IF
END-IF.
STOP RUN.
运行后:
OK
编程时不要急,先画出流程图,设定好变量。
养成良好的编程习惯。