记录编号 124749 评测结果 AAAAAAAAAA
题目名称 NASA的食物计划 最终得分 100
用户昵称 Gravatar传奇 是否通过 通过
代码语言 Pascal 运行时间 0.098 s
提交时间 2014-10-05 19:38:01 内存使用 0.78 MiB
显示代码纯文本
program cojs1671;
type
  node=record
    zhi,ti,kal:longint;
  end;
var
  f:array[0..400,0..400] of longint;
  a:array[1..50] of node;
  i,j,k,m,n,tt,zz:longint;
function max(a,b:longint):longint;
begin
  if a>b then exit(a);
  exit(b);
end;
begin
  assign(input,'nasa.in');
  assign(output,'nasa.out');
  reset(input);
  rewrite(output);

  readln(tt,zz);
  readln(n);
  for i:=1 to n do
    readln(a[i].ti,a[i].zhi,a[i].kal);
  fillchar(f,sizeof(f),0);
  for i:=1 to n do
    begin
      for j:=tt downto a[i].ti do
        for k:=zz downto a[i].zhi do
          f[j,k]:=max(f[j,k],f[j-a[i].ti,k-a[i].zhi]+a[i].kal);
    end;
  writeln(f[tt,zz]);

  close(input);
  close(output);
end.