削除アルゴリズム; 変数 i,k : 整数; T [1..n]:整数。 Start k から n-1 までの i の場合 faire T[i] := T[i+1]; finfaire n := n-1; End |
プロシージャdelete(L:list,k:1..lmax) var i,n:1..lmax; Start n := L.長さ; k から n-1 までの i の場合 faire L.T[i] := L.T[i+1]; finfaire L.長さ:= n-1; Fin |
Please disable your ad blocker and refresh the window to use this website.