鱼C论坛

 找回密码
 立即注册
查看: 3067|回复: 15

[技术交流] 提交冒泡排序V1.0作业

[复制链接]
发表于 2012-9-6 22:39:07 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能^_^

您需要 登录 才可以下载或查看,没有账号?立即注册

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

下面是实现部分的代码:
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 := 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;

想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
发表于 2015-12-30 17:29:26 | 显示全部楼层
楼主坑人,btn1里的代码  num应该是num[i],我也是看了楼下的代码才知道,
正纳闷怎么编译老是出错呢一堆英文还在检查,好坑啊,下次把代码编译通过了再复制过来啊
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复 支持 反对

使用道具 举报

发表于 2015-12-30 17:09:40 | 显示全部楼层
多谢楼主分享这么好的东西.
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复 支持 反对

使用道具 举报

发表于 2015-12-26 12:59:18 | 显示全部楼层
看看
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复

使用道具 举报

发表于 2015-12-17 15:22:30 | 显示全部楼层
不错
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复

使用道具 举报

发表于 2014-10-22 14:00:04 | 显示全部楼层
2
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复

使用道具 举报

发表于 2014-8-25 15:11:11 | 显示全部楼层
看看
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复

使用道具 举报

发表于 2014-8-13 06:51:32 | 显示全部楼层
谢谢楼主分享了!!!!!!
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复 支持 反对

使用道具 举报

发表于 2014-8-12 13:05:42 | 显示全部楼层
回复
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复

使用道具 举报

发表于 2014-3-5 16:46:13 | 显示全部楼层

真是难得给力的帖子啊。
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复 支持 反对

使用道具 举报

发表于 2014-1-6 19:32:20 | 显示全部楼层
围观学习,共同进步
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复 支持 反对

使用道具 举报

发表于 2013-8-9 20:18:31 | 显示全部楼层
学习了啊
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复 支持 反对

使用道具 举报

发表于 2013-8-8 17:09:08 | 显示全部楼层
感谢楼主分享!
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复 支持 反对

使用道具 举报

发表于 2013-7-2 12:18:50 | 显示全部楼层
看看老帖,支持下
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复 支持 反对

使用道具 举报

 楼主| 发表于 2012-9-7 09:41:17 | 显示全部楼层
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;
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
 楼主| 发表于 2012-9-6 23:08:17 | 显示全部楼层

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;
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Archiver|鱼C工作室 ( 粤ICP备18085999号-1 | 粤公网安备 44051102000585号)

GMT+8, 2024-3-29 15:11

Powered by Discuz! X3.4

© 2001-2023 Discuz! Team.

快速回复 返回顶部 返回列表