记录编号 8154 评测结果 AAAAAAAAAA
题目名称 [BYVoid S1] 灵魂分流药剂 最终得分 100
用户昵称 Gravatar苏轼 是否通过 通过
代码语言 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.