比赛 NOIP2008集训模拟4 评测结果 WWWWWWWWWW
题目名称 灵魂分流药剂 最终得分 0
用户昵称 rottenwood 运行时间 0.000 s
代码语言 Pascal 内存使用 0.00 MiB
提交时间 2008-11-13 11:28:48
显示代码纯文本
program ex;
type
 sz=array[0..100]of integer;
 ss=array[-100..100]of integer;
 zs=array[1..100,1..100]of boolean;
var
 d:zs;
 f,g:ss;
 w,v,t,p:sz;
 f1,f2:text;
 n,m,a,b:integer;
procedure init;
 var
  i,j:integer;
 begin
  assign(f1,'soultap.in');
  assign(f2,'soultap.out');
  reset(f1);
  rewrite(f2);
  readln(f1,n,m,a,b);
  for i:=1 to n  do
    readln(f1,w[i],v[i],t[i],p[i]);
 end;
procedure main;
 var
  i,j:integer;
 begin
  for i:=1 to a do
    for j:=n downto 1 do
      if (i-w[j]>=0)and(d[i,t[j]]=false) then
        if (f[i-w[j]]+p[j]>f[i])and(g[i-w[j]]+v[j]<=b)
           then begin
                 f[i]:=f[i-w[j]]+p[j];
                 g[i]:=g[i-w[j]]+v[j];
                 d[i,t[j]]:=true;
                end;
  writeln(f2,f[a]);
 end;
begin
 init;
 main;
 close(f2);
end.