ADD y SUBTRACT en COBOL

Aritmética con el verbo adelante, que se lee como una orden al encargado del depósito.

IDENTIFICATION DIVISION.
PROGRAM-ID. ADD-SUBTRACT.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 BIN-A     PIC 9(3) VALUE 250.
01 BIN-B     PIC 9(3) VALUE 175.
01 SOLD-LB   PIC 9(3) VALUE 60.
01 TOTAL-LB  PIC 9(4).
PROCEDURE DIVISION.
*> Verb-first arithmetic reads like an order to a clerk.
    ADD BIN-A TO BIN-B GIVING TOTAL-LB
    SUBTRACT SOLD-LB FROM TOTAL-LB
    DISPLAY "Apples on hand: " TOTAL-LB " lb"
    STOP RUN.

Cómo funciona

1. ADD BIN-A TO BIN-B GIVING TOTAL-LB deja los dos cajones intactos y llena el total.
2. SUBTRACT SOLD-LB FROM TOTAL-LB actualiza el total en su lugar.
3. El campo resultado 9(4) es un dígito más ancho que los cajones, así que la suma siempre cabe.

Palabras clave y builtins usados aquí

• ADD
• DATA
• DISPLAY
• DIVISION
• IDENTIFICATION
• PROCEDURE
• SECTION
• STOP
• SUBTRACT

El intento, en números

Líneas

14

Caracteres a escribir

406

Tokens

56

Ritmo de tres estrellas

45 tpm

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

Escribe este fragmento

Paso 1 de 3 en Aritmética; paso 10 de 27 en Fundamentos del lenguaje.

← Anterior Siguiente →