废话不说,直接上代码:
主要用到PERFORM循环
000010 IDENTIFICATION DIVISION.
000011 PROGRAM-ID. STUDY5-103.
000020 ENVIRONMENT DIVISION.
000030 DATA DIVISION.
000031 WORKING-STORAGE SECTION.
000040 77 DA1 PIC 99.
000050 77 DA2 PIC 99.
000051 77 DA3 PIC 99.
000052 77 DA4 PIC Z9.
000053 77 DA5 PIC Z9.
000054 77 DA6 PIC Z9.
000055* 01 CFB.
000056* 02
000060 PROCEDURE DIVISION.
000070 P. PERFORM A
000080 VARYING DA1 FROM 1 BY 1 UNTIL DA1 > 9
000090 AFTER DA2 FROM 1 BY 1 UNTIL DA2 > DA1.
000100 STOP RUN.
000110 A. COMPUTE DA3 = DA1 * DA2.
000111 MOVE DA3 TO DA4.
000112 MOVE DA1 TO DA5.
000113 MOVE DA2 TO DA6.
000120 IF DA1 = DA2
000121 DISPLAY DA6 '*' DA5 '=' DA4 ' '
000123 ELSE
000124 DISPLAY DA6 '*' DA5 '=' DA4 ' ' WITH NO ADVANCING
000130 END-IF.
000140