000010*>
000020 IDENTIFICATION DIVISION.
000030 PROGRAM-ID. 99-CF.
000040 AUTHOR. RJ.
000050 ENVIRONMENT DIVISION.
000060 INPUT-OUTPUT SECTION.
000070 DATA DIVISION.
000080 WORKING-STORAGE SECTION.
000090 77 NUM PIC 9 VALUE 1.
000099 77 NUM_ADD PIC 9 VALUE 0.
000100 01 NUM_PLAY.
000110 03 NUM1 PIC 9.
000120 03 FU1 PIC X VALUE "*".
000130 03 NUM2 PIC 9.
000140 03 FU2 PIC X VALUE "=".
000150 03 NUM3 PIC 99.
03 FU3 PIC XXX VALUE '...'.
000153 PROCEDURE DIVISION.
000155 PERFORM XUNH1 9 TIMES.
000156 STOP RUN.
000162 XUNH1.
000163 MOVE 0 TO NUM_ADD.
000170 PERFORM XUNH2 NUM TIMES.
000171 ADD 1 TO NUM.
000176 XUNH2.
000181 ADD 1 TO NUM_ADD.
000190 MOVE NUM TO NUM2.
000200 MOVE NUM_ADD TO NUM1.
000211 COMPUTE NUM3 = NUM1 * NUM2.
000210 DISPLAY NUM1,FU1,NUM2,FU2,NUM3,FU3 WITH NO ADVANCING.
000211 END PROGRAM 99-CF.
------解决方案--------------------------------------------------------
看起来特吃力
------解决方案--------------------------------------------------------