【各种排序】sort

《【各种排序】sort》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、【各种排序】sort排序算法（Pascal）来源：未知作者：admin2009-02-05点击：排序就是将杂乱无章的数据元素，通过一定的方法按关键字顺序排列的过程。一、简单排序1.选择排序选择排序的基本思想是：对待排序的记录序列进行n-1遍的处理，第1遍处理是将L[1..n]中最小者与L[1]交换位置，第2遍处理是将L[2..n]中最小者与L[2]交换位置，......，第i遍处理是将L[i..n]中最小者与L[i]交换位置。这样，经过i遍处理之后，前i个记录的位置就已经按从小到大的顺序排列好了。例1:输入序列数据按非减顺序输出.程序如下:programxzpx;constn=

2、7;vara:array[1..n]ofinteger;i,j,k,t:integer;beginwrite('Enterdate:');fori:=1tondoread(a[i]);writeln;fori:=1ton-1dobegink:=i;forj:=i+1tondoifa[j]ithenbegint:=a[i];a[i]:=a[k];a[k]:=t;end;end;write('outputdata:');fori:=1tondowrite(a[i]:6);writeln;end.2.插入排序插入排序的基本思想:经过i-1遍处理后

3、,L[1..i-1]己排好序。第i遍处理仅将L[i]插入L[1..i-1]的适当位置p，原来p后的元素一一向右移动一个位置,使得L[1..i]又是排好序的序列。例2:输入序列数据按非减顺序输出.程序1:programcrpx;constn=7;vara:array[1..n]ofinteger;i,j,k,t:integer;beginwrite('Enterdate:');fori:=1tondoread(a[i]);writeln;fori:=2tondobegink:=a[i];j:=i-1;while(k0)dobegina[j+1]:=a[j]

4、;j:=j-1end;a[j+1]:=k;end;write('outputdata:');fori:=1tondowrite(a[i]:6);writeln;end.3.冒泡排序冒泡排序又称交换排序其基本思想是:对待排序的记录的关键字进行两两比较,如发现两个记录是反序的,则进行交换,直到无反序的记录为止。例:输入序列数据按非减顺序输出。程序1:programmppx;constn=7;vara:array[1..n]ofinteger;i,j,k,t:integer;beginwrite('Enterdate:');fori:=1tondoread(a[i]);fori:=1

5、ton-1doforj:=ndowntoi+1doifa[j-1]

6、integer;vara:arr;i:integer;procedurequicksort(varb:arr;s,t:integer);vari,j,x,t1:integer;begini:=s;j:=t;x:=b[i];repeatwhile(b[j]>=x)and(j>i)doj:=j-1;ifj>ithenbegint1:=b[i];b[i]:=b[j];b[j]:=t1;end;while(b[i]<=x)and(i

7、i+1;j:=j-1;ifs