2748: [HAOI2012]音量调节

2748: [HAOI2012]音量调节

Time Limit: 3 Sec  Memory Limit: 128 MB
Submit: 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

Sample Output

10

HINT

 

1<=N<=50,1<=Ci<=Maxlevel 1<=maxlevel<=1000

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.