大师作文网pascal难题求解农民john面临一个很可怕的事实,因为防范失措他存储的所有稻草给澳大利亚蟑螂吃光了,他将面临没有稻草
来源：学生作业帮 编辑：大师作文网作业帮 分类：综合作业 时间：2024/11/16 14:14:48
pascal难题求解
农民john面临一个很可怕的事实,因为防范失措他存储的所有稻草给澳大利亚蟑螂吃光了,他将面临没有稻草喂养奶牛的局面.在奶牛断粮之前,john拉着他的马车到农民Don的农场中买一些稻草给奶牛过冬.已知john的马车可以装的下C(1
农民john面临一个很可怕的事实,因为防范失措他存储的所有稻草给澳大利亚蟑螂吃光了,他将面临没有稻草喂养奶牛的局面.在奶牛断粮之前,john拉着他的马车到农民Don的农场中买一些稻草给奶牛过冬.已知john的马车可以装的下C(1
很简单的01背包.
var n,m,i,x,w:longint;
f:array[0..50000] of longint;
begin
read(m,n);
for i:=1 to n do
begin
read(w);
for x:=m downto w do
if f[x-w]+w>f[x] then f[x]:=f[x-w]+w;
end;
write(f[m]);
end.
再问： 谢谢！ 能给些解释吗，本人菜鸟一只。 %>_
var n,m,i,x,w:longint;
f:array[0..50000] of longint;
begin
read(m,n);
for i:=1 to n do
begin
read(w);
for x:=m downto w do
if f[x-w]+w>f[x] then f[x]:=f[x-w]+w;
end;
write(f[m]);
end.
再问： 谢谢！ 能给些解释吗，本人菜鸟一只。 %>_