¿Cómo calcular el pago de intereses de un usuario con COBOL? - Tecnología informática

Caso 2.

Se requiere realizar un programa en COBOL que tenga los siguientes datos de entrada: 

1. Ingresos del usuario con la variable USER-INCOME.
2. Años del usuario con la variable USER-YEARS.
3. Intereses del usuario con la variable USER-INTEREST.
4. Porcentaje de interés con la variable INTEREST-PERCENT.
5. Formato de interés con NTEREST-FORMAT (usar Z).
6. Código de salida EXIT-CODE.

El programa debe calcular los intereses que gana un usuario cualquiera, al finalizar el proceso se debe ingresar cero 0 para finalizar el programa o cualquier valor para continuar.

Solución planteada:

IDENTIFICATION DIVISION.

PROGRAM-ID. INTEREST.

DATA DIVISION.

FILE SECTION.

WORKING-STORAGE SECTION.

    01 USER.

    02 USER-INCOME PIC 9(7) VALUES ZEROES.

    02 USER-YEARS PIC 9(2) VALUES ZEROES.

    02 USER-INTEREST PIC 9(10) VALUES ZEROES.

    77 INTEREST-PERCENT PIC 9(2) VALUES 8.

    77 INTEREST-FORMAT PIC ZZZZZZZZZZ.

    77 EXIT-CODE PIC X(1).

PROCEDURE DIVISION.

MAIN-PROCEDURE.

    PERFORM WITH TEST AFTER

    UNTIL EXIT-CODE = 0

    PERFORM 100-ACCEPT-INCOME-PROC

    PERFORM 101-ACCEPT-TIME-PROC

    PERFORM 200-DISPLAY-PROC

    PERFORM 300-WAIT-UNTIL-PROC

    END-PERFORM

STOP RUN.

100-ACCEPT-INCOME-PROC.

    DISPLAY "Please enter your income: (7 digits max)"

    ACCEPT USER-INCOME.

    DISPLAY "The number used will be " USER-INCOME.

101-ACCEPT-TIME-PROC.

    DISPLAY "Please enter the time left: (2 digits max)"

    ACCEPT USER-YEARS.

    DISPLAY "The number used will be " USER-YEARS.

200-DISPLAY-PROC.

    COMPUTE USER-INTEREST = USER-INCOME * INTEREST-PERCENT.

    COMPUTE USER-INTEREST = USER-INTEREST * USER-YEARS.

    COMPUTE USER-INTEREST = USER-INTEREST / 100.

    MOVE USER-INTEREST TO INTEREST-FORMAT;

    DISPLAY "Your interest will be : " INTEREST-FORMAT.

300-WAIT-UNTIL-PROC.

    DISPLAY "Please enter 0 to exit or anything to continue"

    ACCEPT EXIT-CODE.

END PROGRAM INTEREST.

Figure 1. Calculo del pago de interés con COBOL - 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: Calculo del pago de interés con COBOL

Tienda online: 👉 Bookshop

©Todos los derechos reservados al autor.