UWSC辞典

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

結果

24
452
578