基本算法介绍(一).ppt

基本算法介绍(一);排序算法综述;（一）冒泡排序(paixu1.pas);（二）选择排序(Paixu1.pas);三）插入排序;1) 从尾插入(paixu3a);★折半插入(paixu3b);★快速排序;详细过程举例如下： ;procedure dg(x,y:integer);{X，Y表示集合的左右边界，即把第X到第Y个数进行排序} var i,j,b,c,d,e,f,k:integer; begin k:=n[x];{标准数} i:=x;j:=y{I，J为指针} repeat j:=j+1; repeat {从J往左找到一个n[j]=k} j:=j-1; until (n[j]=k) or (ij); if i=j then begin b:=n[i]; n[i]:=n[j]; n[j]:=b; {交换} i:=i+1; {左指针右移} end; i:=i-1; repeat {从I往右找到一个n[i]=k} i:=i+1; until (n[i]=k) or (ij); if i=j then begin b:=n[i];n[i]:=n[j]; n[j]:=b; {交换} j:=j-1; end; until ij; if j-x0 then dg(x,j); {如果集合中不止一个数则进入下一层递归，X，J为新边界} if y-i0 then dg(i,y); {如果集合中不止一个数则进入下一层递归，I，Y为新边界} end;