プロが教えるわが家の防犯対策術!

次のプログラムがわかりません。。。

PERFORM  CLEAR-SEC
  VARYING  S1
    FROM  1  BY  3
      UNTIL  S1  >  4
  AFTER   S2
    FROM  1  BY  5
      UNTIL  S2  >  30

特にAFTER以降がどういう処理なのかがサッパリです。
よろしくお願いします。

A 回答 (2件)

S1が1で、S2が1、6、11、16、21、25、31とCLEAR-SECを繰り返す。


S1が4で、S2が1、6、11、16、21、25、31とCLEAR-SECを繰り返す。

という流れになるかと思います。
2重ループの処理になっています。
    • good
    • 0
この回答へのお礼

回答ありがとうございます!
助かりました!
重ねて質問ですが、3重ループにしようと思ったら
またAFTER~とすればいいのでしょうか?

お礼日時:2008/04/14 23:58

3重ループは構文には無かったと思いますので、


PERFORM VARYINGを入れ子の構造にすることが必要だと思います。

PERFORM VARYING S1 FROM 1 BY 3 UNTIL S1 > 4
 PERFORM VARYING S2 FROM 1 BY 5 UNTIL S2 > 30
  PERFORM VARYING S3 FROM x BY y UNTIL S3 > z
   PERFORM CLEAR-SEC
  END PERFORM
 END PERFORM
END PERFORM
    • good
    • 0
この回答へのお礼

なるほど!よくわかりました。
ありがとうございました!

お礼日時:2008/04/15 23:11

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!