鏁版嵁緇撴瀯絎簲绔犲簲鐢ㄩ鍙婄瓟妗圼9]_璺ㄨ€冪綉

1. 鎸囧嚭涓嬪垪綆楁硶涓敊璇€佷綆鏁堜箣澶勶紝騫跺皢鍏舵敼鎴愪竴涓紜笖楂樻晥鐨勭畻娉曘€?/span>
銆€銆€PROCEDURE delk(A, m , last,i, k) ;
銆€銆€锝?jīng)浠庢暟缁?/span>A[錛?/span>..last]涓垹闄ょi涓厓绱犺搗鐨?/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 涓€ 錛?/span>10鍒嗭級銆?/span>
銆€銆€銆愬弬鑰冪瓟妗堛€?/font>
銆€銆€閿欒鏈変互涓嬪嚑澶勶細
銆€銆€錛?/span>1錛夎繃紼嬪弬鏁版病鏈夌被鍨嬭鏄庯紱錛?/span>2錛夊嚭閿欐潯浠跺垽鏂細緙哄皯OR錛?/span>i+k>last+1錛夛紱錛?/span>3錛夊垹闄ゅ厓绱犳椂FOR寰幆搴旀鍚戯紝涓嶅簲鐢ㄥ弽鍚?/span>DOWNTO錛涳紙4錛?/span>count娌″畾涔夛紱
銆€銆€浣庢晥浣撶幇鍦ㄤ袱澶勶細
銆€銆€錛?/span>1錛夊垹闄?/span>k涓厓绱犳椂錛屼笉蹇呬竴涓竴涓厓绱犲墠縐伙紝鑰屽簲涓€嬈″墠縐?/span>k涓綅緗紱
銆€銆€錛?/span>2錛?/span>last鎸囬拡涓嶅簲涓€嬈″噺1錛岃€屽簲鏈€鍚庝竴嬈″噺k銆?/span>
銆€銆€姝ｇ‘鐨勯珮鏁堢畻娉曞涓嬶細
銆€銆€const m=64錛?/span>
銆€銆€TYPE ARR=ARRAY[1..m] OF integer錛?/span>
銆€銆€PROCEDURE delk錛?/span>VAR A:ARR錛?/span>VAR last:integer;i,k錛?/span>integer錛夛紱
銆€銆€{浠庢暟緇?/span>A[1..last]涓垹闄ょi涓厓绱犺搗鐨?/span>k涓厓绱狅紝m涓?/span>A鐨勪笂闄?/span>}
銆€銆€VAR count錛?/span>integer錛?/span>
銆€銆€BEGIN
銆€銆€IF錛?/span>i<0錛?/span>OR錛?/span>i>last錛?/span>OR錛?/span>k<0錛?/span>OR錛?/span>last>m錛?/span>OR錛?/span>i+k>last+1錛?/span>
銆€銆€THEN write錛?/span>鈥檈rror鈥?/span>錛?/span>
銆€銆€ELSE[FOR count錛?/span>= i+k TO last DO A[count-k]錛?/span>=A[count]錛?/span>
銆€銆€last錛?/span>=last-k錛?/span>]
銆€銆€END錛?/span>