「COBOL ステートメント - EVALUATE」の版間の差分
ナビゲーションに移動
検索に移動
(同じ利用者による、間の1版が非表示) | |||
1行目: | 1行目: | ||
− | ==COBOL ステートメント - EVALUATE== | + | ==[[COBOL ステートメント - EVALUATE]]== |
− | + | [[COBOL]] | | |
− | {{include_html banner_html, "!ads"}} | + | {{include_html [[banner_html]], "!ads"}} |
一連のネストされたIF ステートメントの省略表現を提供。このステートメントは、複数の条件を評価することができる。 | 一連のネストされたIF ステートメントの省略表現を提供。このステートメントは、複数の条件を評価することができる。 | ||
12行目: | 12行目: | ||
WHEN "3" | WHEN "3" | ||
MOVE 3 TO B | MOVE 3 TO B | ||
− | WHEN | + | WHEN OTHE[[R]] |
MOVE 0 TO B | MOVE 0 TO B | ||
END-EVALUATE. | END-EVALUATE. | ||
18行目: | 18行目: | ||
=====式の真偽を判定===== | =====式の真偽を判定===== | ||
EVALUATE A > B | EVALUATE A > B | ||
− | WHEN | + | WHEN T[[R]]UE |
MOVE 1 TO X | MOVE 1 TO X | ||
WHEN FALSE | WHEN FALSE | ||
25行目: | 25行目: | ||
=====条件の真偽を判定===== | =====条件の真偽を判定===== | ||
− | EVALUATE | + | EVALUATE T[[R]]UE |
WHEN A > B | WHEN A > B | ||
MOVE 1 TO X | MOVE 1 TO X | ||
36行目: | 36行目: | ||
=====値の範囲を判定===== | =====値の範囲を判定===== | ||
EVALUATE TOKUTEN | EVALUATE TOKUTEN | ||
− | WHEN 80 | + | WHEN 80 TH[[R]]OUGH 100 |
− | MOVE "A" TO | + | MOVE "A" TO G[[R]]ADE |
− | WHEN 60 | + | WHEN 60 TH[[R]]OUGH 79 |
− | MOVE "B" TO | + | MOVE "B" TO G[[R]]ADE |
− | WHEN 50 | + | WHEN 50 TH[[R]]OUGH 59 |
− | MOVE "C" TO | + | MOVE "C" TO G[[R]]ADE |
− | WHEN | + | WHEN OTHE[[R]] |
− | MOVE "D" TO | + | MOVE "D" TO G[[R]]ADE |
END-EVALUATE | END-EVALUATE | ||
− | {{include_html banner_html, "!COBOL"}} | + | {{include_html [[banner_html]], "!COBOL"}} |
2020年2月16日 (日) 04:23時点における最新版
COBOL ステートメント - EVALUATE
COBOL | {{include_html banner_html, "!ads"}} 一連のネストされたIF ステートメントの省略表現を提供。このステートメントは、複数の条件を評価することができる。
複数の条件を選択
EVALUATE A WHEN "1" MOVE 1 TO B WHEN "2" MOVE 2 TO B WHEN "3" MOVE 3 TO B WHEN OTHER MOVE 0 TO B END-EVALUATE.
式の真偽を判定
EVALUATE A > B WHEN TRUE MOVE 1 TO X WHEN FALSE MOVE -1 TO X END-EVALUATE.
条件の真偽を判定
EVALUATE TRUE WHEN A > B MOVE 1 TO X WHEN A < B MOVE -1 TO X WHEN A = B MOVE 0 TO X END-EVALUEATE.
値の範囲を判定
EVALUATE TOKUTEN WHEN 80 THROUGH 100 MOVE "A" TO GRADE WHEN 60 THROUGH 79 MOVE "B" TO GRADE WHEN 50 THROUGH 59 MOVE "C" TO GRADE WHEN OTHER MOVE "D" TO GRADE END-EVALUATE
{{include_html banner_html, "!COBOL"}}
© 2006 矢木浩人