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