delphi7冒泡排序作业

up360

                               
登录/注册后可看大图

procedure TForm1.Button2Click(Sender: TObject);
var
i,j:Integer;

begin
i:=1;
j:=1;
n:=n-1;
  showmessage(inttostr(n));
  For i:=1 To n-1 do
    begin
      For j:=1 To n-i do
        begin
          If shuzu[i]>shuzu[i+j] Then
            begin
              m:=shuzu[i];
              shuzu[i]:=shuzu[j+i];
              shuzu[j+i]:=m;
            end;
          
        end;
    end;
  For i:=1 To n do
    Label2.Caption:=Label2.Caption+'  '+IntToStr(shuzu[i]);
end;