Entrada de datos y sumar, restar, multiplicar y dividir - Capítulo 8

Curso de COBOL desde cero


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).

Cómo sumar en COBOL

Aquí un ejemplo sencillo de suma en COBOL.
Además, contiene la forma de hacer que el usuario introduzca datos en el programa (INPUT).

Código

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.
	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 devuelve 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
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.

Cómo restar 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 SUSTRACT (sustraer o restar) y el TO por FROM.

Código

SUBTRACT NUM1 FROM NUM2 GIVING RESULTADO.

Cómo multiplicar en COBOL

Para multiplicar en COBOL lo hacemos de esta forma:

Código

MULTIPLY NUM1 BY NUM2 GIVING RESULTADO.

Cómo dividir en COBOL

Para dividir en COBOL lo hacemos de esta forma:

Código

DIVIDE NUM1 BY NUM2 GIVING RESULTADO.

Suscríbete a mi canal de YouTube para apoyarme

Si te ha gustado este curso y crees que el trabajo merece la pena, te agradeceré eternamente que te suscribas a mi canal de YouTube para apoyarme y que pueda seguir haciendo cursos gratuitos.

Además, si te encanta la programación, tienes un montón más de cursos gratuitos para ver.

No solo eso, podrás participar enviándome comentarios con tus sugerencias para temas específicos o cursos completos o incluso las dudas que tengas y las intentaré ir resolviendo en los cursos que estén todavía abiertos.


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.