エラーが発生する理由がわからないこれが私の最初のCOBOLプログラムである理由

悪意のある

私はゆっくりとCOBOLを学び、改善するためにいくつかの課題に取り組んでいますが、追跡できないような奇妙な問題があり、他の誰かが助けてくれるかどうかを確認したいと思いました

エリアAとBにあるはずの場所を、適切な列番号で2回および3回チェックしました。

IDENTIFICATION DIVISION.
    PROGRAM-ID. CIRCLES.

    ENVIRONMENT DIVISION.
    CONFIGURATION SECTION.
    SOURCE-COMPUTER.
    OBJECT-COMPUTER.

    INPUT-OUTPUT SECTION.
    FILE-CONTROL.


    DATA DIVISION.
    FILE SECTION.

    WORKING-STORAGE SECTION.
    01  WS-CONSTANTS.
        05  WS-PI              PIC 9V99999 VALUE 3.14159.
    01   WS-CIRCLE.
        05 WS-AREA              PIC 999V99 VALUE ZEROES.
        05 WS-RADIUS            PIC 9999V99 VALUE ZEROES.
        05 WS-CIRCUMFERENCE     PIC 99999V99 VALUE ZEROES.
    01   WS-DISPLAY-VALUES.
        05 WS-DISPLAY-AREA                     PIC ZZ99.99.
        05 WS-DISPLAY-CIRCUMFERENCE  PIC ZZ99.99.



    PROCEDURE DIVISION.

    0100-PROCESS-RECORDS.

        DISPLAY "Please enter radius of circle: ".
        ACCEPT WS-RADIUS.
        COMPUTE WS-CIRCUMFRENCE = 2 * WS-PI * WS-RADIUS.
        MOVE WS-CIRCUMFRENCE TO WS-DISPLAY-CIRCUMFRENCE.
        DISPLAY "Circle Circumfrence is: ", WS-DISPLAY-CIRCUMFRENCE.
        COMPUTE WS-RADIUS = WS-PI * WS-RADIUS * WS-RADIUS.
        MOVE WS-AREA TO WS-DISPLAY-AREA.
        DISPLAY "Circle area is:  ", WS-DISPLAY-AREA

        STOP RUN

コンパイラメッセージ:

Circles.cbl:28: error: PROCEDURE DIVISION header missing
Circles.cbl:28: error: syntax error, unexpected level-number
Circles.cbl:29: error: unknown statement '05'
Circles.cbl:30: error: unknown statement '05'
Circles.cbl:34: error: syntax error, unexpected PROCEDURE
Circles.cbl: in paragraph '0100-PROCESS-RECORDS':
Circles.cbl:40: error: 'WS-RADIUS' is not defined
Circles.cbl:41: error: 'WS-CIRCUMFRENCE' is not defined
Circles.cbl:41: error: 'WS-PI' is not defined
Circles.cbl:41: error: 'WS-RADIUS' is not defined
Circles.cbl:42: error: 'WS-CIRCUMFRENCE' is not defined
Circles.cbl:42: error: 'WS-DISPLAY-CIRCUMFRENCE' is not defined
Circles.cbl:43: error: 'WS-DISPLAY-CIRCUM' is not defined
Circles.cbl:44: error: 'WS-RADIUS' is not defined
Circles.cbl:44: error: 'WS-PI' is not defined
Circles.cbl:44: error: 'WS-RADIUS' is not defined
Circles.cbl:44: error: 'WS-RADIUS' is not defined
Circles.cbl:45: error: 'WS-AREA' is not defined
Circles.cbl:45: error: 'WS-DISPLAY-AREA' is not defined
Circles.cbl:46: error: 'WS-DISPLAY-AREA' is not defined
サイモンソビッシュ

プログラムをオンラインコンパイラ(ここではコード+結果)に入れた後、2つの問題が見られました:

  • タイプミス:WS-CIRCUMFRENCE->WS-CIRCUMFENCE
  • 最後に区切り文字ピリオドがありません

フリーフォーマットを使用していないようですが、列ベースのオプションを削除しました(-freeこのプロジェクトから、上記で指定した問題を修正し、最小限のインデントを追加しました結果:チャームのように機能します。

考えられる問題について考えましたが、考えられるのはDECIMAL-POINT IS COMMA-の追加仕様だけでしたが、それはerror: invalid level number '14159'、または悪いインデントを引き起こします(これはおそらく見られるでしょう)。あなたは可能(実際のサイズは、コンパイラが使用する[ほとんどのコンパイラは、デフォルトでは8つのスペースのサイズを使用して何エディタショーと何の間で異なる場合があります)あなたはタブでインデントをしないことを再確認したいです。

この記事はインターネットから収集されたものであり、転載の際にはソースを示してください。

侵害の場合は、連絡してください[email protected]

編集
0

コメントを追加

0

関連記事

分類Dev

intellijのすべてのプログラムでクラスが見つからないというエラーが発生する理由

分類Dev

プログラミングが初めてで、実行時エラーが発生する理由がわからない

分類Dev

これが私のインラインブロック要素に発生する理由がわかりません

分類Dev

この「Addressof」エラーが発生する理由がわかりませんか?

分類Dev

レルムの移行中にこのエラーが発生するのはなぜですか?: 'RLMException'、理由: 'プロパティの値が無効です'

分類Dev

このエラーが発生する理由がわかりません

分類Dev

スレッド「main」でこのエラー例外が発生する理由がわからないjava.lang.ArrayIndexOutOfBoundsException:0

分類Dev

配列プログラムでこのスタックスマッシングエラーが発生する理由は何ですか?

分類Dev

以下のコードで構文エラーが発生する理由がわかりません。誰も私を助けることができますか?

分類Dev

Haskellコードでこのエラーが発生する理由

分類Dev

私のプログラムがそのように実行されている理由がわかりません

分類Dev

プログラムでこの関数を使用する必要がありますが、何らかの理由で出力がフリーズしています

分類Dev

MySqlの完全結合でこのエラーが発生する理由がわかりません

分類Dev

このコードでEOFエラーが発生する理由がわかりません

分類Dev

Railsでのフォーム送信が機能しない、ルーティング/パスエラーの可能性がある理由がわからない?

分類Dev

エラーが発生する理由は何ですか:「クラスMyBeanの不明なプロパティ ''」?

分類Dev

ts-jestとsequelizeでこのエラーが発生する理由がわかりません

分類Dev

これらのエラーが発生する理由-一致する `) 'を探しているときに予期しないEOFが発生する

分類Dev

このc ++プログラムの出力が3である理由

分類Dev

単純なangularjsプログラムでこのエラーが発生するのはなぜですか?

分類Dev

このプログラムを実行するとエラーが発生するのはなぜですか

分類Dev

このリンクリストプログラムでこのセグメンテーション違反が発生する理由は何ですか?

分類Dev

このRubyon Railsプログラムで構文エラーが発生するのはなぜですか?

分類Dev

タイプでこのエラーが発生する理由を誰かが説明できますか?

分類Dev

MediaplayerAndroidアプリでこのエラー「java.lang.IllegalStateException」が発生する理由

分類Dev

プログラムが途中でクラッシュする理由がわからない

分類Dev

何らかの理由で、プログラムのJlabelを動的に変更すると、大量のエラーがスパムされますが、クラッシュは発生しません。

分類Dev

Pythonが応答しない理由「Windowsはプログラムの復元を試みることができます。プログラムを復元または閉じると、情報が失われる可能性があります。」

分類Dev

このAttributeErrorがforループで発生する理由がわかりません

Related 関連記事

  1. 1

    intellijのすべてのプログラムでクラスが見つからないというエラーが発生する理由

  2. 2

    プログラミングが初めてで、実行時エラーが発生する理由がわからない

  3. 3

    これが私のインラインブロック要素に発生する理由がわかりません

  4. 4

    この「Addressof」エラーが発生する理由がわかりませんか?

  5. 5

    レルムの移行中にこのエラーが発生するのはなぜですか?: 'RLMException'、理由: 'プロパティの値が無効です'

  6. 6

    このエラーが発生する理由がわかりません

  7. 7

    スレッド「main」でこのエラー例外が発生する理由がわからないjava.lang.ArrayIndexOutOfBoundsException:0

  8. 8

    配列プログラムでこのスタックスマッシングエラーが発生する理由は何ですか?

  9. 9

    以下のコードで構文エラーが発生する理由がわかりません。誰も私を助けることができますか?

  10. 10

    Haskellコードでこのエラーが発生する理由

  11. 11

    私のプログラムがそのように実行されている理由がわかりません

  12. 12

    プログラムでこの関数を使用する必要がありますが、何らかの理由で出力がフリーズしています

  13. 13

    MySqlの完全結合でこのエラーが発生する理由がわかりません

  14. 14

    このコードでEOFエラーが発生する理由がわかりません

  15. 15

    Railsでのフォーム送信が機能しない、ルーティング/パスエラーの可能性がある理由がわからない?

  16. 16

    エラーが発生する理由は何ですか:「クラスMyBeanの不明なプロパティ ''」?

  17. 17

    ts-jestとsequelizeでこのエラーが発生する理由がわかりません

  18. 18

    これらのエラーが発生する理由-一致する `) 'を探しているときに予期しないEOFが発生する

  19. 19

    このc ++プログラムの出力が3である理由

  20. 20

    単純なangularjsプログラムでこのエラーが発生するのはなぜですか?

  21. 21

    このプログラムを実行するとエラーが発生するのはなぜですか

  22. 22

    このリンクリストプログラムでこのセグメンテーション違反が発生する理由は何ですか?

  23. 23

    このRubyon Railsプログラムで構文エラーが発生するのはなぜですか?

  24. 24

    タイプでこのエラーが発生する理由を誰かが説明できますか?

  25. 25

    MediaplayerAndroidアプリでこのエラー「java.lang.IllegalStateException」が発生する理由

  26. 26

    プログラムが途中でクラッシュする理由がわからない

  27. 27

    何らかの理由で、プログラムのJlabelを動的に変更すると、大量のエラーがスパムされますが、クラッシュは発生しません。

  28. 28

    Pythonが応答しない理由「Windowsはプログラムの復元を試みることができます。プログラムを復元または閉じると、情報が失われる可能性があります。」

  29. 29

    このAttributeErrorがforループで発生する理由がわかりません

ホットタグ

アーカイブ