¿Cómo sacar el cuadrado y el cubo de un número en COBOL? - Tecnología informática

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
Tienda online: 👉 Bookshop
©Todos los derechos reservados al autor.