Uso de vírgula em variável. Complexidade - Básica
1. Uso de vírgula em variável. Complexidade - Básica
BYBRITO
(usa Outra)
Enviado em 14/02/2024 - 22:47h
Pessoal,'Desenvolvi' o seguinte código em Cobol para um teste de utilização do IF e, sinceramente, estou enfrentando algumas dificuldades. Não sei se ao longo do tempo houve alguma mudança na definição de variáveis com vírgula no Cobol, ou se o valor da variável
WRK-AVERAGEque criei não está sendo reconhecido como um número válido, ou ainda o que exatamente está acontecendo. O código está exatamente conforme o apresentado no vídeo do site Alura, onde estou realizando meu curso, no entanto, não está me retornando os valores esperados dos IFs.
Não declarei na seção
ENVIRONMENT DIVISIONque o separador decimal é a vírgula, mas o professor também não o fez, e o código dele funcionou perfeitamente. Quando removo a formatação com vírgula da variável e a deixo sem, o código funciona corretamente. No entanto, ao tentar utilizar a vírgula como separador decimal, o código não funciona, indo direto para o último IF de reprovação. Por esse motivo, suspeito que o valor retornado pela variável não esteja correto, embora na impressão ele apareça corretamente, com a formatação adequada.
Estou precisando de ajuda. Não consigo encontrar notas de atualização do Cobol atualizadas para saber o que está obsoleto, o que mudou ou não na definição de variáveis. Qualquer ajuda seria muito bem-vinda.
(Fazendo a conta
IDENTIFICATION DIVISION.
PROGRAM-ID. PROGCOB07.
*************************************************
* AREA OF COMMENTS - REMARKS
* AUTHOR = JOAO ( BRITO ) JOAOVB
* OBJECTIVE: RECEIVE 02 GRADES, AVERAGE AND PRINT
* USE COMMANDS IF/ELSE/END-IF
* DATA = 14/01/2024
*************************************************
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 WRK-GRADE1 PIC 9(02) VALUE ZEROS.
77 WRK-GRADE2 PIC 9(02) VALUE ZEROS.
77 WRK-AVERAGE PIC 9(02)V9 VALUE ZEROS.
PROCEDURE DIVISION.
ACCEPT WRK-GRADE1.
ACCEPT WRK-GRADE2.
COMPUTE WRK-AVERAGE = (WRK-GRADE1 + WRK-GRADE2) / 2.
DISPLAY 'A MEDIA E DE.. 'WRK-AVERAGE.
IF WRK-AVERAGE >= 6
DISPLAY 'VOCE ESTA APROVADO'
ELSE
IF WRK-AVERAGE >= 2
DISPLAY 'VOCE FICOU DE RECUPERACAO'
ELSE
IF WRK-AVERAGE < 2
DISPLAY 'VOCE ESTA REPROVADO'
END-IF
END-IF.
STOP RUN.
Obs: Já tentei definir a variável como Z9,9 / Z9.9 / PIC9(02),9 / PIC9(02).9 E nenhuma dessas funciona, a formatação no console em algumas vem correta, mas dai o If não funciona, também já tentei definir os valores de if com 6.0 e 2.0 nos casos em que a formatação no console fica correta, e ainda assim, ele não me retorna o if correto.
Obs²: Sei que posso usar uma máscara para formatar o valor no console, mas usar o valor puro no if para ficar correto, mas como na vídeo aula não foi necessário o uso de variáveis com mascara de formatação, gostaria também de uma forma de não ser necessário o uso delas para deixar o código mais enxuto.
Obs²: Sei que posso usar uma máscara para formatar o valor no console, mas usar o valor puro no if para ficar correto, mas como na vídeo aula não foi necessário o uso de variáveis com mascara de formatação, gostaria também de uma forma de não ser necessário o uso delas para deixar o código mais enxuto.
A maior comunidade GNU/Linux da América Latina! Artigos, dicas, tutoriais, fórum, scripts e muito mais. Ideal para quem busca auto-ajuda.
Site hospedado por:
