引数に指定した数値が偶数か奇数かを調べます。偶数ならTrue、奇数ならFalse、それ以外はERR_VALUE(-999999)を返します。
- 構文
- Boolean = isEven( 数値 )
- 引数
- 数値
- 整数
- 戻値
- True
- 偶数
- False
- 奇数
プログラム
//////////////////////////////////////////////////
// 【引数】
// 数値 : 整数
// 【戻値】
// True : 偶数、False : 奇数
//////////////////////////////////////////////////
FUNCTION isEven(n)
IFB n <> VARTYPE(n, VAR_INTEGER) THEN
RESULT = ERR_VALUE
EXIT
ENDIF
RESULT = IIF(n MOD 2 = 0, TRUE, FALSE)
FEND
//////////////////////////////////////////////////
// 【引数】
// expr : 評価する式
// truepart : 評価した式がTrueのときに返す値
// falsepart : 評価した式がFalseのときに返す値
// 【戻値】
// truepart : 評価した式がTrueのとき、falsepart : 評価した式がFalseのとき
//////////////////////////////////////////////////
FUNCTION IIF(expr, truepart, falsepart)
IFB EVAL(expr) THEN
RESULT = truepart
ELSE
RESULT = falsepart
ENDIF
FEND
解説
- 2-5行目
変数nが整数でなければ、エラー値を返して終了。IFB n <> VARTYPE(n, VAR_INTEGER) THEN RESULT = ERR_VALUE EXIT ENDIF
- 6行目
変数nを2で割った余りが0ならTRUE、そうでなければFALSEを返す。RESULT = IIF(n MOD 2 = 0, TRUE, FALSE)
この記事は役に立ちましたか?