isEven

引数に指定した数値が偶数か奇数かを調べます。偶数ならTrue、奇数ならFalse、それ以外はERR_VALUE(-999999)を返します。

構文
  1. 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