IDENTIFICATION DIVISION.
PROGRAM-ID. PROGCOB02.
**************************************
* AREA DE COMENTARIOS - REMARKS
* AUTHOR = STEPHANIE
* DATA: 02/04/2021
*************************************
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SPECIAL-NAMES.
DECIMAL-POINT IS COMMA.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 WRK-VALOR PIC 9(06)V99 VALUE ZEROS.
77 WRK-MESES PIC 9(03) VALUE ZEROS.
77 WRK-TAXAMES PIC 9(02) VALUE ZEROS.
77 WRK-VALOR-ED PIC ZZZ.ZZ9,99 VALUE ZEROS.
PROCEDURE DIVISION.
0001-PRINCIPAL.
PERFORM 0100-INICIALIZAR.
PERFORM 0200-PROCESSAR
PERFORM 0300-FINALIZAR.
0100-INICIALIZAR.
DISPLAY 'VALOR INVESTIDO '.
ACCEPT WRK-VALOR.
DISPLAY 'MESES DE APLICACAO '
ACCEPT WRK-MESES.
DISPLAY 'TAXA MENSAL '
ACCEPT WRK-TAXAMES.
0200-PROCESSAR.
PERFORM WRK-MESES TIMES
COMPUTE WRK-VALOR = WRK-VALOR * (WRK-TAXAMES / 100 + 1 )
END-PERFORM.
0300-FINALIZAR.
MOVE WRK-VALOR TO WRK-VALOR-ED
DISPLAY 'VALOR CORRIGIDO ' WRK-VALOR-ED.
STOP RUN.
Não entendi a função do TIMES nesta questão e o resultado da conta também não entendi
Os valores que estou colocando são: VALOR INVESTIDO 500 MESES DE APLICACAO 2 TAXA MENSAL 8 VALOR CORRIGIDO 583,20
Na calculadora eu faço desta forma: 8/100 +1 = 1,08 1,08 * 500 = 540
