第2章算法案.docVIP

2.1 设线性表存于a[1..arrsize]的前elenum个分量中, 且递增有序. 试写一算法,将x插入到线性表的适当位置, 以保持线性表的有序性。 设计思想： (1) 先查找 x 的插入位置 i ； (2) 将线性表中自A[i]至A[elenum]的元素后移一个位置； (3) 最后将x查入到A[i]中， 并且将表长加1。 算法： proc ds0201(var a:array[1..size] of integer; var elenum:integer; x:integer); if elenum=size then error(array overflow) else [ i:=elenum; while (i=1) cand (xa[i]) do [a[i+1]:=a[i]; i:=i-1 ]; {查找插入位置, 并后移} a[i+1]:=x; elenum:=elenum+1 ] endp; {ds0201} 2.2 已知线性表存于a[1..array]中的前last个分量中，删除从第i个元素起的k个元素。 设计思想： 将k个元素一次删除，即从i+k开始，每一元素前移k个元素位置。 算法： proc