记录编号 |
213611 |
评测结果 |
AAAAAAAAAA |
题目名称 |
[HAOI 2010]订货 |
最终得分 |
100 |
用户昵称 |
FoolMike |
是否通过 |
通过 |
代码语言 |
Pascal |
运行时间 |
0.114 s |
提交时间 |
2015-12-12 20:19:21 |
内存使用 |
7.93 MiB |
显示代码纯文本
uses math;
var
n,m,s,i,j:longint;
u,d:array[1..50]of longint;
dp:array[1..50,-10001..10000]of int64;
begin
assign(input,'order.in');
reset(input);
assign(output,'order.out');
rewrite(output);
read(n,m,s);
for i:=1 to n do
read(u[i]);
for i:=1 to n do
read(d[i]);
for i:=2 to n do
for j:=-s-1 to s do
dp[i,j]:=maxlongint;
dp[1,0]:=d[1]*u[1];
for i:=1 to s do
dp[1,i]:=dp[1,i-1]+d[1];
for i:=2 to n do
begin
for j:=0 to s do
dp[i,j-u[i]]:=dp[i-1,j]+m*j;
for j:=-u[i]+1 to s do
dp[i,j]:=min(dp[i,j],dp[i,j-1]+d[i]);
end;
writeln(dp[n,0]);
close(input);
close(output);
end.