lyh2006 发表于 2010-08-13 23:49
Re:Procedure SelectSort(Var R : FileType); //对R[1..N]进行直接选择排序 //
  Begin
    for I := 1 To N - 1 Do //做N - 1趟选择排序//
     begin
      K := I;
      For J := I + 1 To N Do //在当前无序..