提交冒泡排序V1.0作业

(@_@)

游客，如果您要查看本帖隐藏内容请回复

下面是实现部分的代码：
var
  i: Integer = 0;
  num: array [1 .. 30] of Integer;

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
begin
  lbl1.Caption := lbl1.Caption + '   ' + edt1.Text;
  num[i] := StrToInt(edt1.Text); //接收数据并且放入数组
  i := i + 1;   //统计输入元素个数
  edt1.Text := '';
end;

procedure TForm1.btn2Click(Sender: TObject);
var
  l, j, n: Integer;

  //实现冒泡
begin
  for l := 0 to i - 1 do
  begin
    for j := 0 to i - 1 do
    begin
      if (num[j] < num[j + 1]) then
      begin
        n := num[j];
        num[j] := num[j + 1];
        num[j + 1] := n;
      end;
    end;
  end;

  lbl1.Caption := '';
  for l := i - 1 downto 0 do
    lbl1.Caption := lbl1.Caption + inttostr(num[l]) + '   ';

end;

bowen666

楼主坑人,btn1里的代码  num应该是num[i],我也是看了楼下的代码才知道,
正纳闷怎么编译老是出错呢一堆英文还在检查,好坑啊,下次把代码编译通过了再复制过来啊

bowen666

多谢楼主分享这么好的东西.

dx693494

看看

gentleY

不错

tlwangxd

2

zishuang

看看

cable5881

谢谢楼主分享了！！！！！！

scjqiang

回复

WZWLY

真是难得给力的帖子啊。

姜小呆

围观学习，共同进步

晨风吹过

学习了啊

shenlw66

感谢楼主分享！

Cocol

看看老帖，支持下

(@_@)

var
  i: Integer = 0;
  num: array [1 .. 30] of Integer;

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
begin
  lbl1.Caption := lbl1.Caption + '   ' + edt1.Text;
  num[i] := StrToInt(edt1.Text); // 接收数据并且放入数组
  i := i + 1; // 统计输入元素个数
  edt1.Text := '';
end;

procedure TForm1.btn2Click(Sender: TObject);
var
  l: Integer;
begin
  maopaopaixu;

  lbl1.Caption := '';
  for l := i - 1 downto 0 do
    lbl1.Caption := lbl1.Caption + inttostr(num[l]) + '   ';

end;

// 实现冒泡
procedure TForm1.maopaopaixu;
var
  j: Integer;
  l: Integer;
  n: Integer;
begin
  for l := 0 to i - 1 do
  begin
    for j := 0 to i - l - 1 do
    begin
      if (num[j] < num[j + 1]) then
      begin
        n := num[j];
        num[j] := num[j + 1];
        num[j + 1] := n;
      end;
    end;
  end;
end;

(@_@)

var
  i: Integer = 0;
  num: array [1 .. 30] of Integer;

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
begin
  lbl1.Caption := lbl1.Caption + '   ' + edt1.Text;
  num[i] := StrToInt(edt1.Text); //接收数据并且放入数组
  i := i + 1;   //统计输入元素个数
  edt1.Text := '';
end;

procedure TForm1.btn2Click(Sender: TObject);
var
  l, j, n: Integer;

  //实现冒泡
begin
  for l := 0 to i - 1 do
  begin
    for j := 0 to i - l - 1 do
    begin
      if (num[j] < num[j + 1]) then
      begin
        n := num[j];
        num[j] := num[j + 1];
        num[j + 1] := n;
      end;
    end;
  end;

  lbl1.Caption := '';
  for l := i - 1 downto 0 do
    lbl1.Caption := lbl1.Caption + inttostr(num[l]) + '   ';

end;