1樓:萬年金剛鑽
用規劃求解應該可以得到答案,不過,可能會計算很長時間
做了一個規劃求解,得到答案:
2樓:匿名使用者
這幾種組合最接近,和3669.81的差值小於0.1,這種東東得用程式設計的
option explicit
dim a, b, i, j, res, p, k
a = array(35, 45, 55, 78, 84, 100, 136.5, 180, 220.5, 240, 250, 270, 312, 466.
54, 520, 540, 1320, 1427.4, 1764, 5050.5)
for k = 2 to 19
b = scombin(a, k)
for i = 1 to ubound(b, 1)
p = 0: res = ""
for j = 1 to ubound(b, 2)
p = p + cdbl(b(i, j))
res = res & "," & b(i, j)
next
if abs(p - 3669.81) < 0.1 then
res = right(res, len(res) - 1)
rtxt res & vbcrlf
end if
next
erase b
next
msgbox "all_done!!!"
function scombin(byref srr(), byval c)
dim bin(), res()
dim i, a, l, j, t, k
dim one, zero
t = ubound(srr)
a = combin(t + 1, c)
redim bin(t)
redim res(a, c)
for i = 1 to t
if i <= c then bin(i) = 1 else bin(i) = 0
next
for l = 1 to a
k = 0
for i = 1 to t
if bin(i) = 1 then
k = k + 1
res(l, k) = srr(i)
end if
next
for i = 1 to t - 1
if bin(i) = 1 and bin(i + 1) = 0 then
bin(i) = 0
bin(i + 1) = 1
exit for
end if
next
one = 0: zero = 0
for j = 1 to i - 1
if bin(j) = 1 then one = one + 1 else zero = zero + 1
next
if one > 0 then
for j = 0 to one
bin(j) = 1
next
end if
if zero > 0 then
for j = 1 to zero
bin(j + one) = 0
next
end if
next
scombin = res
end function
function fact(byval num)
if num <= 1 then
fact = 1
else
fact = num * fact(num - 1)
end if
end function
function combin(byval m, byval n)
dim m_c, n_c, mn_c
m_c = fact(m)
n_c = fact(n)
mn_c = fact(m - n)
combin = m_c / (n_c * mn_c)
end function
sub rtxt(byval str)
dim fso, ftxt
set fso = createobject("scripting.filesystemobject")
set ftxt = fso.opentextfile("d:\res.txt", 8, true)
ftxt.write str
ftxt.close
set ftxt = nothing
set fso = nothing
end sub
3樓:匿名使用者
用vba**做迴圈,一組一組的試唄
4樓:騎蝸牛笑話烏龜
把每個數字放到單元格里,然後可以求和
5樓:
題目寫的不太明白 sum函式不行嗎
有和值求一定範圍內的各個數字能求出來嗎
6樓:姓王的
可以用excel的vba程式設計計算出來,但這裡一發**就被吞掉,沒辦法幫你。你追問一下再發**試試
1-20,任意取3個數字組合,組合成和值是34的排列有幾種,懂的,大神,能幫我全部拍出來下?
7樓:李常進
1+13+20=34
1+14+19=34
1+15+18=34
1+16+17=34
1+17+16=34
1+18+15=34
1+19+14=34
1+20+13=34
2+12+20=34
2+13+19=34
2+14+18=34
2+15+17=34
2+17+15=34
2+18+14=34
2+19+13=34
2+20+12=34
3+11+20=34
3+12+19=34
3+13+18=34
3+14+17=34
3+15+16=34
3+16+15=34
3+17+14=34
3+18+13=34
3+19+12=34
3+20+11=34
4+10+20=34
4+11+19=34
4+12+18=34
4+13+17=34
4+14+16=34
4+16+14=34
4+17+13=34
4+18+12=34
4+19+11=34
4+20+10=34
5+9+20=34
5+10+19=34
5+11+18=34
5+12+17=34
5+13+16=34
5+14+15=34
5+15+14=34
5+16+13=34
5+17+12=34
5+18+11=34
5+19+10=34
5+20+9=34
6+8+20=34
6+9+19=34
6+10+18=34
6+11+17=34
6+12+16=34
6+13+15=34
6+15+13=34
6+16+12=34
6+17+11=34
6+18+10=34
6+19+9=34
6+20+8=34
7+8+19=34
7+9+18=34
7+10+17=34
7+11+16=34
7+12+15=34
7+13+14=34
7+14+13=34
7+15+12=34
7+16+11=34
7+17+10=34
7+18+9=34
7+19+8=34
7+20+7=34
8+6+20=34
8+7+19=34
8+9+17=34
8+10+16=34
8+11+15=34
8+12+14=34
8+14+12=34
8+15+11=34
8+16+10=34
8+17+9=34
8+18+8=34
8+19+7=34
8+20+6=34
9+5+20=34
9+6+19=34
9+7+18=34
9+8+17=34
9+10+15=34
9+11+14=34
9+12+13=34
9+13+12=34
9+14+11=34
9+15+10=34
9+16+9=34
9+17+8=34
9+18+7=34
9+19+6=34
9+20+5=34
10+4+20=34
10+5+19=34
10+6+18=34
10+7+17=34
10+8+16=34
10+9+15=34
10+11+13=34
10+13+11=34
10+14+10=34
10+15+9=34
10+16+8=34
10+17+7=34
10+18+6=34
10+19+5=34
10+20+4=34
11+3+20=34
11+4+19=34
11+5+18=34
11+6+17=34
11+7+16=34
11+8+15=34
11+9+14=34
11+10+13=34
11+12+11=34
11+13+10=34
11+14+9=34
11+15+8=34
11+16+7=34
11+17+6=34
11+18+5=34
11+19+4=34
11+20+3=34
12+2+20=34
12+3+19=34
12+4+18=34
12+5+17=34
12+6+16=34
12+7+15=34
12+8+14=34
12+9+13=34
12+10+12=34
12+13+9=34
12+14+8=34
12+15+7=34
12+16+6=34
12+17+5=34
12+18+4=34
12+19+3=34
12+20+2=34
13+1+20=34
13+2+19=34
13+3+18=34
13+4+17=34
13+5+16=34
13+6+15=34
13+7+14=34
13+8+13=34
13+9+12=34
13+10+11=34
13+11+10=34
13+12+9=34
13+14+7=34
13+15+6=34
13+16+5=34
13+17+4=34
13+18+3=34
13+19+2=34
13+20+1=34
14+1+19=34
14+2+18=34
14+3+17=34
14+4+16=34
14+5+15=34
14+6+14=34
14+7+13=34
14+8+12=34
14+9+11=34
14+11+9=34
14+12+8=34
14+13+7=34
14+15+5=34
14+16+4=34
14+17+3=34
14+18+2=34
14+19+1=34
15+1+18=34
15+2+17=34
15+3+16=34
15+4+15=34
15+5+14=34
15+6+13=34
15+7+12=34
15+8+11=34
15+9+10=34
15+10+9=34
15+11+8=34
15+12+7=34
15+13+6=34
15+14+5=34
15+16+3=34
15+17+2=34
15+18+1=34
16+1+17=34
16+2+16=34
16+3+15=34
16+4+14=34
16+5+13=34
16+6+12=34
16+7+11=34
16+8+10=34
16+10+8=34
16+11+7=34
16+12+6=34
16+13+5=34
16+14+4=34
16+15+3=34
16+17+1=34
17+1+16=34
17+2+15=34
17+3+14=34
17+4+13=34
17+5+12=34
17+6+11=34
17+7+10=34
17+8+9=34
17+9+8=34
17+10+7=34
17+11+6=34
17+12+5=34
17+13+4=34
17+14+3=34
17+15+2=34
17+16+1=34
18+1+15=34
18+2+14=34
18+3+13=34
18+4+12=34
18+5+11=34
18+6+10=34
18+7+9=34
18+9+7=34
18+10+6=34
18+11+5=34
18+12+4=34
18+13+3=34
18+14+2=34
18+15+1=34
19+1+14=34
19+2+13=34
19+3+12=34
19+4+11=34
19+5+10=34
19+6+9=34
19+7+8=34
19+8+7=34
19+9+6=34
19+10+5=34
19+11+4=34
19+12+3=34
19+13+2=34
19+14+1=34
20+1+13=34
20+2+12=34
20+3+11=34
20+4+10=34
20+5+9=34
20+6+8=34
20+8+6=34
20+9+5=34
20+10+4=34
20+11+3=34
20+12+2=34
20+13+1=34
什麼軟體能讓讓一堆數字命名的資料夾按照大小順序排列,並且可以批量把裡面的檔案(同名)提取出來但另一
2 解壓出來後,雙擊開啟它。3 在主介面上方點選 新增檔案 按鈕,然後定位到你需要批量重新命名的資料夾目錄,使用 ctrl a 全選此資料夾下的所有檔案,再點選 開啟 按鈕。4 開啟後,在左側輸入框中輸入乙個新檔名 0。起始值建議為 1,增量建議為 1。選擇 檔名後遞增 以使重新命名的檔案成為常規檔...
買回一堆晒乾的柿子 柿餅 有澀味,如何去除
魯步昭懿 去除柿餅澀味的方法如下 1.放米缸子,把柿餅埋入米堆 2.把發澀的柿餅和幾個蘋果或梨放在一個食品袋子裡,把口紮緊,放幾天即可脫澀 3.補充 柿餅,中藥名。為柿科植物柿的果實經加工而成的餅狀食品,有白柿和烏柿兩種。柿餅上的白霜叫柿霜,柿霜能治咽喉幹痛,口舌生瘡,肺熱咳嗽,咯血等症。用柿霜10...
夢見我有私生子和一堆寵物狗好嗎?有什麼寓意
說明你現在的私生子,就好比你的寵物一樣,你非常寵愛她 池雍恬 這個你可以取到周公解夢上去查一下,看這個夢的寓意是什麼? 冉趣人生 這個夢說明你向來雖然事業有成。但是有可能因為合夥人的意見不同產生分歧。 哈哈阿哈哈 可能寓意你未來的生活會水深火熱吧,畢竟寵物狗和孩子都是讓你生活變得更混亂的 既然你夢到...