Luogu P3374 【模板】树状数组 1 [单点修改-区间查询]

P3374 【模板】树状数组 1

题目描述

如题，已知一个数列，你需要进行下面两种操作：

1.将某一个数加上x

2.求出某区间每一个数的和

输入输出格式

输入格式：

第一行包含两个整数N、M，分别表示该数列数字的个数和操作的总个数。

第二行包含N个用空格分隔的整数，其中第i个数字表示数列第i项的初始值。

接下来M行每行包含3或4个整数，表示一个操作，具体如下：

操作1： 格式：1 x k 含义：将第x个数加上k

操作2： 格式：2 x y 含义：输出区间[x,y]内每个数的和

输出格式：

输出包含若干行整数，即为所有操作2的结果。

输入输出样例

输入样例#1：

5 5
1 5 4 2 3
1 1 3
2 2 5
1 3 -1
1 4 2
2 1 4

输出样例#1：

14
16

说明

时空限制：1000ms,128M

数据规模：

对于30%的数据：N<=8，M<=10

对于70%的数据：N<=10000，M<=10000

对于100%的数据：N<=500000，M<=500000

样例说明：

故输出结果14、16

 

program no;
var
  n,m,i,t,c,x,y:Longint;
  e:array[1..500000] of Longint;

function lowbit(apple:Longint):Longint ;
begin
    lowbit:=apple and -apple;
end;

procedure add(x,a:Longint);
begin
    while x<=n do
     begin
        e[x]:=e[x]+a;
        x:=x+lowbit(x);
     end;
end;

function query(x:Longint):longint;
begin
    query:=0;
    while x>0 do
    begin
        query:=query+e[x];
            x:=x-lowbit(x);
    end;
end;

begin
   //assign(input,'1.in'); assign(output,'1.out');
   reset(input); rewrite(output);
   
   readln(n,m);
    for i:= 1 to n do
    begin
     read(t);
     add(i,t);
    end;

    for i:= 1 to m do
    begin
        read(c,x,y);
        if c=1 then add(x,y)
         else writeln(query(y)-query(x-1));
    end;
   close(input);    close(output);
end.