¿Cómo sacar el cuadrado y el cubo de un número en COBOL?



Caso 1.

Realizar un programa en COBOL (.cbl) que tenga como entrada un número, y te calcule el cuadro y el cubo del mismo. (Usando compute para realizar la operación matemática)

Solución planteada:
IDENTIFICATION DIVISION. #division de identificacion PROGRAM-ID. CUADRADO-CUBO. #nombre o id del programa DATA DIVISION. #division de datos FILE SECTION. #seccion de archivos WORKING-STORAGE SECTION. #seccion de almacenamiento 01 ENTRADA PIC 9(4). #variable numerica de 4 digitos 01 ENTRADA-EDIT PIC ZZZ9. #variable de entrada con tres ceros 01 CUADRADO PIC ZZZZZZZZZZZZ9. #variable que almacenara el cuadrado 01 CUBO PIC ZZZZZZZZZZZZ9. #variable que almacenara el cubo PROCEDURE DIVISION. MAIN-PROCEDURE. PERFORM INICIO. PERFORM ACEPTA-NUMERO. PERFORM MUESTRA-RESULTADO. PERFORM OTRO-NUMERO WITH TEST AFTER UNTIL ENTRADA = 0. PERFORM FIN. INICIO. DISPLAY 'INTERODUCE UN NUMERO: '. ACEPTA-NUMERO. ACCEPT ENTRADA. MUESTRA-RESULTADO. COMPUTE CUADRADO = ENTRADA ** 2 MOVE ENTRADA TO ENTRADA-EDIT DISPLAY "EL CUADRADO DE " ENTRADA-EDIT ' ES : ' CUADRADO COMPUTE CUBO = ENTRADA ** 3 DISPLAY "EL CUBO DE " ENTRADA-EDIT ' ES : ' CUBO. DISPLAY 'INTRODUCE OTRO NUMERO O PULSA 0 PASA SALIR '. OTRO-NUMERO. PERFORM ACEPTA-NUMERO IF ENTRADA = 0 PERFORM FIN ELSE PERFORM MUESTRA-RESULTADO END-IF. FIN. DISPLAY 'FIN DE PROGRAMA' STOP RUN.


Figure 1. Cobol code - sybcodex.com

Referencias

Pixabay, (2020). Ilustración de este artículo. [Figure 1]. Recuperado de https://www.google.com/search?q=cobol+CODE

Redactor: sybcodex
Categoría: Tecnología informática
Título del artículo: El cuadrado y el cubo de un número en COBOL
©Todos los derechos reservados al autor.

Comentarios