[已解决]石头和货物

爱疯 · 发表于 2013-2-28 20:04

一个商人用一块40磅的石头和天平称货物。有一天他把石头摔成4块，每块质量都是整数。他很高兴，因为现在他从1磅到40磅中的每个整数磅的货物都能称出来了。请问4块石头各多重？

这是网上看到的题，能用程序或其它方法求出来么？谢谢

最佳答案

月排行榜 / 总排行榜

那么的帅

2013-2-28 21:39

爱疯发表于 2013-2-28 21:14
因为不是实际问题，所以不急，
我还是先下去想想好了。。。。

Sub test()
Dim ARR11(), arr12(1 To 4)
S = 40
ReDim ARR11(1 To S, 1 To 1)
'以下利用循环，判断不同数值的组合，算法有待优化
For I = 1 To S
For l1 = -1 To 1 Step 1
For l2 = -3 To 3 Step 3
For l3 = -9 To 9 Step 9
For l4 = -27 To 27 Step 27
If l1 + l2 + l3 + l4 = I Then GoTo 100
Next l4
Next l3
Next l2
Next l1
100:
'数值排序
arr12(1) = l1
arr12(2) = l2
arr12(3) = l3
arr12(4) = l4
For P = 1 To 3
For Q = P + 1 To 4
If Abs(arr12(P)) < Abs(arr12(Q)) Then
T = arr12(P)
arr12(P) = arr12(Q)
arr12(Q) = T
End If
Next Q
Next P
'组合算式
SS = ""
For P = 1 To 4
If arr12(P) <> 0 Then SS = SS & Format(arr12(P), "+0;-0")
Next P
SS = I & "=" & Right(SS, Len(SS) - 1)
ARR11(I, 1) = SS
Next I
'返回结果
Range("A1").Resize(S, 1) = ARR11
End Sub

复制代码

296024-VBA-3的N次幂组合不同的数值.rar (8.31 KB, 下载次数: 11)

那么的帅 · 发表于 2013-2-28 20:33

1-N的数都能通过3^A±3^B±3^C……表达。
40 = 1+3+9+27
任何一个数都可以用3的几次幂加减之后得到
譬如
1=3的0次幂
2=3^1-3^0
3=3^1
4=3^1+3^0 （3+1）
5=3^2-3^1-3^0（9-3-1）
40 = 1+3+9+27 =3^0+3^1+3^2+3^3

所以最轻的是1，最重的27

爱疯 · 发表于 2013-2-28 20:51

那么的帅发表于 2013-2-28 20:33
1-N的数都能通过3^A±3^B±3^C……表达。
40 = 1+3+9+27
任何一个数都可以用3的几次幂加减之后得到

谢谢帅哥的说明，学习了！
很想知道，如何用代码返回如下效果：

1=1
2=3-1
3=3
4=3+1
5=9-3-1
.
.
.
40 = 27+9+3+1

即列举1到40的（由这几个数构成的）表达式。
如写成40=1+3+9+27也可

那么的帅 · 发表于 2013-2-28 20:51

爱疯发表于 2013-2-28 20:51
谢谢帅哥的说明，学习了！
很想知道，如何用代码返回如下效果：

最简单的方法，用循环并进行判断。

爱疯 · 发表于 2013-2-28 20:57

那么的帅发表于 2013-2-28 20:51
最简单的方法，用循环并进行判断。

啊？听你说了，我还没是不知道

爱疯 · 发表于 2013-2-28 21:14

因为不是实际问题，所以不急，
我还是先下去想想好了。。。。

那么的帅 · 发表于 2013-2-28 21:39

爱疯发表于 2013-2-28 21:14
因为不是实际问题，所以不急，
我还是先下去想想好了。。。。

Sub test()
Dim ARR11(), arr12(1 To 4)
S = 40
ReDim ARR11(1 To S, 1 To 1)
'以下利用循环，判断不同数值的组合，算法有待优化
For I = 1 To S
For l1 = -1 To 1 Step 1
For l2 = -3 To 3 Step 3
For l3 = -9 To 9 Step 9
For l4 = -27 To 27 Step 27
If l1 + l2 + l3 + l4 = I Then GoTo 100
Next l4
Next l3
Next l2
Next l1
100:
'数值排序
arr12(1) = l1
arr12(2) = l2
arr12(3) = l3
arr12(4) = l4
For P = 1 To 3
For Q = P + 1 To 4
If Abs(arr12(P)) < Abs(arr12(Q)) Then
T = arr12(P)
arr12(P) = arr12(Q)
arr12(Q) = T
End If
Next Q
Next P
'组合算式
SS = ""
For P = 1 To 4
If arr12(P) <> 0 Then SS = SS & Format(arr12(P), "+0;-0")
Next P
SS = I & "=" & Right(SS, Len(SS) - 1)
ARR11(I, 1) = SS
Next I
'返回结果
Range("A1").Resize(S, 1) = ARR11
End Sub

复制代码

296024-VBA-3的N次幂组合不同的数值.rar (8.31 KB, 下载次数: 11)

liuguansky · 发表于 2013-3-1 09:00

随机也OK的吧。

Sub t31()
Dim ar$(1 To 40, 1 To 1), ak(3)
Dim i&, j&, s$, a, b, c
a = Array(1, 3, 9, 27)
b = Array("+", "-")
c = Array(-1, 0, 1)
For i = 1 To 40
Do
s = ""
For j = 0 To 3
s = s & b(Int(Rnd() * 2)) & (a(j) * c(Int(Rnd() * 3)))
Next j
Loop Until Evaluate(Mid(s, 2)) = i
ar(i, 1) = Replace(Replace(Replace(Mid(s, 2), _
"--", "+"), "-+", "-"), "+-", "-") & "=" & i
Next i
[a1].Resize(40) = ar
End Sub

复制代码

爱疯 · 发表于 2013-3-1 10:04

谢谢帅哥和花！

{:25:}

华山论剑 · 发表于 2013-3-1 10:51

提示: 作者被禁止或删除内容自动屏蔽

		自动登录	找回密码
密码			注册

华山论剑华山论剑当前离线积分 84 IP卡狗仔卡	发表于 2013-3-1 10:51 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽
华山论剑华山论剑当前离线积分 84 IP卡狗仔卡
	回复使用道具举报显身卡

[已解决]石头和货物

相关帖子

评分