冒泡排序 - 阶段性上机实践（小结）03 - 零基础入门学习Delphi018

冬雪雪冬

又到了上机练习了。本课是做一个冒泡排序，自然是使用数组了。
冒泡的算法很简单，是排序中最简单最容易理解的，也是最慢的。需要两层循环，先将第一个元素依次与第二个的比较，如果小则与后面的交换，直至第n个，然后做1~n-1，再1~n-2，直至排序完成。
界面上建立一个edit用以输入数值，一个button将edit的数值放入数组，并显示在lable1上，依次输入完毕，按button2排序，并显示在label2上。小甲鱼的程序是拍成从大到小的，再反序输出，我简化了一下，直接从小到大排序。

1. implementation
   
2. 
   
3. {$R *.dfm}
   
4. Var
   
5.   n: Integer = 0;
   
6. 
   
7.   Num: Array[0..99] of Integer;
   
8. procedure TForm1.Button1Click(Sender: TObject);
   
9. begin
   
10.   Button2.Enabled:= True;
    
11.   Num[n]:= StrToInt(Edit1.Text);
    
12.   Label1.Caption:= Label1.Caption + Edit1.Text + ' ';
    
13.   Edit1.Text:= '';
    
14.   n := n + 1;
    
15. end;
    
16. 
    
17. procedure TForm1.Button2Click(Sender: TObject);
    
18. var
    
19.   i, j, temp: Integer;
    
20. begin
    
21.   n:= n -1;
    
22.   for i:= 0 to n - 1 do
    
23.     for j:= 0 to n - i - 1 do
    
24.       if Num[j] > Num[j + 1] then
    
25.         begin
    
26.           temp := Num[j];
    
27.           Num[j]:= Num[j + 1];
    
28.           Num[j + 1]:= temp;
    
29.         end;
    
30.   for i:= 0 to n do
    
31.     Label2.Caption:= Label2.Caption + IntToStr(Num[i]) + ' ';
    
32.   Edit1.Enabled:= False;
    
33.   Button1.Enabled:= False;
    
34. end;
    

复制代码

不多太少

看了好几遍 终于弄懂了