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

 
[문제 9]
 알파벳을 아래와 같이 화면에 표시하는 프로그램을 작성하시오. 
 
A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
A B C D E F G H I J K L M N O P Q R S T U V W X Y
A B C D E F G H I J K L M N O P Q R S T U V W X
A B C D E F G H I J K L M N O P Q R S T U V W
A B C D E F G H I J K L M N O P Q R S T U V
A B C D E F G H I J K L M N O P Q R S T U
A B C D E F G H I J K L M N O P Q R S T
A B C D E F G H I J K L M N O P Q R S
A B C D E F G H I J K L M N O P Q R
A B C D E F G H I J K L M N O P Q
A B C D E F G H I J K L M N O P
A B C D E F G H I J K L M N O
A B C D E F G H I J K L M N
A B C D E F G H I J K L M
A B C D E F G H I J K L
A B C D E F G H I J K
A B C D E F G H I J
A B C D E F G H I
A B C D E F G H
A B C D E F G
A B C D E F
A B C D E
A B C D
A B C
A B
A
A
A B
A B C
A B C D
A B C D E
A B C D E F
A B C D E F G
A B C D E F G H
A B C D E F G H I
A B C D E F G H I J
A B C D E F G H I J K
A B C D E F G H I J K L
A B C D E F G H I J K L M
A B C D E F G H I J K L M N
A B C D E F G H I J K L M N O
A B C D E F G H I J K L M N O P
A B C D E F G H I J K L M N O P Q
A B C D E F G H I J K L M N O P Q R
A B C D E F G H I J K L M N O P Q R S
A B C D E F G H I J K L M N O P Q R S T
A B C D E F G H I J K L M N O P Q R S T U
A B C D E F G H I J K L M N O P Q R S T U V
A B C D E F G H I J K L M N O P Q R S T U V W
A B C D E F G H I J K L M N O P Q R S T U V W X
A B C D E F G H I J K L M N O P Q R S T U V W X Y
A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
 
 
 
*
IDENTIFICATION DIVISION.
PROGRAM-ID. T9.
*
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 K PIC 99 VALUE  0.
77 L PIC 99 VALUE  0.
77 TEMP PIC XX.
01 DATA-REC  PIC  X(26)  VALUE
"ABCDEFGHIJKLMNOPQRSTUVWXYZ".
01 DATA-ENTRY  REDEFINES  DATA-REC.
03 A PIC X OCCURS  26  TIMES.
01 DIS-REC.
03 D PIC X OCCURS  51  TIMES.
*
PROCEDURE DIVISION.
START-RTN.
DISPLAY  " "  ERASE.
PERFORM  PROC-1
VARYING I  FROM 1  BY 1  UNTIL  I > 52.
END-RTN.
STOP  " ".
STOP  RUN.
PROC-1.
IF  I > 26  COMPUTE  K = I - 26
ELSE COMPUTE  K = 27 - I.
COMPUTE  L = 27 - K.
PERFORM  PROC-2
VARYING J  FROM 1  BY 1  UNTIL  J > K.
DISPLAY  DIS-REC.
MOVE  SPACE  TO  DIS-REC.
PROC-2.
MOVE  A(J)  TO  D(L).
ADD  2  TO  L.
 
 
지적 소유권을 보호합시다.
 
☜ ♡ ☞