[BYVoid S1] 灵魂分流药剂 - E.M.B.E.R - 8289

记录编号	8289	评测结果	AAAAATAAAA
题目名称	213.[BYVoid S1] 灵魂分流药剂	最终得分	90
用户昵称	E.M.B.E.R	是否通过	未通过
代码语言	Pascal	运行时间	2.403 s
提交时间	2008-11-13 15:07:37	内存使用	0.11 MiB

显示代码纯文本

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(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.