IF y END-IF en COBOL

Una decisión de navegación en un IF anidado: sin llaves, con END-IF cerrando cada bloque.

IDENTIFICATION DIVISION.
PROGRAM-ID. IF-ELSE.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WIND-KNOTS  PIC 99 VALUE 26.
PROCEDURE DIVISION.
*> END-IF closes the block; no braces anywhere in the language.
    IF WIND-KNOTS > 33
        DISPLAY "Gale: stay in harbor"
    ELSE
        IF WIND-KNOTS > 21
            DISPLAY "Reef the main and go"
        ELSE
            DISPLAY "Fair wind, full sail"
        END-IF
    END-IF
    STOP RUN.

Cómo funciona

1. El IF WIND-KNOTS > 33 exterior atrapa primero el vendaval.
2. El brazo ELSE anida un segundo IF para la decisión de rizar la vela.
3. Cada bloque termina con su propio END-IF, y la oración con el punto.

Palabras clave y builtins usados aquí

• DATA
• DISPLAY
• DIVISION
• ELSE
• IDENTIFICATION
• IF
• PROCEDURE
• SECTION
• STOP

El intento, en números

Líneas

17

Caracteres a escribir

366

Tokens

44

Ritmo de tres estrellas

45 tpm

Al ritmo de tres estrellas de 45 tokens por minuto, este intento toma unos 59 segundos.

Escribe este fragmento

Paso 1 de 3 en Condiciones; paso 13 de 27 en Fundamentos del lenguaje.

← Anterior Siguiente →