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

 
[문제 4]
 [1 번]과 같은 이차원 배열이 있습니다. 
이 배열을 화면에 표시한 후, [2 번]과 같은 배열로 변환하여 화면에 표시하는 프로그램을 작성하시오. 
   [1 번] 
11
22
33
44
55
66
77
88
99
 
⇒
    [2 번] 
11
44
77
22
55
88
33
66
99
 
 
 
 
*
IDENTIFICATION DIVISION.
PROGRAM-ID. T4.
*
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. SAMSUNG.
OBJECT-COMPUTER. SAMSUNG.
*
DATA DIVISION.
WORKING-STORAGE SECTION.
*
77 I PIC 99 VALUE  0.
77 J PIC 99 VALUE  0.
77 C PIC 99 VALUE  0.
77 D PIC 99 VALUE  0.
77 E PIC 99 VALUE  0.
01 TAB1-ENTRY VALUE  "112233445566778899".
03 A1 OCCURS  3  TIMES.
05 A PIC 99 OCCURS  3  TIMES.
01 TAB2-ENTRY VALUE  "112233445566778899".
03 B1 OCCURS  3  TIMES.
05 B PIC 99 OCCURS  3  TIMES.
*
PROCEDURE DIVISION.
START-RTN.
DISPLAY  " "  ERASE.
PERFORM  DIS1-RTN
VARYING  I  FROM  1  BY  1  UNTIL  I > 3
AFTER     J  FROM  1  BY  1  UNTIL  J > 3.
PERFORM  MOVE-RTN
VARYING  I  FROM  1  BY  1  UNTIL  I > 3
AFTER     J  FROM  1  BY  1  UNTIL  J > 3.
PERFORM  DIS2-RTN
VARYING  I  FROM  1  BY  1  UNTIL  I > 3
AFTER     J  FROM  1  BY  1  UNTIL  J > 3.
END-RTN.
STOP  RUN.
DIS1-RTN.
COMPUTE  C = I + 7.
IF  J = 1  MOVE  1  TO  D  ELSE  MOVE  0  TO  D.
DISPLAY  A(I, J)  LINE  C  POSITION  D.
DISPLAY  " "       LINE  C  POSITION  0.
DIS2-RTN.
COMPUTE  C = I + 12.
IF  J = 1  MOVE  1  TO  D  ELSE  MOVE  0  TO  D.
DISPLAY  B(I, J)  LINE  C  POSITION  D.
DISPLAY  " "       LINE  C  POSITION  0.
MOVE-RTN.
MOVE  A(I, J)  TO  B(J, I).
 
 
지적 소유권을 보호합시다.
 
☜ ♡ ☞