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 //在當前無序..