将几个自然数排序输出[冒泡法排序]

Question

12,54,32,10,85将上面几个数冒泡法从大到小输出.(不是冒泡法也可)
在combobox里显示.

Answer 1

把这几个数转成字符串后存入TStringList，然后利用TStringList的排序方法，接下来输入到ComboBox就行了！

Answer 2

begin
  with TStringList.Create do try
    Delimiter := ',';
    DelimitedText := '12,54,32,10,85';
    Sort;
    ComboBox1.Items.Text := Text;
  finally
    Free;
  end;
end;

Answer 3

juliens(星星球) :
麻烦给出代码好吗?

Answer 4

这里抄了一个别人的:
procedure TForm1.BitBtn1Click(Sender: TObject);
var
   iSorted : array[1..20] of integer;
   i , j, iMaxNo: integer;
   iTemp: integer;
   strResult : string;
begin
   iSorted[1] :=  12;
   iSorted[2] :=  54;
   iSorted[3] :=  32;
   iSorted[4] :=  10;
   iSorted[5] :=  85;   iMaxNo := 5;
   for i := 1 to iMaxNo do
      for j:=i to iMaxNo do
         begin
            if(iSorted[i] > iSorted[j])  then
            begin
               iTemp := iSorted[i];
               iSorted[i] := iSorted[j];
               iSorted[j] := iTemp;
            end
         end;   strResult := '';
   for i := 1 to iMaxNo do
   begin
      if(i = 1) then
          strResult := IntToStr(iSorted[i])
      else
          strResult := strResult +','+ IntToStr(iSorted[i]);
   end;   ShowMessage(strResult);
end;还有其它的写法吗?

Answer 5

可以解决问题了，只是我的Delphi坏了，写不了代码！

Answer 6

http://student.zjzk.cn/course_ware/data_structure/web/paixu/paixu8.3.1.1.htm

Answer 7

var
  mydata:array[1..5] of integer;
  TempData:integer;
  i:integer;
  j:integer;
begin
  Mydata[1]:=12;
  Mydata[2]:=54;
  mydata[3]:=32;
  mydata[4]:=10;
  mydata[5]:=85;
  for i:=1 to 5 do
  begin
    for j:=2 to 5 do
    begin
      if mydata[j]>mydata[i] then
      begin
        Tempdata:=mydata[i];
        mydata[i]:=mydata[j];
        mydata[j]:=tempdata;
      end;
    end;
  end;
end;

Answer 8

更正一下..上面的写错了
var
  mydata:array[1..5] of integer;
  TempData:integer;
  i:integer;
  j:integer;
begin
  Mydata[1]:=12;
  Mydata[2]:=54;
  mydata[3]:=32;
  mydata[4]:=10;
  mydata[5]:=85;
  for i:=1 to 5 do
  begin
    for j:=i to 5 do
    begin
      if mydata[j]>mydata[i] then
      begin
        Tempdata:=mydata[i];
        mydata[i]:=mydata[j];
        mydata[j]:=tempdata;
      end;
    end;
  end;
end;

Answer 9

我是1982生的我在上海读书！
我们能做朋友吗？我叫陈一凡[email protected]

Answer 10

先谢过楼上的几位.
oliver88888888(陈一凡):古人云:有朋自远方来.
很高兴认识你.