tawasuyu

tawasuyu/brahman

Rust 492TOML 194Markdown 53JSON 176939 Definitions

⎇ 4d9ce11b1e444430e6e2bcc0a72baa1d40a4527c crates/modules/charka/corpus/05-factorial.cob 16 lines · 423 B History raw

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

1* corpus charka — nivel 4: PERFORM UNTIL en línea (factorial)
2IDENTIFICATION DIVISION.
3PROGRAM-ID. FACTORIAL.
4DATA DIVISION.
5WORKING-STORAGE SECTION.
601 WS-N    PIC 9(2) VALUE 6.
701 WS-I    PIC 9(2) VALUE 1.
801 WS-FACT PIC 9(8) VALUE 1.
9PROCEDURE DIVISION.
10MAIN.
11    PERFORM UNTIL WS-I > WS-N
12        MULTIPLY WS-I BY WS-FACT
13        ADD 1 TO WS-I
14    END-PERFORM.
15    DISPLAY 'FACTORIAL DE 6 = ' WS-FACT.
16    STOP RUN.