数据�l�构�W�五章应用题及答案[9]_跨考网

1. 指出下列���法中错误、低效之处，�q�将其改成一个正���且高效的算法�?/span>
　　PROCEDURE delk(A, m , last,i, k) ;
　　�?j��ng)从数�?/span>A[�Q?/span>..last]中删除第i个元素�v�?/span> k个元素，m�?/span>A上限�?/span>
　　BEGIN
　　IF(i<1) OR (i>last) OR(k<0) OR(last>m)
　　THEN write ('error')
　　ELSE FOR count: = 1 TO k TO
　　{FOR j:=last DOWNTO i+1 DO
　　A[j-1]:=A[j];
　　last:=last-1}
　　ENDP;{delk} 【北方交通大�?/span> 1997 一 �Q?/span>10分）�?/span>
　　【参考答案�?/font>
　　错误有以下几处：
　　�Q?/span>1�Q�过�E�参数没有类型说明；�Q?/span>2�Q�出错条件判断：�~�少OR�Q?/span>i+k>last+1�Q�；�Q?/span>3�Q�删除元素时FOR循环应正向，不应用反�?/span>DOWNTO�Q�（4�Q?/span>count没定义；
　　低效体现在两处：
　　�Q?/span>1�Q�删�?/span>k个元素时�Q�不必一个一个元素前�U�，而应一�ơ前�U?/span>k个位�|�；
　　�Q?/span>2�Q?/span>last指针不应一�ơ减1�Q�而应最后一�ơ减k�?/span>
　　正确的高效算法如下：
　　const m=64�Q?/span>
　　TYPE ARR=ARRAY[1..m] OF integer�Q?/span>
　　PROCEDURE delk�Q?/span>VAR A:ARR�Q?/span>VAR last:integer;i,k�Q?/span>integer�Q�；
　　{从数�l?/span>A[1..last]中删除第i个元素�v�?/span>k个元素，m�?/span>A的上�?/span>}
　　VAR count�Q?/span>integer�Q?/span>
　　BEGIN
　　IF�Q?/span>i<0�Q?/span>OR�Q?/span>i>last�Q?/span>OR�Q?/span>k<0�Q?/span>OR�Q?/span>last>m�Q?/span>OR�Q?/span>i+k>last+1�Q?/span>
　　THEN write�Q?/span>’error�?/span>�Q?/span>
　　ELSE[FOR count�Q?/span>= i+k TO last DO A[count-k]�Q?/span>=A[count]�Q?/span>
　　last�Q?/span>=last-k�Q?/span>]
　　END�Q?/span>