En este tema, aprenderemos cómo realizar operaciones aritméticas en COBOL. Las operaciones aritméticas son fundamentales en cualquier lenguaje de programación, y COBOL no es una excepción. COBOL proporciona una serie de verbos aritméticos que permiten realizar cálculos básicos y avanzados.

Conceptos Clave

  1. Verbos Aritméticos: COBOL utiliza verbos específicos para realizar operaciones aritméticas.
  2. Tipos de Operaciones: Suma, resta, multiplicación, división y cálculo de potencias.
  3. Uso de Variables: Cómo almacenar y manipular resultados aritméticos en variables.

Verbos Aritméticos en COBOL

COBOL utiliza verbos específicos para realizar operaciones aritméticas. A continuación, se presentan los verbos más comunes:

  • ADD: Suma dos o más números.
  • SUBTRACT: Resta un número de otro.
  • MULTIPLY: Multiplica dos números.
  • DIVIDE: Divide un número por otro.
  • COMPUTE: Realiza cálculos aritméticos complejos.

Ejemplos Prácticos

Suma (ADD)

       IDENTIFICATION DIVISION.
       PROGRAM-ID. AddExample.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 NUM1 PIC 9(2) VALUE 10.
       01 NUM2 PIC 9(2) VALUE 20.
       01 RESULT PIC 9(3).
       PROCEDURE DIVISION.
           ADD NUM1 TO NUM2 GIVING RESULT
           DISPLAY "The result of addition is: " RESULT
           STOP RUN.

Explicación:

  • NUM1 y NUM2 son las variables que contienen los números a sumar.
  • RESULT es la variable donde se almacenará el resultado.
  • La instrucción ADD NUM1 TO NUM2 GIVING RESULT suma NUM1 y NUM2, y almacena el resultado en RESULT.

Resta (SUBTRACT)

       IDENTIFICATION DIVISION.
       PROGRAM-ID. SubtractExample.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 NUM1 PIC 9(2) VALUE 30.
       01 NUM2 PIC 9(2) VALUE 10.
       01 RESULT PIC 9(3).
       PROCEDURE DIVISION.
           SUBTRACT NUM2 FROM NUM1 GIVING RESULT
           DISPLAY "The result of subtraction is: " RESULT
           STOP RUN.

Explicación:

  • La instrucción SUBTRACT NUM2 FROM NUM1 GIVING RESULT resta NUM2 de NUM1, y almacena el resultado en RESULT.

Multiplicación (MULTIPLY)

       IDENTIFICATION DIVISION.
       PROGRAM-ID. MultiplyExample.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 NUM1 PIC 9(2) VALUE 5.
       01 NUM2 PIC 9(2) VALUE 4.
       01 RESULT PIC 9(3).
       PROCEDURE DIVISION.
           MULTIPLY NUM1 BY NUM2 GIVING RESULT
           DISPLAY "The result of multiplication is: " RESULT
           STOP RUN.

Explicación:

  • La instrucción MULTIPLY NUM1 BY NUM2 GIVING RESULT multiplica NUM1 por NUM2, y almacena el resultado en RESULT.

División (DIVIDE)

       IDENTIFICATION DIVISION.
       PROGRAM-ID. DivideExample.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 NUM1 PIC 9(2) VALUE 20.
       01 NUM2 PIC 9(2) VALUE 4.
       01 RESULT PIC 9(3).
       PROCEDURE DIVISION.
           DIVIDE NUM1 BY NUM2 GIVING RESULT
           DISPLAY "The result of division is: " RESULT
           STOP RUN.

Explicación:

  • La instrucción DIVIDE NUM1 BY NUM2 GIVING RESULT divide NUM1 por NUM2, y almacena el resultado en RESULT.

Cálculos Complejos (COMPUTE)

       IDENTIFICATION DIVISION.
       PROGRAM-ID. ComputeExample.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 NUM1 PIC 9(2) VALUE 10.
       01 NUM2 PIC 9(2) VALUE 5.
       01 RESULT PIC 9(3).
       PROCEDURE DIVISION.
           COMPUTE RESULT = (NUM1 + NUM2) * 2
           DISPLAY "The result of the computation is: " RESULT
           STOP RUN.

Explicación:

  • La instrucción COMPUTE RESULT = (NUM1 + NUM2) * 2 realiza una suma de NUM1 y NUM2, multiplica el resultado por 2, y almacena el resultado en RESULT.

Ejercicios Prácticos

Ejercicio 1: Suma y Resta

Instrucciones:

  1. Escribe un programa COBOL que sume dos números y reste un tercer número del resultado.
  2. Muestra el resultado final.

Solución:

       IDENTIFICATION DIVISION.
       PROGRAM-ID. SumSubtractExercise.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 NUM1 PIC 9(2) VALUE 15.
       01 NUM2 PIC 9(2) VALUE 10.
       01 NUM3 PIC 9(2) VALUE 5.
       01 RESULT PIC 9(3).
       PROCEDURE DIVISION.
           ADD NUM1 TO NUM2 GIVING RESULT
           SUBTRACT NUM3 FROM RESULT
           DISPLAY "The final result is: " RESULT
           STOP RUN.

Ejercicio 2: Multiplicación y División

Instrucciones:

  1. Escribe un programa COBOL que multiplique dos números y luego divida el resultado por un tercer número.
  2. Muestra el resultado final.

Solución:

       IDENTIFICATION DIVISION.
       PROGRAM-ID. MultiplyDivideExercise.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 NUM1 PIC 9(2) VALUE 6.
       01 NUM2 PIC 9(2) VALUE 3.
       01 NUM3 PIC 9(2) VALUE 2.
       01 RESULT PIC 9(3).
       PROCEDURE DIVISION.
           MULTIPLY NUM1 BY NUM2 GIVING RESULT
           DIVIDE RESULT BY NUM3 GIVING RESULT
           DISPLAY "The final result is: " RESULT
           STOP RUN.

Resumen

En esta sección, hemos aprendido cómo realizar operaciones aritméticas básicas en COBOL utilizando los verbos aritméticos ADD, SUBTRACT, MULTIPLY, DIVIDE y COMPUTE. También hemos visto ejemplos prácticos y ejercicios para reforzar los conceptos aprendidos. Con esta base, estarás preparado para manejar cálculos aritméticos en tus programas COBOL. En el próximo módulo, exploraremos las estructuras de control en COBOL.

© Copyright 2024. Todos los derechos reservados