2748: [HAOI2012]音量调节
Time Limit: 3 Sec Memory Limit: 128 MBSubmit: 719 Solved: 475
[Submit][Status]
Description
一个吉他手准备参加一场演出。他不喜欢在演出时始终使用同一个音量，所以他决定每一首歌之前他都要改变一次音量。在演出开始之前，他已经做好了一个列表，里面写着在每首歌开始之前他想要改变的音量是多少。每一次改变音量，他可以选择调高也可以调低。
音量用一个整数描述。输入文件中给定整数beginLevel，代表吉他刚开始的音量，以及整数maxLevel，代表吉他的最大音量。音量不能小于0也不能大于maxLevel。输入文件中还给定了n个整数c1,c2,c3…..cn，表示在第i首歌开始之前吉他手想要改变的音量是多少。
吉他手想以最大的音量演奏最后一首歌，你的任务是找到这个最大音量是多少。
Input
第一行依次为三个整数：n, beginLevel, maxlevel。
第二行依次为n个整数：c1,c2,c3…..cn。
Output
输出演奏最后一首歌的最大音量。如果吉他手无法避免音量低于0或者高于maxLevel，输出-1。
Sample Input
3 5 10
5 3 7
5 3 7
Sample Output
10
HINT
1<=N<=50,1<=Ci<=Maxlevel 1<=maxlevel<=1000
0<=beginlevel<=maxlevel
0<=beginlevel<=maxlevel
Source
题解：额。。这尼玛是今天和DP水题干上了的节奏= =。。。这个题有些类似今年刚过去的NOIP（NOIP2014） Flappy Bird那题，只是情况简单得多，所以也容易得多，思路就是当判断当时刻为i,音量为j时，有没有可能，然后根据上一个时刻的状况来判断即可，My code is 萌萌哒！！！
1 var
2 i,j,k,l,m,n,a1,a2,a3,a4:longint;
3 a:array[0..100,0..2000] of longint;
4 begin
5 readln(n,l,m);
6 fillchar(a,sizeof(a),0);
7 a[0,l]:=1;
8 for i:=1 to n do
9 begin
10 k:=0;
11 read(a1);
12 for j:=0 to m do
13 begin
14 if (j+a1)<=m then
15 begin
16 if a[i-1,j+a1]=1 then
17 begin
18 a[i,j]:=1;
19 k:=1;
20 end;
21 end;
22 if (j-a1)>=0 then
23 begin
24 if a[i-1,j-a1]=1 then
25 begin
26 a[i,j]:=1;
27 k:=1;
28 end;
29 end;
30 end;
31 if k=0 then
32 begin
33 writeln(-1);
34 halt;
35 end;
36 end;
37 for i:=m downto 0 do
38 if a[n,i]=1 then
39 begin
40 writeln(i);
41 halt;
42 end;
43 end.
3 a:array[0..100,0..2000] of longint;
4 begin
5 readln(n,l,m);
6 fillchar(a,sizeof(a),0);
7 a[0,l]:=1;
8 for i:=1 to n do
9 begin
10 k:=0;
11 read(a1);
12 for j:=0 to m do
13 begin
14 if (j+a1)<=m then
15 begin
16 if a[i-1,j+a1]=1 then
17 begin
18 a[i,j]:=1;
19 k:=1;
20 end;
21 end;
22 if (j-a1)>=0 then
23 begin
24 if a[i-1,j-a1]=1 then
25 begin
26 a[i,j]:=1;
27 k:=1;
28 end;
29 end;
30 end;
31 if k=0 then
32 begin
33 writeln(-1);
34 halt;
35 end;
36 end;
37 for i:=m downto 0 do
38 if a[n,i]=1 then
39 begin
40 writeln(i);
41 halt;
42 end;
43 end.