主页 / coding / 问题

问题[cobol](coding)

Martin Hope
Matthew James Kraai
Asked: 2025-04-20 19:35:13 +0800 CST
  • 5

当我在 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
Martin Hope
Gerelmaa Sergelen
Asked: 2024-08-21 16:37:45 +0800 CST
  • 5

我使用 cobol 85 创建一个输入 10 位数字的程序，如果用户输入“END”，程序就会结束。但我似乎无法使用 DISPLAY AT“position”清除屏幕。有什么建议吗？谢谢。这是源代码：

       IDENTIFICATION DIVISION.
       PROGRAM-ID. INPUT-ASSIGMENT.
      ******************************************************************
       DATA DIVISION.
       WORKING-STORAGE SECTION.
      ******************************************************************
           01  A.
               03  A1 OCCURS 10 TIMES PIC X(3). 
           01  I                  PIC 9(3).
           01  J                  PIC 9(3).
           01  KETA               PIC 9(4).
           01  DT-IN              PIC X(3).
      ******************************************************************
       PROCEDURE DIVISION.
           PERFORM MAIN-SYORI.
           STOP RUN.
      ******************************************************************
       MAIN-SYORI SECTION.
           PERFORM INITIALIZE-RTN.
           PERFORM TAMEKOMI-SYORI.
           PERFORM TORIDASHI-SYORI.
      ******************************************************************
       INITIALIZE-RTN SECTION.
           DISPLAY SPACE. 
           MOVE 1 TO I.    
           MOVE 1 TO J.
      ******************************************************************
       TAMEKOMI-SYORI SECTION.
           PERFORM UNTIL I > 10 OR DT-IN = "END"
               DISPLAY "3文字を入力してください:" 
               ACCEPT DT-IN
               IF DT-IN NOT = "END"
                   MOVE DT-IN TO A1(I)
                   ADD 1 TO I
               END-IF
           END-PERFORM.
      ******************************************************************
       TORIDASHI-SYORI SECTION.
           DISPLAY SPACE.   
           PERFORM VARYING J FROM 1 BY 1 UNTIL J > I - 1 
               DISPLAY A1(J)
           END-PERFORM.     
           DISPLAY "プログラムは終了しました.".
      ******************************************************************
       END PROGRAM INPUT-ASSIGMENT.
cobol
Martin Hope
Ahmed SEDDIK
Asked: 2023-09-26 22:35:03 +0800 CST
  • 5

我正在做一个简单的 PERFORM VARYING WS-IND FROM 1 BY 1

下面是我的代码：

       PERFORM VARYING WS-INDICE FROM 1 BY 1
       UNTIL WS-INDICE > 9
       OR TEST-OBJEC(WS-INDICE) = SPACES
           MOVE TEST-OBJEC(WS-INDICE) TO WS-VAL-OBJEC(WS-INDICE)
           MOVE TEST-DATE(WS-INDICE)  TO WS-DAT-OBJEC(WS-INDICE)
       END-PERFORM

索引声明如下：

01  WS-INDICE PIC 9(01).

下面是我的数组的声明

          10        TEST-GROUP
                           OCCURS 009.
           15       TEST-OBJEC  PICTURE X(01).
           15       TEST-DATE   PICTURE X(8).
          10        FILLER PICTURE X(56).

我的问题是 WS-INDICE 直到 9 才到达并从 0 重新启动。

cobol