删除算法; Var i,k : 整数; T[1..n]:整数; Start for i 从 k 到 n-1 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.长度; for i 从 k 到 n-1 faire L.T[i] := L.T[i+1]; finfaire 长度:= n-1; Fin |
Please disable your ad blocker and refresh the window to use this website.