【CodeVS1080】线段树练习

Description

一行N个方格，开始每个格子里都有一个整数。现在动态地提出一些问题和修改：提问的形式是求某一个特定的子区间[a,b]中所有元素的和；修改的规则是指定某一个格子x，加上或者减去一个特定的值A。现在要求你能对每个提问作出正确的回答。1≤N<100000，,提问和修改的总数m<10000条。

Input

输入文件第一行为一个整数N，接下来是n行n个整数，表示格子中原来的整数。接下一个正整数m，再接下来有m行，表示m个询问，第一个整数表示询问代号，询问代号1表示增加，后面的两个数x和A表示给位置X上的数值增加A，询问代号2表示区间求和，后面两个整数表示a和b，表示要求[a,b]之间的区间和。

Output

共m行，每个整数

Sample Input

6

4

5

6

2

1

3

4

1 3 5

2 1 4

1 1 9

2 2 6

Sample Output

22

22

Hint

1≤N≤100000， m≤10000 。

Solution

我写了树状数组,练手的= = ,当模板罢.

 var
   f:array [..] of longint;
   n,m,i,p,x,l,r,a:longint;

 function lowbit(x:longint):longint;
 begin
   lowbit:=x and (-x);
 end;

 procedure plus(x,a:longint);
 begin
   if x>n then exit;
   f[x]:=f[x]+a;
   plus(x+lowbit(x),a);
 end;

 function query(x:longint):longint;
 begin
   query:=;
   if x<= then exit;
   query:=f[x];
   query:=query+query(x-lowbit(x));
 end;

 begin
   read(n);
   for i:= to n do
     begin
       read(a);
       plus(i,a);
      end;
   read(m);
   for i:= to m do
     begin
       read(x);
       if x=
         then begin read(p,x);plus(p,x); end
         else begin read(l,r);writeln(query(r)-query(l-)); end;
     end;
 end.