¿Cómo calcular el pago de intereses de un usuario con COBOL?


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
©Todos los derechos reservados al autor.

Comentarios