记录编号 |
8289 |
评测结果 |
AAAAATAAAA |
题目名称 |
[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.