主页 / coding / 问题 / 79583309
Accepted
Matthew James Kraai
Asked: 2025-04-20 19:35:13 +0800 CST

为什么 Accept 语句将小数点后一位改为 0？

  • 772

当我在 macOS 上使用 GnuCOBOL 3.2 构建以下程序并输入时10.5，为什么它会打印10.0？

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

类似地，如果我将 Picture 子句更改为PIC 9(3)V99并输入458.12，它会打印458.10。

cobol

1 个回答

  1. Best Answer

    图片字符V是隐含的小数点。因此，您的第一个示例隐含地替换了无效值MOVE。较长的版本也类似。10..

    您可以做的是使用ACCEPT更大的PIC X字段，然后MOVE FUNCTION NUMVAL (INP-FLD) TO x使用隐含的小数来正确定位它。这样做还有一个好处，就是您可以将符号与S图片字符一起使用，在您的变量示例中，这USAGE DISPLAY将对字符进行“过度打孔”以存储负值。

    • 1

相关问题