tawasuyu

tawasuyu/brahman

Rust 492TOML 194Markdown 53JSON 176939 Sutichaykuna

⎇ 4d9ce11b1e444430e6e2bcc0a72baa1d40a4527c crates/modules/charka/corpus/07-clasificar.cob 23 siq'ikuna · 581 B Ñawpa willay ch'uya

feat(charka): charka-shadow — validador en sombra + corpus COBOL 4d9ce11b1 · sergio · 

1* corpus charka — nivel 5: IF anidado y condiciones con AND
2IDENTIFICATION DIVISION.
3PROGRAM-ID. CLASIFICAR.
4DATA DIVISION.
5WORKING-STORAGE SECTION.
601 WS-EDAD   PIC 9(3) VALUE 0.
701 WS-INDICE PIC 9(2) VALUE 1.
8PROCEDURE DIVISION.
9MAIN-PARA.
10    PERFORM CLASIFICAR-PARA 4 TIMES.
11    STOP RUN.
12CLASIFICAR-PARA.
13    COMPUTE WS-EDAD = WS-INDICE * 25.
14    IF WS-EDAD < 18
15        DISPLAY 'MENOR DE EDAD'
16    ELSE
17        IF WS-EDAD >= 18 AND WS-EDAD < 65
18            DISPLAY 'ADULTO'
19        ELSE
20            DISPLAY 'ADULTO MAYOR'
21        END-IF
22    END-IF.
23    ADD 1 TO WS-INDICE.