IDENTIFICATION DIVISION.
PROGRAM-ID. PROGCOBEX04.
* ******************************
* ÁREA DE COMENTÁRIOS - REMARKS
* AUTHOR = JULIANA
* OBJETIVO: DEFINIR QUANTIDADE DE NOTAS
* DATA = 02/09/2021
* ******************************
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SPECIAL-NAMES.
DECIMAL-POINT IS COMMA.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 WRK-VALORSAQUE PIC 9(06) VALUE ZEROS.
77 WRK-VALOR PIC 9(06) VALUE ZEROS.
77 WRK-CONTADOR50 PIC 9(06) VALUE 0.
77 WRK-CONTADOR10 PIC 9(06) VALUE 0.
77 WRK-CONTADOR5 PIC 9(06) VALUE 0.
77 WRK-CONTADOR1 PIC 9(06) VALUE 0.
PROCEDURE DIVISION.
0001-PRINCIPAL.
PERFORM 0100-INICIALIZAR.
PERFORM 0200-PROCESSAR.
PERFORM 0300-FINALIZAR.
STOP RUN.
0100-INICIALIZAR.
DISPLAY ' NOTAS DISPONIVEIS PARA SAQUE:'.
DISPLAY 'R$50,00 - R$10,00 - R$5,00 - R$1,00 '.
MOVE 75 TO WRK-VALORSAQUE .
DISPLAY 'DIGITE O VALOR DO SAQUE ' WRK-VALORSAQUE.
0200-PROCESSAR.
PERFORM UNTIL WRK-VALOR EQUAL WRK-VALORSAQUE
IF WRK-VALORSAQUE >= 50
ADD 1 TO WRK-CONTADOR50
COMPUTE WRK-VALORSAQUE = WRK-VALORSAQUE - 50
* DISPLAY 'QUANTIDADE NOTAS R$ 50,00...' WRK-CONTADOR50
END-IF
IF WRK-VALORSAQUE >= 10
ADD 1 TO WRK-CONTADOR10
COMPUTE WRK-VALORSAQUE = WRK-VALORSAQUE - 10
* DISPLAY 'QUANTIDADE NOTAS R$ 10,00...' WRK-CONTADOR10
END-IF
IF WRK-VALORSAQUE >= 5
ADD 1 TO WRK-CONTADOR5
COMPUTE WRK-VALORSAQUE = WRK-VALORSAQUE - 5
* DISPLAY 'QUANTIDADE NOTAS R$ 10,00...' WRK-CONTADOR5
END-IF
IF WRK-VALORSAQUE >= 1
ADD 1 TO WRK-CONTADOR1
COMPUTE WRK-VALORSAQUE = WRK-VALORSAQUE - 1
* DISPLAY 'QUANTIDADE NOTAS R$ 10,00...' WRK-CONTADOR1
END-IF
END-PERFORM.
0300-FINALIZAR.
DISPLAY'----------------------'.
DISPLAY 'QUANTIDADE NOTAS R$ 50,00...' WRK-CONTADOR50.
DISPLAY 'QUANTIDADE NOTAS R$ 10,00...' WRK-CONTADOR10.
DISPLAY 'QUANTIDADE NOTAS R$ 5,00...' WRK-CONTADOR5.
DISPLAY 'QUANTIDADE NOTAS R$ 1,00...' WRK-CONTADOR1.