NOIP赛前常用模板代码总结

1：堆代码(以小根堆作为example)

procedure put(x:longint);var e:longint;begininc(len); tree[len]:=x;e:=len;while e>1 do beginif tree[e>>1]>tree[e] then beginswap(tree[e>>1],tree[e]);e:=e>>1;endelse break;end;end;function get:longint;var e,son:longint;beginget:=tree[1]; tree[1]:=tree[len]; dec(len);e:=1;while (e<<1<=len) or (e<<1+1<=len) do beginif (e<<1+1>len) or (tree[e<<1]<tree[e<<1+1]) then son:=e<<1else son:=e<<1+1;if tree[e]>tree[son] then beginswap(tree[e],tree[son]);e:=son;endelse break;end;end;