Condiciones IF y ELSE en COBOL

Un programa COBOL con una condición IF y ELSE permite tomar decisiones basadas en una condición dada. A continuación, te presento un ejemplo sencillo:

Programa COBOL

IDENTIFICATION DIVISION.
PROGRAM-ID. ProgramaConCondicion.
AUTHOR. TuNombre.
DATE-WRITTEN. DD/MM/AAAA.

DATA DIVISION.
WORKING-STORAGE SECTION.
01 Edad PIC 9(3) VALUE 25.

PROCEDURE DIVISION.
    DISPLAY 'Ingrese su edad: '.
    ACCEPT Edad FROM CONSOLE.

    IF Edad >= 18
        DISPLAY 'Eres mayor de edad.'
    ELSE
        DISPLAY 'Eres menor de edad.'
    END-IF.

    STOP RUN.

WORKING-STORAGE SECTION

• Edad: Variable que almacena la edad del usuario.

PROCEDURE DIVISION

• DISPLAY 'Ingrese su edad:': Muestra un mensaje solicitando al usuario que ingrese su edad.
• ACCEPT Edad FROM CONSOLE: Lee la entrada de edad desde la consola.
• IF Edad >= 18: Inicia la condición. Si la edad es mayor o igual a 18, se ejecuta la siguiente línea.
  • DISPLAY 'Eres mayor de edad.': Muestra un mensaje indicando que la persona es mayor de edad.
• ELSE: Marca el inicio de la rama alternativa si la condición IF no se cumple.
  • DISPLAY 'Eres menor de edad.': Muestra un mensaje indicando que la persona es menor de edad.
• END-IF: Indica el final de la estructura IF.
• STOP RUN: Marca el final del programa.

En este ejemplo, el programa solicita la entrada de la edad del usuario y luego muestra un mensaje indicando si la persona es mayor o menor de edad. Puedes ajustar la condición IF según tus necesidades específicas.