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
- Verbos Aritméticos: COBOL utiliza verbos específicos para realizar operaciones aritméticas.
- Tipos de Operaciones: Suma, resta, multiplicación, división y cálculo de potencias.
- 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:
- Escribe un programa COBOL que sume dos números y reste un tercer número del resultado.
- 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:
- Escribe un programa COBOL que multiplique dos números y luego divida el resultado por un tercer número.
- 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.
Curso de Programación COBOL
Módulo 1: Introducción a COBOL
- ¿Qué es COBOL?
- Historia de COBOL
- Configuración del Entorno COBOL
- Estructura Básica de un Programa COBOL
Módulo 2: Sintaxis Básica de COBOL y Tipos de Datos
Módulo 3: Estructuras de Control
Módulo 4: Trabajando con Datos
- Manejo de Archivos en COBOL
- Procesamiento de Archivos Secuenciales
- Procesamiento de Archivos Indexados
- Procesamiento de Archivos Relativos
Módulo 5: Manejo Avanzado de Datos
Módulo 6: Subprogramas y Programación Modular
Módulo 7: Manejo de Errores y Depuración
Módulo 8: COBOL y Bases de Datos
Módulo 9: Temas Avanzados
- COBOL Orientado a Objetos
- COBOL y Servicios Web
- Optimización del Rendimiento
- Mejores Prácticas en Programación COBOL