记录编号 |
8154 |
评测结果 |
AAAAAAAAAA |
题目名称 |
[BYVoid S1] 灵魂分流药剂 |
最终得分 |
100 |
用户昵称 |
苏轼 |
是否通过 |
通过 |
代码语言 |
Pascal |
运行时间 |
0.120 s |
提交时间 |
2008-11-13 11:38:09 |
内存使用 |
0.20 MiB |
显示代码纯文本
program cch(input,output);
var
n,m,x,y,i,j,k,q,w1,v1,t,p1:longint;
w,v,p:array[1..10,1..100] of longint;
f:array[0..100,0..100] of int64;
ch:array[1..100] of longint;
begin
assign(input,'soultap.in');
assign(output,'soultap.out');
reset(input);
rewrite(output);
readln(n,m,x,y);
for i:=1 to m do ch[i]:=0;
for i:=1 to n do
begin
readln(w1,v1,t,p1);
inc(ch[t]); w[t,ch[t]]:=w1;
v[t,ch[t]]:=v1;
p[t,ch[t]]:=p1;
end;
for i:=0 to x do
for j:=0 to y do f[i,j]:=0;
for k:=1 to m do
for i:=x downto 0 do
for j:=y downto 0 do
for q:=1 to ch[k] do
if (i>=w[k,q])and(j>=v[k,q])and(f[i,j]<f[i-w[k,q],j-v[k,q]]+p[k,q]) then
f[i,j]:=f[i-w[k,q],j-v[k,q]]+p[k,q];
write(f[x,y]);
close(input);
close(output);
end.