1加到100

2019-04-15 13:20发布

站内文章 / PIC单片机
17123 0 1460
IDENTIFICATION DIVISION. PROGRAM-ID. ADD1. ENVIRONMENT DIVISION. DATA DIVISION. WORKING-STORAGE SECTION. 01 A PIC 9(3). 01 SUMA PIC 9(4). PROCEDURE DIVISION.               MOVE 1 TO A.               MOVE 0 TO SUMA.               PERFORM 100-ADD                                      UNTIL A > 100.               DISPALY 'SUMA : ' SUMA.               STOP RUN. 100-ADD.               ADD A TO SUMA.               ADD 1 TO A.

热门文章