论坛 › Delphi交流 › 我的这个冒泡排序算法，一次不会成功，求纠错！谢谢，找了一天了！

大笨钟 发表于 2013-2-24 17:53:09

我的这个冒泡排序算法，一次不会成功，求纠错！谢谢，找了一天了！

注：j-1为数组中最后一个数的下标
For i:=1 To j-2 Do
    begin
      For m:=i To j-2 Do
      begin
          If(num < num) Then
            begin
            max:= num;
            num:=num;
            num:= max;
            end;
      end;
    end;

小布袋 发表于 2013-4-1 00:29:23

For m:=i To j-2 Do
看下这里

查看完整版本: 我的这个冒泡排序算法，一次不会成功，求纠错！谢谢，找了一天了！