jzoj 1353. 【2011.12.24普及模拟】渡河问题

1353. 【2011.12.24普及模拟】渡河问题(river.pas/cpp) 
(File IO): input:river.in output:river.out

时间限制:  1000 ms  空间限制:  262144 KB  具体限制  

Goto ProblemSet

题目描述

    Farmer John以及他的N(1 <= N <= 2,500)头奶牛打算过一条河，但他们所有的渡河工具，仅仅是一个木筏。

由于奶牛不会划船，在整个渡河过程中，FJ必须始终在木筏上。在这个基础上，木筏上的奶牛数目每增加1，FJ把木筏划到对岸就得花更多的时间。当FJ一个人坐在木筏上，他把木筏划到对岸需要M(1 <= M <= 1000)分钟。当木筏搭载的奶牛数目从i-1增加到i时，FJ得多花M_i(1 <= M_i <= 1000)分钟才能把木筏划过河（也就是说，船上有1头奶牛时，FJ得花M+M_1分钟渡河；船上有2头奶牛时，时间就变成M+M_1+M_2分钟。后面的依此类推）。

那么，FJ最少要花多少时间，才能把所有奶牛带到对岸呢？当然，这个时间得包括FJ一个人把木筏从对岸划回来接下一批的奶牛的时间。

输入

第1行: 2个用空格隔开的整数：N 和 M

第2..N+1行: 第i+1为1个整数：M_i

输出

第1行: 输出1个整数，为FJ把所有奶牛都载过河所需的最少时间

样例输入

5 10
3
4
6
100
1

样例输出

50

数据范围限制

提示

【 样例数据说明】

输入说明:FJ带了5头奶牛出门。如果是单独把木筏划过河，FJ需要花10分钟，带上

1头奶牛的话，是13分钟，2头奶牛是17分钟，3头是23分钟，4头是123分钟，将5头一次性载过去，花费的时间是124分钟。

输出说明:Farmer John第一次带3头奶牛过河（23分钟），然后一个人划回来（10分钟），最后带剩下的2头奶牛一起过河（17分钟），总共花费的时间是23+10+17 = 50分钟。

动态规划

 方程为：f[i]:=min(f[i],f[i-j]+m[j])

代码：

const
 maxn=2500;
var
 f:array[0..maxn]of longint;
 a:array[0..maxn]of longint;
 n,m:longint;

procedure init;
var i,j:longint;
begin
 readln(n,m);
 for i:=1 to n do
  begin
   readln(j);
   a[i]:=j+a[i-1];
  end;
 for i:=1 to n do
   a[i]:=a[i]+2*m;
   f:=a;
end;

function min(a,b:longint):longint;
begin
 if a>b then exit(b) else exit(a);
end;

procedure dp;
var i,j:longint;
begin
 for i:=1 to n do
  for j:=0 to n do
  if i>j then
  f[i]:=min(f[i],f[i-j]+a[j]);
 write(f[n]-m);
end;

begin
 assign(input,'river.in');reset(input);
 assign(output,'river.out');rewrite(output);
 init;
 dp;
 close(input);close(output);
end.