pascal 解题模板（NOIP）

目录：
1.LCA（树上倍增）
2.堆
3.快速乘
4.快速加
5.二分查找
6.拓展欧几里得算法（可求乘法逆元）
7.线段树（建树，lazy标记，修改修改区间值）
8.强连通（taijan）
9.二分图最大匹(匈牙利算法)
10.spfa
11.中国剩余定理
12.catalan数
13.欧拉函数
14.拓扑排序

                  1.LCA 裸代码，可直接套用

function lca(u,v:longint):longint;
var i:longint;
begin
if d[v]>d[u] then
begin
i:=u; u:=v; v:=i;
end;
i:=30;
while d[u]>d[v] do
begin
while d[v]>d[dp[u,i]] do dec(i);
u:=dp[u,i];
end;
if u=v then exit(u);
i:=30;
while i>=0 do
begin
while (i>=0) and (dp[u,i]=dp[v,i]) do dec(i);
if i>=0 then
begin
u:=dp[u,i];
v:=dp[v,i];
end;
end;
exit(f[u]);
end;

                   2.堆（以小根堆为例）

procedure put(x:longint);
var i,j:longint;
begin
inc(len);
a[len]:=x;
i:=len;
while (a[i div 2]>a[i]) and (i>1) do
begin
j:=a[i]; a[i]:=a[i div 2]; a[i div 2]:=j;
i:=i div 2;
end;
end;

function get:longint;
var i,j,d:longin