【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 [1..1000000] 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:=0;
  if x<=0 then exit;
  query:=f[x];
  query:=query+query(x-lowbit(x));
end;

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