有冒泡算法对随机生成的动态数组从小到大排序
1
悬赏园豆：140
[待解决问题]
procedure TForm1.Button1Click(Sender: TObject);
var
Arr: array of Integer; {定义一个动态数组}
i,ic: Integer;
begin
{设置数组}
SetLength(Arr, 20);
{获取各维的维数}
ic := Length(Arr);
{赋值}
for i := 0 to ic - 1 do
Arr[i] := Random(100);
{取值}
Memo1.Clear;
for i := LOW(ARR) to HIGH(ARR) do
Memo1.Lines.Add(Format('Arr[%d] = %d', [i, Arr[i]]));
Edit1.Text:= inttostr(Arr[LOW(ARR)]);
EDIT3.Text:= inttostr(Arr[HIGH(ARR)]);
end;
点击“Button1”随机得到20个动态数组。
我想点击“Button2”,运用冒泡方法，把点击“Button1”得的随机数组，从小到大排序。
所有回答(2)
0
建议：把数组全局化
冒泡代码：
procedure bublerank(var a:array of integer)
var i,j,temp:integer;
begin
for i:=low(a) to high(a)-1 do
for j:=low(a) to high(a)-i-1 do
if a[j]>a[j+1] then
begin
temp:=a[j];
a[j]:=a[j+1];
a[j+1]:=temp;
end;
end;
0
说法有问题，20动态数组？20个元素吧，就是一个从前往后比较，谁大就往后换，楼上代码很详细，主要是楼主应该知道原理
