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..