论坛 › Delphi交流 › 提交冒泡排序V1.0作业

(@_@) 发表于 2012-9-6 22:39:07

提交冒泡排序V1.0作业

**** Hidden Message *****
下面是实现部分的代码：
var
i: Integer = 0;
num: array of Integer;

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
begin
lbl1.Caption := lbl1.Caption + '   ' + edt1.Text;
num := 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 < num) then
      begin
      n := num;
      num := num;
      num := n;
      end;
    end;
end;

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

end;

bowen666 发表于 2015-12-30 17:29:26

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

bowen666 发表于 2015-12-30 17:09:40

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

dx693494 发表于 2015-12-26 12:59:18

看看

gentleY 发表于 2015-12-17 15:22:30

不错

tlwangxd 发表于 2014-10-22 14:00:04

2

zishuang 发表于 2014-8-25 15:11:11

看看

cable5881 发表于 2014-8-13 06:51:32

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

scjqiang 发表于 2014-8-12 13:05:42

回复

WZWLY 发表于 2014-3-5 16:46:13

真是难得给力的帖子啊。

姜小呆 发表于 2014-1-6 19:32:20

围观学习，共同进步

晨风吹过 发表于 2013-8-9 20:18:31

学习了啊{:5_90:}

shenlw66 发表于 2013-8-8 17:09:08

感谢楼主分享！

Cocol 发表于 2013-7-2 12:18:50

看看老帖，支持下

(@_@) 发表于 2012-9-7 09:41:17

var
i: Integer = 0;
num: array of Integer;

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
begin
lbl1.Caption := lbl1.Caption + '   ' + edt1.Text;
num := 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) + '   ';

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 < num) then
      begin
      n := num;
      num := num;
      num := n;
      end;
    end;
end;
end;

(@_@) 发表于 2012-9-6 23:08:17

var
i: Integer = 0;
num: array of Integer;

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
begin
lbl1.Caption := lbl1.Caption + '   ' + edt1.Text;
num := 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 < num) then
      begin
      n := num;
      num := num;
      num := n;
      end;
    end;
end;

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

end;

查看完整版本: 提交冒泡排序V1.0作业