PERFORM VARYING en COBOL

El bucle contado: FROM, BY y una prueba UNTIL llevando el entrenamiento de los perros de trineo.

IDENTIFICATION DIVISION.
PROGRAM-ID. PERFORM-VARYING.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 LAP-NO    PIC 99.
01 LAP-SHOW  PIC Z9.
PROCEDURE DIVISION.
*> VARYING is the counted loop: FROM, BY, and an UNTIL test.
    PERFORM VARYING LAP-NO FROM 2 BY 2 UNTIL LAP-NO > 8
        MOVE LAP-NO TO LAP-SHOW
        DISPLAY "Sled dog lap" LAP-SHOW
    END-PERFORM
    DISPLAY "Cool-down walk"
    STOP RUN.

Cómo funciona

1. PERFORM VARYING LAP-NO FROM 2 BY 2 UNTIL LAP-NO > 8 cuenta de dos en dos.
2. El MOVE a Z9 quita el cero inicial antes de cada DISPLAY.
3. La condición se evalúa antes de cada pasada, así que el bucle para limpio después de la vuelta 8.

Palabras clave y builtins usados aquí

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

El intento, en números

Líneas

14

Caracteres a escribir

371

Tokens

49

Ritmo de tres estrellas

40 tpm

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

Escribe este fragmento

Paso 2 de 3 en Bucles; paso 17 de 27 en Fundamentos del lenguaje.

← Anterior Siguiente →