Operaciones aritméticas básicas con COBOL
Capítulo 8: Entrada de datos, sumar, restar, multiplicar y dividir
Por fin empezamos con temas más interesantes, los cálculos básicos (ya sé que no es para tanto, pero al menos tu programa de COBOL empezará a operar, que no es poca cosa).
Sumar en COBOL con la entrada de datos en consola
Aquí un ejemplo sencillo de suma en COBOL.
Además, contiene la forma de hacer que el usuario introduzca datos en el programa (INPUT).
IDENTIFICATION DIVISION.
PROGRAM-ID. CAPITULO-8.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
01 NUM1 PIC 9(4).
01 NUM2 PIC 9(4).
01 RESULTADO PIC 9(5).
PROCEDURE DIVISION.
MAIN-PROCEDURE.
DISPLAY "Introduce el primer número: ".
ACCEPT NUM1.
DISPLAY "Introduce el segundo número: ".
ACCEPT NUM2.
ADD NUM1 TO NUM2 GIVING RESULTADO.
DISPLAY "El resultado es " RESULTADO.
STOP RUN.
END PROGRAM CAPITULO-8.
Resultado
Ejecutamos el programa, lo primero que devuelve la consola es:
Introduce el primer numero:
Supongamos que introduzco un 10, acto seguido me dice que introduzca el segundo número y le introduzco un 15. Finalmente, devuelve el resultado:
Introduce el primer numero:
10
Introduce el segundo numero:
15
El resultado es 00025.
Analicemos esto paso por paso.
Tenemos 2 variables sin inicializar preparadas para almacenar números con un máximo de 4 dígitos de longitud (NUM1
y NUM2
).
Tenemos una tercera variable para almacenar el resultado de la suma(RESULTADO
).
En la PROCEDURE DIVISION
tenemos un DISPLAY
informativo para indicarle al usuario que debe introducir un número.
Gracias a los ACCEPT
podemos introducir en el programa los números, es decir, el ACCEPT
es el que consigue capturar la entrada de datos del usuario en el programa.
La operación de la suma en COBOL se realiza con la palabra reservada ADD
, la cual podríamos decir que añade, suma o adiciona dos números y muy importante, con el GIVING
le decimos que almacene esa suma en la variable RESULTADO
.
Finalmente, mostramos el valor almacenado en RESULTADO
con el DISPLAY
.
Para el resto de operaciones aritméticas, ya sabes casi cómo hacerlo, el sistema es el mismo.
Realizar restas en COBOL
Solo tienes que cambiar la línea del ADD NUM1 TO NUM2 GIVING RESULTADO
.
Lo único que cambia es la palabra reservada ADD
por SUBTRACT
(sustraer o restar) y el TO
por FROM
.
SUBTRACT NUM1 FROM NUM2 GIVING RESULTADO.
Realizar multiplicaciones en COBOL
Para multiplicar en COBOL lo hacemos de esta forma:
MULTIPLY NUM1 BY NUM2 GIVING RESULTADO.
Realizar divisiones en COBOL
Para dividir en COBOL lo hacemos de esta forma:
DIVIDE NUM1 BY NUM2 GIVING RESULTADO.
Comentarios
Si te quedan dudas sobre el temario, sobre COBOL, o cualquier otra cosa relacionada o simplemente quieres agradecer, aquí tienes tu sitio para dejar tu granito de arena. Gracias por tus comentarios y por darle vida a este sitio web.