PASCAL题目，高手帮帮忙，跪谢！！

来源：百度知道 编辑：UC知道 时间：2024/06/05 00:47:58
小明有一个最多只能装10斤重物品的网袋，现有白菜5斤，猪肉2斤，鱼3.5斤，白糖1斤，酱油连瓶重1.7斤，土豆5.1斤，请设计一个程序，使小明的网袋总重量为最大。

程序+思路

var a,b,c,d,e,f:integer;max,s:real;
begin
for a:=0 to 2 do
for b:=0 to 5 do
for c:=0 to 2 do
for d:=0 to 10 do
for e:=0 to 5 do
for f:=0 to 1 do begin
s:=a*5+b*2+c*3.5+d+e*1.7+f*5.1;
if(s>=max)and(s<=10)then begin
max:=s;
writeln('baicai=',a,' zhurou=',b,' yu=',c,'
baitang=',d,' jiangyou=',e,' tudou=',f);
end;
end;
end.

把分数加到200分，这样才值