二叉堆模板

      二叉堆在各种竞赛题目中通常都有涉及，主要是可以灵活地取出和插入，是一种在线的数据结构，对于几种基本操作和原理一定要烂熟于心。

pascal模板

放入操作 

procedure put(x:longint);

var

  fa,son,tmp:longint;

begin

  len:=len+1;

  heap[len]:=x;

  son:=len;

  while(son<>1)and(heap[son]<heap[son div 2]) do

  begin

    tmp:=heap[son div 2];

    heap[son div 2]:=heap[son];

    heap[son]:=tmp;

    son:=son div 2;

  end;

end;

取出操作 

function get:longint;

var

  son,fa,tmp:longint;

  stop:boolean;

begin

  get:=heap[1];

  heap[1]:=heap[len];

  len:=len-1;

  fa:=1;

  stop:=false;

  while ((fa*2<=len)or(fa*2+1<=len))and(not stop) do

  begin

    if (fa*2+1>len)or (heap[fa*2]<heap[fa*2+1])

    then son:=fa*2

    else son:=fa*2+1;

  if heap[fa]>heap[son]

    then begin

      tmp:=heap[fa];

      heap[fa]:=heap[son];

      heap[son]:=tmp;

      fa:=son;

    end

    else stop:=true;

  end;

end;

       二叉堆一定要会用，可以飞快地做出来，理解原理，注意小细节，不要调用空单元，及时移动栈指针。