Mais um blog inútil.

Maio 13, 2009

Arvorezinha – COBOL

Filed under: Arvorezinha,Coding,Useless — falso @ 17:07

Outra submissão para a saga da arvorezinha, pelo meu colega João Saramago, desta vez em COBOL. Aqui vai:

IDENTIFICATION DIVISION.
PROGRAM-ID.  Arvorezinha.
AUTHOR.  João Saramago.

DATA DIVISION.

WORKING-STORAGE SECTION.
01  Linhas                                PIC 99  VALUE 5.
01  AUX                                   PIC 99 VALUE ZEROS.
01  AUX2                                  PIC 99 VALUE ZEROS.

PROCEDURE DIVISION.
Main.
    DISPLAY "Número de Linhas: " WITH NO ADVANCING
    ACCEPT Linhas.
    PERFORM VARYING AUX FROM 1 BY 1 UNTIL AUX GREATER THAN Linhas
       PERFORM VARYING AUX2  FROM 0 BY 1 UNTIL AUX2 EQUAL TO AUX 
          DISPLAY "*" WITH NO ADVANCING
       END-PERFORM
       DISPLAY ""
    END-PERFORM
    STOP RUN.

Para compilar usei o OpenCobol e para compilar é este comando:

cobc -free -x arvorezinha.cbl 

3 comentários a “Arvorezinha – COBOL”

  1. mirage diz:

    CAPS LOCK IS CRUISE CONTROL FOR COBOL!

  2. Mário Gamito diz:

    Adorava estar vivo para poder fazer coisas inúteis como esta :/

  3. Cromito diz:

    Que cromo que tu me saíste! Arranja uma vida!

Comentar

widgeon
widgeon
widgeon
widgeon