如:1到10的奇数和相加。用线外perform和线上perform。
IDENTIFICATION DIVISION.
PROGRAM-ID. ADD1.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 A PIC 9(2).
01 SUMA PIC 9(2).
PROCEDURE DIVISION.
MOVE 1 TO A.
MOVE 0 TO SUMA.
PERFORM 100-ADD
UNTIL A > 10.
DISPALY 'SUMA : ' SUMA.
STOP RUN.
100-ADD.
ADD A TO SUMA.
ADD 2 TO A.
IDENTIFICATION DIVISION.
PROGRAM-ID. ADD1.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 A PIC 9(2).
01 SUMA PIC 9(2).
PROCEDURE DIVISION.
MOVE 1 TO A.
MOVE 0 TO SUMA.
PERFORM UNTIL A > 10
ADD A TO SUMA
ADD 2 TO A
END-PERFORM.
DISPALY 'SUMA : ' SUMA.
STOP RUN.

版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容,请联系我们,一经查实,本站将立刻删除。
如需转载请保留出处:https://51itzy.com/kjqy/56695.html