COMPUTE y ROUNDED en COBOL

COMPUTE toma una expresión entera de una vez; ROUNDED prolija el resultado.

IDENTIFICATION DIVISION.
PROGRAM-ID. COMPUTE-ROUNDED.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 RADIUS-M    PIC 9(2)V9 VALUE 3.5.
01 AREA-SQM    PIC 9(4)V99.
01 AREA-SHOW   PIC ZZZ9.99.
PROCEDURE DIVISION.
*> COMPUTE takes a whole expression; ROUNDED tidies the result.
    COMPUTE AREA-SQM ROUNDED = 3.14159 * RADIUS-M ** 2
    MOVE AREA-SQM TO AREA-SHOW
    DISPLAY "Paddock area: " AREA-SHOW " square meters"
    STOP RUN.

Cómo funciona

1. COMPUTE ... = 3.14159 * RADIUS-M ** 2 usa operadores comunes, ** incluido.
2. ROUNDED redondea el último dígito en vez de truncarlo.
3. El MOVE a ZZZ9.99 formatea el área para el DISPLAY.

Palabras clave y builtins usados aquí

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

El intento, en números

Líneas

13

Caracteres a escribir

410

Tokens

51

Ritmo de tres estrellas

40 tpm

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

Escribe este fragmento

Paso 2 de 3 en Aritmética; paso 11 de 27 en Fundamentos del lenguaje.

← Anterior Siguiente →