Я хочу напечатать треугольник "*" в середине экрана, используя cobol ??как мне это сделать? - PullRequest
Новая
       5

Я хочу напечатать треугольник "*" в середине экрана, используя cobol ??как мне это сделать?

0 голосов
/ 21 сентября 2018 
 IDENTIFICATION DIVISION.
        PROGRAM-ID. 11.
        WORKING-STORAGE SECTION.
        01 NUM1 PIC X(010) VALUE "*".
        01 NUM2 PIC S9(001) VALUE +2 COMP.
        PROCEDURE DIVISION.
        PERFORM TRI 6 TIMES
        STOP RUN.
       TRI.
        DISPLAY NUM1
        ADD +2 TO NUM2
        MOVE "*" TO NUM1(NUM2:6).

1 Ответ

0 голосов
/ 21 сентября 2018

Код COBOL для печати треугольника звездочек в центре экрана приведен ниже.

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO-WORLD.

DATA DIVISION. 
WORKING-STORAGE SECTION.
01 WS-OUT PIC X(80) VALUE SPACES.
01 WS-N PIC 9(2) VALUE 0. 
01 WS-CENTER PIC 9(2) VALUE 40. 

PROCEDURE DIVISION.

PERFORM VARYING WS-N FROM 1 BY 2 UNTIL WS-N > 20
MOVE ALL '*' TO WS-OUT(WS-CENTER:WS-N)
COMPUTE WS-CENTER = WS-CENTER - 1
DISPLAY WS-OUT
END-PERFORM. 

STOP RUN.

Вывод: 

                               *                                        
                              ***                                       
                             *****                                      
                            *******                                     
                           *********                                    
                          ***********                                   
                         *************                                  
                        ***************                                 
                       *****************                                
                      *******************

Запустите его здесь

Благодаря Рик Смит за предложения.

...