경고
   박우범의 허락 없이는 상업적 사용을 금합니다.

 
[Example 5]
 화면에 출력하는 구구단 프로그램입니다.
 
 
*
IDENTIFICATION DIVISION.
PROGRAM-ID. SAMPLE5.
*
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. SAMSUNG.
OBJECT-COMPUTER. SAMSUNG.
*
DATA DIVISION.
WORKING-STORAGE SECTION.
*
77 I PIC 9.
77 J PIC 9.
77 K PIC 99.
77 K1 PIC 99.
77 K2 PIC 99.
77 K3 PIC 99.
*
PROCEDURE DIVISION.
START-RTN.
DISPLAY " "   ERASE.
MOVE 3 TO K2.
PERFORM A-RTN 9  TIMES.
STOP "ENTER KEY !!!".
STOP RUN.
A-RTN.
MOVE 7 TO K1.
ADD 1 TO I.
MOVE 0 TO J.
PERFORM B-RTN 9  TIMES.
ADD 8 TO K2.
B-RTN.
ADD 1 TO J.
COMPUTE K  =  I  *  J.
ADD 1 TO K1.
DISPLAY I LINE  K1  POSITION  K2.
COMPUTE K3  =  K2  +  1.
DISPLAY "*" LINE  K1  POSITION  K3.
COMPUTE K3  =  K3  +  1.
DISPLAY J LINE  K1  POSITION  K3.
COMPUTE K3  =  K3  +  1.
DISPLAY "=" LINE  K1  POSITION  K3.
COMPUTE K3  =  K3  +  1.
DISPLAY K LINE  K1  POSITION  K3.
 
 
지적 소유권을 보호합시다.
 
☜ ♡ ☞