引数に指定した配列の最後の要素を取得します。配列arrayは要素一つ分だけ短くなります。
- 構文
- arrayPop( Var arr )
- 引数
- arr
- 配列。参照引数。
- 戻値
- 引数に指定した配列の最後の要素
プログラム
//////////////////////////////////////////////////
// 【引数】
// arr : 配列。参照引数。
// 【戻値】
// 引数に指定した配列の最後の要素
//////////////////////////////////////////////////
FUNCTION arrayPop(Var array[])
DIM n = UBound(array)
DIM res = array[n]
RESIZE(array, n-1)
RESULT = res
FEND
//////////////////////////////////////////////////
// 【引数】
// 配列 : 上限値を求める配列
// 【戻値】
// 配列の上限値
//////////////////////////////////////////////////
FUNCTION UBound(array[])
RESULT = RESIZE(array)
FENDプログラム実行例
配列に格納した数値の最後の要素を取り除く
DIM arr[3] = 24, 452, 578, 14
arrayPop(arr)
FOR item IN arr
PRINT item
NEXT- 結果
24 452 578
Was this post helpful?
この記事は役に立ちましたか？
