¿Cómo calcular impuestos en Cobol? - Tecnología informática

Según este caso 3, se requiere realizar o programar un programa en Cobol (En un entorno Mainframe) que tenga los siguientes variable de entrada:

Para almacenar el código de entrada se usara la variable llamada ENTRADA.

Para almacenar el impuesto total recaudado se usara la variable llamada IMPUESTOS.

La funcionalidad del programa consiste en que el usuario ingresara un valor diferente de 0 para iniciar el cálculo de impuesto.

Luego debe ingresar la cantidad de ingresos anuales, si la cantidad de ingresos anuales es mayor a 100000 soles; se multiplicará el impuesto por 10 % de  interés, para luego dividirlo entre 100.

El cálculo obtenido será mostrado por el programa, si no excede la cantidad de ingresos anuales, le saldrá el siguiente mensaje «No tiene que pagar impuestos», para terminar la ejecución del programa el usuario debe presionar 0.

Solución planteada:

IDENTIFICATION DIVISION.

PROGRAM-ID. CAL-TAX.

DATA DIVISION.

FILE SECTION.

WORKING-STORAGE SECTION.

01 ENTRADA PIC 9(9)V99.

01 IMPUESTOS PIC ZZZZZZZZZ9.99.

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 TUS INGRESOS ANUALES: '.

ACEPTA-NUMERO.

ACCEPT ENTRADA.

MUESTRA-RESULTADO.

IF ENTRADA > 100000

COMPUTE IMPUESTOS = (ENTRADA * 10) / 100

DISPLAY "ESTE AÑO TIENES QUE PAGAR : " IMPUESTOS

ELSE

DISPLAY 'NO TIENES QUE PAGAR IMPUESTOS '

END-IF

DISPLAY 'INTRODUCE OTRO INGRESO 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. Calculo de impuesto con Cobol - sybcodex.com

Referencias

Google (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: Cálculo de impuesto con Cobol

©Todos los derechos reservados al autor.