delphi7冒泡排序作业

up360

                               
登录/注册后可看大图

1. procedure TForm1.Button2Click(Sender: TObject);
   
2. var
   
3. i,j:Integer;
   
4. 
   
5. begin
   
6. i:=1;
   
7. j:=1;
   
8. n:=n-1;
   
9.   showmessage(inttostr(n));
   
10.   For i:=1 To n-1 do
    
11.     begin
    
12.       For j:=1 To n-i do
    
13.         begin
    
14.           If shuzu[i]>shuzu[i+j] Then
    
15.             begin
    
16.               m:=shuzu[i];
    
17.               shuzu[i]:=shuzu[j+i];
    
18.               shuzu[j+i]:=m;
    
19.             end;
    
20.          
    
21.         end;
    
22.     end;
    
23.   For i:=1 To n do
    
24.     Label2.Caption:=Label2.Caption+'  '+IntToStr(shuzu[i]);
    
25. end;
    

复制代码