DELPHI7冒泡排序
procedure TForm1.Button1Click(Sender: TObject);
var
//MyArr:array[0…9] of Integer = (10,5,2,8,9,1,3,6,7,4);
//这样做是错的,不能初始化静态变量
MyArr:array[0…9] of Integer;
i,j,temp,len:Integer;
begin
MyArr[0]:=10;
MyArr[1]:=5;
MyArr[2]:=2;
MyArr[3]:=8;
MyArr[4]:=9;
MyArr[5]:=1;
MyArr[6]:=3;
MyArr[7]:=6;
MyArr[8]:=7;
MyArr[9]:=4;
len:=Length(MyArr);
//ShowMessage(IntToStr(Length(MyArr)));
for i:=0 to len-1 do
begin
for j:=0 to len -i -1 do
begin
if MyArr[j] > MyArr[j+1] then
begin
temp:=MyArr[j];
MyArr[j] := MyArr[j+1];
MyArr[j+1]:=temp;
end;
end;
end;
for j:=0 to len-1 do
begin
ShowMessage(IntToStr(MyArr[j]));
end;
end;