PERFORM TIMES en COBOL

El bucle más simple: tocar la campana del barco una cantidad contada de veces.

IDENTIFICATION DIVISION.
PROGRAM-ID. PERFORM-TIMES.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 BELL-COUNT  PIC 9 VALUE 6.
PROCEDURE DIVISION.
*> An inline PERFORM repeats its block a fixed number of times.
    PERFORM BELL-COUNT TIMES
        DISPLAY "ding"
    END-PERFORM
    DISPLAY "Six bells: three hours into the watch"
    STOP RUN.

Cómo funciona

1. PERFORM BELL-COUNT TIMES repite el bloque una vez por campanada.
2. El cuerpo es un solo DISPLAY; END-PERFORM cierra el bucle.
3. Seis campanadas en punto: la cuenta vive en los datos, no en el código.

Palabras clave y builtins usados aquí

• DATA
• DISPLAY
• DIVISION
• IDENTIFICATION
• PERFORM
• PROCEDURE
• SECTION
• STOP

El intento, en números

Líneas

12

Caracteres a escribir

315

Tokens

34

Ritmo de tres estrellas

45 tpm

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

Escribe este fragmento

Paso 1 de 3 en Bucles; paso 16 de 27 en Fundamentos del lenguaje.

← Anterior Siguiente →