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

 
[문제 3]
 아래와 같은 일차원 배열이 있습니다. 
A(1)
A(2)
A(3)
A(4)
A(5)
A(6)
A(7)
A(8)
A(9)
A(10)
11
22
33
44
55
66
77
88
99
00
 이 배열을 화면에 표시한 후 아래와 같이 배열을 변환하여 화면에 표시하는 프로그램을 작성하시오. 
A(1)
A(2)
A(3)
A(4)
A(5)
A(6)
A(7)
A(8)
A(9)
A(10)
00
99
88
77
66
55
44
33
22
11
 
 
 
*
IDENTIFICATION DIVISION.
PROGRAM-ID. T3.
*
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.
01 TAB1-ENTRY VALUE  "11223344556677889900".
03 A PIC 99 OCCURS  10  TIMES.
01 TAB2-ENTRY.
03 B PIC 99 OCCURS  10  TIMES.
*
PROCEDURE DIVISION.
START-RTN.
DISPLAY  " "  ERASE.
DISPLAY  "MATRIX A "  LINE  6  POSITION  1.
PERFORM  DIS1-RTN
VARYING I  FROM 1  BY 1  UNTIL  I > 10.
PERFORM  MOVE-RTN
VARYING I  FROM 1  BY 1  UNTIL  I > 10.
DISPLAY  "MATRIX B "  LINE  9  POSITION  1.
PERFORM  DIS2-RTN
VARYING I  FROM 1  BY 1  UNTIL I > 10.
*
END-RTN.
STOP RUN.
DIS1-RTN.
DISPLAY  A(I)  LINE   7  POSITION  0.
DISPLAY  " "    LINE   7  POSITION  0.
DIS2-RTN.
DISPLAY  B(I)  LINE  10  POSITION  0.
DISPLAY  " "    LINE  10  POSITION  0.
MOVE-RTN.
COMPUTE  J  =  11 - I.
MOVE  A(I)  TO  B(J).
 
 
지적 소유권을 보호합시다.
 
☜ ♡ ☞