Solucionado (ver solução)
Solucionado
(ver solução)
1
resposta

TIMES

       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

Não consigo chegar no valor de 583,20

1 resposta
solução!

Sthepanie,

Se voce indica que serão 02 meses, então na calculadora voce tem que fazer 500 * 1.08 (1 mes) e depois * 1.08 (2 mes). Ai voce tera os 583. O perform Times irá fazer a mesma conta - wrk-valor * 1,08 (que da 540) e no segundo giro o valor 540 * 1,08. (583).

Ivan

Quer mergulhar em tecnologia e aprendizagem?

Receba a newsletter que o nosso CEO escreve pessoalmente, com insights do mercado de trabalho, ciência e desenvolvimento de software