冒泡排序函数
始终做从右到左的扫描
第一次排序扫描:对比nMax-1次,把最小 元素移至第一位
第二次排序扫描:对比nMax-2次,把第二小元素移至第二位
第三次排序扫描:对比nMax-3次,把第三小元素移至第三位
TargetArr为要排序取中位数的数组；
nmax为数组中的数值个数
function sort(var TargetArr:array of Double;nMax:Integer);
var
NoSwap : Boolean;
Temp : Integer;
begin
for i:=1 to nMax-1 do//做nMax-1趟排序
begin
for j:=nMax-1 downto 1 do
begin
NoSwap := True; //置未排序的标志
if TargetArr[j] begin
Temp := TargetArr[j];
TargetArr[j] := TargetArr[j-1];
TargetArr[j-1] := Temp;
NoSwap := False;
end;
end;
if NoSwap then
Exit;//本趟排序中未发生交换,排序完成,则终止算法
end;
end;