树状数组模板（pascal） 洛谷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 rrr(input,output);
var
  a:array[0..500050]of longint;
  n,m,i,opt,x,y,ans:longint;
procedure add(k,x:longint);
begin
   while k<=n do begin a[k]:=a[k]+x;k:=k+k and (-k); end;
end;
function sum(k:longint):longint;
begin
   ans:=0;
   while k>0 do begin ans:=ans+a[k];k:=k-k and (-k); end;
   exit(ans);
end;
begin
   assign(input,'r.in');assign(output,'r.out');reset(input);rewrite(output);
   readln(n,m);
   fillchar(a,sizeof(a),0);
   for i:=1 to n do begin read(x);add(i,x); end;
   for i:=1 to m do
      begin
         readln(opt,x,y);
         if opt=1 then add(x,y) else writeln(sum(y)-sum(x-1));
      end;
   close(input);close(output);
end.