オフコン練習帳

3 Re:（再投稿）構造化プログラミングの方法

ＥＸＣＨＡＮＧＥ 2004-8-20 3:40 [返信] [編集]

☆　バッチ処理プログラムでは、専ら「構造化」で書くのですが、入力系（会話型）では、ＧＯＴＯをつかっていますので、あまりいい考えは浮かばないのですが。。

例えば、次のような考え方はダメでしょうか。。


　MOVE 1  TO CUR-POSITION
  MOVE 2  TO CUR-POSITION-MAX
  MOVE SPACE  TO END-STATUS
*
  PERFORM  UNTIL END-STATUS = "P9"
              OR CUR-POSITON > CUR-POSITION-MAX
    EVALUATE  CUR-POSITION
      WHEN 0
      WHEN 1
             ACCEPT   ACEP-A-ACP
             EVALUATE END-STATUS 
               WHEN "09"
                    SUBTRACT 1  FROM CUR-POSITION
               WHEN OTHER
                    DISPLAY ACEP-A-DSP
                    ADD 1       TO   CUR-POSITON
             END-EVALUATE
      WHEN 2
             ACCEPT  ACEP-B-ACP 
             EVALUATE END-STATUS 
               WHEN "09"
                    SUBTRACT 1  FROM CUR-POSITION
               WHEN OTHER
                    DISPLAY ACEP-B-DSP
                    ADD 1       TO   CUR-POSITON
             END-EVALUATE
      WHEN OTHER
             CONTINUE
    END-EVALUATE
  END-PERFORM.

構造化プログラミングの方法江須扇 2004-8-19 14:00

（再投稿）構造化プログラミングの方法江須扇 2004-8-19 14:18

Re:（再投稿）構造化プログラミングの方... ＥＸＣＨＡＮＧＥ 2004-8-20 3:40 ←いまここ～

Re:（再投稿）構造化プログラミングの方... ＥＸＣＨＡＮＧＥ 2004-8-20 11:39

もう少しだけ直しました。ＥＸＣＨＡＮＧＥ 2004-8-20 13:09

Re:もう少しだけ直しました（その２）ＥＸＣＨＡＮＧＥ 2004-8-21 12:20

Re:もう少しだけ直しました（その２）江須扇 2004-8-22 12:53

Re:もう少しだけ直しました（その２）ＥＸＣＨＡＮＧＥ 2004-8-22 13:50

Re:もう少しだけ直しました（その２）江須扇 2004-8-24 15:34