比赛 NOIP2008集训模拟4 评测结果 WWWWWWWWWW
题目名称 灵魂分流药剂 最终得分 0
用户昵称 E.M.B.E.R 运行时间 0.000 s
代码语言 Pascal 内存使用 0.00 MiB
提交时间 2008-11-13 09:19:14
显示代码纯文本
program EmberAsh;
var
w,v,t,p:array[1..100]of longint;
f:array[1..10]of boolean;
i,j,k,ww,vv,tt,pp,aa,bb,n,m,max:longint;
fin,fout:text;

procedure try(ss,tt,mm:longint);
var
i,j,k,s1,t1,m1,temp:longint;
begin
for i:=1 to n do
 // begin
  //temp:=t[i];
  if (f[t[i]]=false)and(mm+p[i]>max)and(ss-w[i]>=0)and(tt-v[i]>=0) then
    begin
    f[t[i]]:=true;
    s1:=ss-w[i];
    t1:=tt-v[i];
    m1:=mm+p[i];
    if m1>max then max:=m1;
    try(s1,t1,m1);
    f[t[i]]:=false;
    end;
 // end;
end;

BEGIN
assign(fin,'soultap.in');reset(fin);
assign(fout,'soultap.out');rewrite(fout);
readln(fin,n,m,aa,bb);
for i:=1 to n do
  readln(fin,w[i],v[i],t[i],p[i]);
try(aa,bb,0);
writeln(fout,max);
close(fin);close(fout);
END.