lyh2006 發表于 2010-08-13 23:35
Re:Procedure BubbleSort(Var R : FileType) //從下往上掃描的起泡排序//
Begin
  For I := 1 To N-1 Do //做N-1趟排序//
   begin
     NoSwap := True; //置未排序的標志//
     For J := N - 1 DownTo 1 Do //..