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

 
[문제 8]
 알파벳을 아래와 같이 화면에 표시하는 프로그램을 작성하시오. 
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. T8.
*
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. SAMSUNG.
OBJECT-COMPUTER. SAMSUNG.
*
DATA DIVISION.
WORKING-STORAGE SECTION.
*
77 I PIC 99 VALUE  0.
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 XX OCCURS  26  TIMES.
*
PROCEDURE DIVISION.
START-RTN.
DISPLAY  " "  ERASE.
PERFORM  PROC-1
VARYING I  FROM 1  BY 1  UNTIL  I > 26.
END-RTN.
STOP  " ".
STOP  RUN.
PROC-1.
MOVE  A(I)  TO  D(I).
DISPLAY  DIS-REC.
 
 
지적 소유권을 보호합시다.
 
☜ ♡ ☞