1. 首页首页
  2. 科技前沿科技前沿

perform语句

科技前沿 • • 阅读 38

perform语句如 1 到 10 的奇数和相加 用线外 perform 和线上 perform IDENTIFICATI DIVISION PROGRAM ID ADD1 ENVIRONMENT DIVISION DATA DIVISION WORKING STORAGE SECTION 01 A PIC 9 2 01 SUMA PIC

大家好，我是讯享网，很高兴认识大家。

如：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.

小讯
上一篇 2025-02-17 16:21
下一篇 2025-02-23 14:01

相关推荐

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