记录编号 121431 评测结果 AAAAAAAAAA
题目名称 NASA的食物计划 最终得分 100
用户昵称 GravatarFoolMike 是否通过 通过
代码语言 Pascal 运行时间 0.056 s
提交时间 2014-09-19 20:42:48 内存使用 0.78 MiB
显示代码纯文本
  1. var
  2. f:array[0..400,0..400]of longint;
  3. x,y,n,a,b,c,d,e,ans:longint;
  4. begin
  5. assign(input,'nasa.in');
  6. assign(output,'nasa.out');
  7. reset(input);
  8. rewrite(output);
  9.  
  10. read(x,y);
  11. read(n);
  12.  
  13. for n:=1 to n do
  14. begin
  15. read(a,b,c);
  16. for d:=x-a downto 0 do
  17. for e:=y-b downto 0 do
  18. if (f[d,e]+c>f[d+a,e+b]) then f[d+a,e+b]:=f[d,e]+c;
  19. end;
  20.  
  21. writeln(f[x,y]);
  22. close(input);close(output);
  23. end.
  24.