树状数组模板(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

 

 

复习一下树状数组模板

 1 program rrr(input,output);
 2 var
 3   a:array[0..500050]of longint;
 4   n,m,i,opt,x,y,ans:longint;
 5 procedure add(k,x:longint);
 6 begin
 7    while k<=n do begin a[k]:=a[k]+x;k:=k+k and (-k); end;
 8 end;
 9 function sum(k:longint):longint;
10 begin
11    ans:=0;
12    while k>0 do begin ans:=ans+a[k];k:=k-k and (-k); end;
13    exit(ans);
14 end;
15 begin
16    assign(input,'r.in');assign(output,'r.out');reset(input);rewrite(output);
17    readln(n,m);
18    fillchar(a,sizeof(a),0);
19    for i:=1 to n do begin read(x);add(i,x); end;
20    for i:=1 to m do
21       begin
22          readln(opt,x,y);
23          if opt=1 then add(x,y) else writeln(sum(y)-sum(x-1));
24       end;
25    close(input);close(output);
26 end.

 

posted @ 2017-03-14 19:14  Klaier  阅读(411)  评论(0编辑  收藏  举报