lyh2006 發表于 2010-08-13 23:00
Re:Procedure InsertSort(Var R : FileType);
//對R[1..N]按遞增序進行插入排序, R[0]是監視哨//
  Begin
    for I := 2 To N Do //依次插入R[2],...,R[n]//
    begin
      R[0] := R; J := I - 1;
      Whil..