主题：QBASIC
逍遥剑圣
[专家分：130] 发布于 2010-07-24 22:23:00
、有一个最多只能装１０公斤重物品的网袋。现在有白菜５公斤，肉２公斤，鱼３.５公斤，酱油连瓶１.７公斤，白糖１公斤，土豆５.１公斤。如果这些物品每件不能拆开来装(也就是说只许全装或不装)，请设计一个程序，使网袋装的物品总重量最大。
回复列表 （共15个回复）
11 楼
独手编程 [专家分：360] 发布于 2010-11-11 18:08:00
给分啊
12 楼
LZJQB [专家分：140] 发布于 2010-11-11 19:06:00
CLS
DIM X(100), A(100), B(100), C(100), D(100), E(100), F(100)
FOR A = 0 TO 1
FOR B = 0 TO 1
FOR C = 0 TO 1
FOR D = 0 TO 1
FOR E = 0 TO 1
FOR F = 0 TO 1
X = A * 5 + B * 2 + C * 3.5 + D * 1.7 + E * 1 + F * 5.1
IF X > 10 THEN 1
IF X <> 0 THEN N = N + 1: X(N) = X: A(N) = A: B(N) = B: C(N) = C: D(N) = D: E(N) = E: F(N) = F
1 NEXT F, E, D, C, B, A
MAX = X(1)
FOR I = 2 TO N
IF X(I) > MAX THEN MAX = X(I): S = I
NEXT I
PRINT A(S); B(S); C(S); D(S); E(S); F(S)
PRINT X(S)
END
13 楼
huangyb731 [专家分：630] 发布于 2010-11-11 22:29:00
哈
昨天刚学
14 楼
huangyb731 [专家分：630] 发布于 2010-11-11 22:32:00
无需数组
cls
for A=0 to 1
for B=0 to 1
for C=0 to 1
for D=0 to 1
for E=0 to 1
S=A*重量+B*哇………………不行了
if S<=10 and S>G then
G=S
Q=A
W=B
R=C
T=D
Y=E
next
next
……
……
……
print q,w,r,t,y
end
15 楼
huangyb731 [专家分：630] 发布于 2010-11-11 22:34:00
5楼6 lou 太麻烦了吧
我来回复
您所在位置：