队列基础及应用.pptVIP

栈的应用、队列基础 （1）栈问题解答 （2）队列的基本知识 （3）队列的简单应用 栈问题解答 2、二分查找：用递归实现二分查找。 （1）输入n个无序数据，按照从小到大的顺序排列，并输出排列结果。 （2）从键盘输入一个待查找的数据x，利用二分查找的方法，输出该数据在排序后的位置。 var a:array[1..1000] of integer; n,i,p,t:integer; function find(t,l,r:integer):integer; var m:integer; begin if lr then begin find:=0; halt; end; m:=(l+r) div 2; if a[m]=t then find:=m else if ta[m] then find:=find(t,l,m-1) else find:=find(t, m+1, r); end; procedure sort(l,r:integer); var t,i,j,m:integer; begin i:=l; j:=r; m:=a[(l+r) div 2]; repeat while a[i]m do inc(i); whi