Início / coding / Perguntas / 79583309
Accepted
Matthew James Kraai
Asked: 2025-04-20 19:35:13 +0800 CST

Por que a instrução Accept altera a casa decimal menos significativa para 0?

  • 772

Quando eu crio o programa a seguir com o GnuCOBOL 3.2 no macOS e digito 10.5, por que ele imprime 10.0?

       program-id. foo.
       data division.
       working-storage section.
       77  x   pic 99v9.
       procedure division.
           accept x.
           display x.
           stop run.

Da mesma forma, se eu alterar a cláusula Picture para PIC 9(3)V99e inserir 458.12, ele imprime 458.10.

cobol

1 respostas

  1. Best Answer

    O caractere de imagem Vé um ponto decimal implícito. Portanto, seu primeiro exemplo faz um implícito MOVEde 10.O inválido .é substituído. O mesmo vale para a variante mais longa.

    O que você pode fazer é criar um campo ACCEPTmaior e, em seguida, usar o decimal implícito para posicioná-lo corretamente. Isso também tem a vantagem de poder usar um sinal junto com o caractere de imagem, o que, no seu exemplo de variável, fará um "overpunch" de um caractere para armazenar valores negativos.PIC XMOVE FUNCTION NUMVAL (INP-FLD) TO xSUSAGE DISPLAY

    • 1

relate perguntas