(ssl2290)潜水员(二维费用的背包)

潜水员
Time Limit:10000MS  Memory Limit:65536K
Total Submit:104 Accepted:56 
Case Time Limit:1000MS
Description
潜水员为了潜水要使用特殊的装备。他有一个带2种气体的气缸：一个为氧气，一个为氮气。让潜水员下潜的深度需要各种的数量的氧和氮。潜水员有一定数量的气缸。每个气缸都有重量和气体容量。潜水员为了完成他的工作需要特定数量的氧和氮。他完成工作所需气缸的总重的最低限度的是多少？ 
例如：潜水员有5个气缸。每行三个数字为：氧，氮的（升）量和气缸的重量： 
3 36 120 
10 25 129 
5 50 250 
1 45 130 
4 20 119 
如果潜水员需要5升的氧和60升的氮则总重最小为249 （1，2或者4，5号气缸）。 
你的任务就是计算潜水员为了完成他的工作需要的气缸的重量的最低值。 
Input
从文本文件gas.in中读入数据。 
第一行有2整数t，a（1<=t<=21，1<=a<=79）。它们表示氧，氮各自需要的量。 
第二行为整数n （1<=n<=1000）表示气缸的个数。 
此后的n行，每行包括ti，ai，wi（1<=ti<=21，1<=ai<=79，1<=wi<=800）3整数。这些各自是：第i个气缸里的氧和氮的容量及汽缸重量。 
Output
仅一行包含一个整数，为潜水员完成工作所需的气缸的重量总和的最低值。 
Sample Input
5 60
5
3 36 120
10 25 129
5 50 250
1 45 130
4 20 119
Sample Output
249
Source

var
 a,b,c:array[0..1000]of longint;
 f:array[0..1000,0..1000]of longint;
 y,d,n,i,j,k,t,tt:longint;
function min(a,b:longint):longint;
begin
 if a<b then exit(a);
 exit(b);
end;
begin
 fillchar(f,sizeof(f),$7F);//因为是比小，所以要赋大值
 f[0,0]:=0;一开始肯定是没有的啊
 readln(y,d);
 readln(n);
 for i:=1 to n do readln(a[i],b[i],c[i]);
 for i:=1 to n do
  for j:=y downto 0 do//用来求越少氧且满足需要量
   for k:=d downto 0 do//用来求越少氮且满足需要量
    begin
     t:=min(j+a[i],y);
     tt:=min(k+b[i],d);
     f[t,tt]:=min(f[t,tt],f[j,k]+c[i]);
    end;
 writeln(f[y,d]);
end.