arrayPop

引数に指定した配列の最後の要素を取得します。配列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

//////////////////////////////////////////////////
// 【引数】
//   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
  1. arrayPop
結果
24
452
578