几种常用排序Pascal源程序.docVIP

几种常用排序Pascal源程序 ?????A.快速排序：?? ?????procedure?sort(l,r:integer); ?????var?i,j,mid:integer; ?????begin?? ?????i:=l;j:=r;?mid:=a[(l+r)?div?2];?{将当前序列在中间位置的数定义为中间数} ?????repeat?? ?????while?a[i]?mid?do?i:=i+l;?{在左半部分寻找比中间数大的数} ?????while?mid?a[j]?do?j:j-1;{在右半部分寻找比中间数小的数}?? ?????if?i?=j?then?begin?{若找到一组与排序目标不一致的数对则交换它们} ?????swap(a[i],a[j]); ?????inc(i);dec(j);{继续找} ?????end;?? ?????until?i?j; ?????if?l?j?then?sort(l,j);?{若未到两个数的边界，则递归搜索左右区间} ?????if?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?? ?????if?k=a[i]?then?exit;?? ?????repeat?? ?????If?k?a[m]?then?begin?? ?????a[m+1]:=k;?p:=1;?? ?????end?? ?????else?begin?? ?????a[m+1]:=a[m];?dec(m);?? ?????end;?? ?????until?p=1;?? ?????end;{insert_sort}?? ?????l?主程序中为：?? ?????a[0]:=0;?? ?????for?I:=1?to?n?do?insert_sort(b[I],I-1);?? ??????? ?????C.选择排序：?? ?????procedure?sort;?? ?????var?i,j,k:integer;?? ?????begin?? ?????for?i:=1?to?n-1?do?begin?? ?????k:=i;?? ?????for?j:=i+1?to?n?do?? ?????if?a[j]?a[k]?then?k:=j;?{找出a[I]..a[n]中最小的数与a[I]作交换} ?????if?k?i?then?begin?? ?????a[0]:=a[k];a[k]:=a[i];a[i]:=a[0]; ?????end;?? ?????end;?? ?????end;?? ??????? ?????D.?冒泡排序?? ?????procedure?sort;?? ?????var?i,j,k:integer;?? ?????begin?? ?????for?i:=n?downto?1?do?? ?????for?j:=1?to?i-1?do?? ?????if?a[j]?a[i]?then?begin?? ?????a[0]:=a[i];a[i]:=a[j];a[j]:=a[0];?? ?????end;?? ?????end;?? ??????? ?????E.堆排序：?? ?????procedure?sift(i,m:integer);{调整以i为根的子树成为堆,m为结点总数} ?????var?k:integer;?? ?????begin?? ?????a[0]:=a[i];?k:=2*i;{在完全二叉树中结点i的左孩子为2*i,右孩子为2*i+1} ?????while?k?=m?do?begin?? ?????if?(k?m)?and?(a[k]?a[k+1])?then?inc(k);{找出a[k]与a[k+1]中较大值} ?????if?a[0]?a[k]?then?begin?a[i]:=a[k];i:=k;k:=2*i;?end?? ?????else?k:=m+1;?? ?????end;?? ?????a[i]:=a[0];?{将根放在合适的位置}?? ?????end;?? ??????? ?????procedure?heapsort;?? ?????var?? ?????j:integer;?? ?????begin?? ?????for?j:=n?div?2?downto?1?do?sift(j,n