free pascal 背包可放重量S,有N件物品,重量为X1、X2.Xn,数是整数,从n件物品中选取几件,使重量和正好为S.

来源:学生作业帮助网 编辑:六六作业网 时间:2024/12/24 11:20:52
freepascal背包可放重量S,有N件物品,重量为X1、X2.Xn,数是整数,从n件物品中选取几件,使重量和正好为S.freepascal背包可放重量S,有N件物品,重量为X1、X2.Xn,数是整

free pascal 背包可放重量S,有N件物品,重量为X1、X2.Xn,数是整数,从n件物品中选取几件,使重量和正好为S.
free pascal
背包可放重量S,有N件物品,重量为X1、X2.Xn,数是整数,从n件物品中选取几件,使重量和正好为S.

free pascal 背包可放重量S,有N件物品,重量为X1、X2.Xn,数是整数,从n件物品中选取几件,使重量和正好为S.
var t,m,i,j,a,b:integer;
w:array[0..1000] of integer;
begin
readln(t,m);
fillchar(w,sizeof(w),0);
for i:=1 to m do begin
readln(a,b);
for j:=t-a downto 0 do if (w[j]+b)>w[j+a] then w[j+a]:=w[j]+b;
end;
writeln(w[t]);
end.