オフコン練習帳

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

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

ＷＨＥＮ　０　の時の取り扱いがまずいので、訂正です。
まだまだヘンかも。。。
適当に直して下さい。


*
PERFORM UNTIL END-STATUS = "P9"
           OR FOCUS-POSITON > FOCUS-POSITION-MAX
*
  EVALUATE FOCUS-POSITION
    WHEN 1
          ACCEPT ACEP-A-ACP
          EVALUATE END-STATUS
            WHEN "09"
                SUBTRACT 1 FROM FOCUS-POSITION
            WHEN OTHER
                DISPLAY ACEP-A-DSP
                ADD 1 TO FOCUS-POSITON
          END-EVALUATE
    WHEN 2
          ACCEPT ACEP-B-ACP
          EVALUATE END-STATUS
            WHEN "09"
                SUBTRACT 1 FROM FOCUS-POSITION
            WHEN OTHER
                DISPLAY ACEP-B-DSP
                ADD 1 TO FOCUS-POSITON
          END-EVALUATE
    WHEN OTHER
          CONTINUE
  END-EVALUATE
*
  IF FOCUS-POSITION = 0
    THEN MOVE 1 TO FOCUS-POSITION
  END-IF
*
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