ようこそ ゲスト さん、新規登録（無料）して気になる疑問を解決しませんか？
はじめての方へ｜ヘルプ｜FAQ
スポンサーサイト（詳細）

質問
QNo.3945673 ＣＯＢＯＬプログラム
質問者：coldplay 次のプログラムがわかりません。。。

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

特にAFTER以降がどういう処理なのかがサッパリです。
よろしくお願いします。
困り度：
  • すぐに回答を！
質問投稿日時：
08/04/13 16:01
この質問に対する回答は締め切られました。
最新から表示｜回答順に表示｜良回答のみ表示

回答
ANo.2 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
回答者：Bickyon
種類：アドバイス
どんな人：経験者
自信：参考意見
回答日時：
08/04/15 06:51
この回答へのお礼なるほど！よくわかりました。
ありがとうございました！

回答良回答20pt
ANo.1 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重ループの処理になっています。
回答者：Bickyon
種類：回答
どんな人：経験者
自信：参考意見
回答日時：
08/04/13 17:54
この回答へのお礼回答ありがとうございます！
助かりました！
重ねて質問ですが、3重ループにしようと思ったら
またAFTER〜とすればいいのでしょうか？
 
最新から表示｜回答順に表示｜良回答のみ表示
スポンサーサイト（詳細）
このページのトップへ