COBOL DESDE CERO #4

Aprendiendo COBOL: Estructuras de Control Avanzadas

Explorando Estructuras de Control Avanzadas en COBOL

En esta lección, profundizaremos en estructuras de control más avanzadas en COBOL, como PERFORM y ACCEPT. Estas estructuras nos permiten realizar tareas repetitivas y aceptar entrada del usuario.

IDENTIFICATION DIVISION.
PROGRAM-ID. EstructurasAvanzadas.

DATA DIVISION.
WORKING-STORAGE SECTION.
    01 Contador PIC 9(2) VALUE 1.
    01 Total PIC 9(3) VALUE 0.
    01 Numero PIC 9(3).

PROCEDURE DIVISION.
    PERFORM UNTIL Contador > 5
        DISPLAY 'Ingrese el número ', Contador, ': '.
        ACCEPT Numero.
        COMPUTE Total = Total + Numero.
        ADD 1 TO Contador.
    END-PERFORM.

    DISPLAY 'La suma total es: ', Total.
    STOP RUN.
        

En este programa, utilizamos la estructura PERFORM UNTIL para repetir la entrada de números cinco veces. La cláusula ACCEPT se utiliza para obtener la entrada del usuario, y luego sumamos esos números para mostrar la suma total al final.

Puntos Destacados:

• La estructura PERFORM UNTIL repite el bloque de código hasta que se cumple la condición especificada.
• La cláusula ACCEPT se utiliza para aceptar la entrada del usuario.
• El contador Contador se incrementa en cada iteración.

En las próximas lecciones, exploraremos más sobre manipulación de datos y cómo crear programas más interactivos en COBOL. ¡Sigue aprendiendo y disfrutando del viaje!