[代码]冒泡排序的过程

冒泡排序算法

procedure sort(var data:array of integer; n:integer);
var
  i, j, temp:integer;
begin
  for j:=n-1 downto 1 do
    for i:=0 to j-1 do
      begin
        //交换次序不对者
        if data[i]>data[i+1] then 
          begin
            temp:=data[i];
            data[i]:=data[i+1];
            data[i+1]:=temp;
          end;
      end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
  data: array [0..9] of integer;
  i: integer;
begin
  for i:=0 to 9 do
    data[i]:=strtoint(ListBox1.Items.Strings[i]);
  //调用冒泡排序
  sort(data,10);
  for i:=0 to 9 do
    ListBox1.Items.Strings[i]:=inttostr(data[i]);
end; 
分享到:

0 条评论

注意: 评论者允许使用'@user空格'的方式将自己的评论通知另外评论者。例如, ABC是本文的评论者之一,则使用'@ABC '(不包括单引号)将会自动将您的评论发送给ABC。使用'@all ',将会将评论发送给之前所有其它评论者。请务必注意user必须和评论者名相匹配(大小写一致)。

昵称

沙发空缺中,还不快抢~