比赛 |
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.