涓�銆佹彃鍏ユ帓搴?/p>
(Insertion Sort)
1.
鍩烘湰鎬濇兂锛?/p>
姣忔灏嗕竴涓緟鎺掑簭鐨勬暟鎹厓绱狅紝
鎻掑叆鍒板墠闈㈠凡缁忔帓濂藉簭鐨勬暟鍒椾腑鐨勯�傚綋浣嶇疆锛?/p>
浣挎暟鍒椾緷鐒舵湁
搴忥紱鐩村埌寰呮帓搴忔暟鎹厓绱犲叏閮ㄦ彃鍏ュ畬涓烘銆?/p>
2.
鎺掑簭杩囩▼锛?/p>
銆愮ず渚嬨�?/p>
锛?/p>
[
鍒濆鍏抽敭瀛?/p>
] [49] 38 65 97 76 13 27 49
J=2(38) [38 49] 65 97 76 13 27 49
J=3(65) [38 49 65] 97 76 13 27 49
J=4(97) [38 49 65 97] 76 13 27 49
J=5(76) [38 49 65 76 97] 13 27 49
J=6(13) [13 38 49 65 76 97] 27 49
J=7(27) [13 27 38 49 65 76 97] 49
J=8(49) [13 27 38 49 49 65 76 97]
飥?/p>
飥?/p>
Procedure InsertSort(Var R : FileType);
飥?/p>
//
瀵?/p>
R[1..N]
鎸夐�掑搴忚繘琛屾彃鍏ユ帓搴?/p>
, R[0]
鏄洃瑙嗗摠
//
飥?/p>
Begin
飥?/p>
for I := 2 To N Do //
渚濇鎻掑叆
R[2],...,R[n]//
飥?/p>
begin
飥?/p>
R[0] := R; J := I - 1;
飥?/p>
While R[0] < R[J] Do //
鏌ユ壘
R
鐨勬彃鍏ヤ綅缃?/p>
//
飥?/p>
begin
飥憋�?/p>
R[J+1] := R[J]; //
灏嗗ぇ浜?/p>
R
鐨勫厓绱犲悗绉?/p>
//
飥憋�?/p>
J := J - 1
飥憋�?/p>
end
飥憋�?/p>
R[J + 1] := R[0] ; //
鎻掑叆
R //
飥憋�?/p>
end
飥憋�?/p>
End; //InsertSort //
澶嶅埗浠ｇ爜