delphi算法.docVIP

delphi算法:DELPHI基本算法 7.排序算法 A.快速排序: procedure sort(l,r:eger); var i,j,mid:eger; begin i:=l;j:=r; mid:=a[(l+r) div 2]; {将当前序列在中间位置数定义为中间数} [Page]repeat while a[i] mid do inc(i); {在左半部分寻找比中间数大数} while mid a[j] do dec(j);{在右半部分寻找比中间数小数} i =j then begin {若找到组和排序目标不致数对则交换它们} swap(a[i],a[j]); inc(i);dec(j); {继续找} end; until i j; l j then sort(l,j); {若未到两个数边界则递归搜索左右区间} i r then sort(i,r); end;{sort} 　 B.插入排序: procedure insert_sort(k,m:word); {k为当前要插入数m为插入位置指针} var i:word; p:0..1; begin p:=0; for i:=m downto 1 do k=a[i] then exit; repeat If k a[m] then begin a[m+1]:=k; p:=1;