用窮舉法設(shè)計(jì)程序

用窮舉法設(shè)計(jì)程序南京師范大學(xué)

教育技術(shù)系倪佳慧2018.

10有一根長(zhǎng)為600cm的鋼筋，需要截成長(zhǎng)度為69cm,39cm,29cm的三種規(guī)格的短料，在三種規(guī)格的短料都至少有一段的前提下，如何截取才能使余下的材料最少？如果不會(huì)編程，你會(huì)怎樣解決這個(gè)問(wèn)題？窮舉法列舉一切與命題相關(guān)的情況，然后依據(jù)問(wèn)題設(shè)定的條件，逐個(gè)檢查，找到滿(mǎn)足條件的解。問(wèn)題解決方案的數(shù)量比較多，數(shù)值比較大?？梢杂醚h(huán)語(yǔ)句來(lái)實(shí)現(xiàn)。

在什么時(shí)候用到窮舉法？循環(huán)語(yǔ)句For循環(huán)變量＝初值to終值[Step步長(zhǎng)]

<語(yǔ)句塊>Next循環(huán)變量窮舉法求解問(wèn)題的基本過(guò)程一、分析問(wèn)題將文字語(yǔ)言轉(zhuǎn)化為數(shù)學(xué)語(yǔ)言1<=i<=81<=j<=151<=k<=20

69*i+39*j+29*k<=600

二、設(shè)計(jì)算法將數(shù)學(xué)語(yǔ)言轉(zhuǎn)化為計(jì)算機(jī)語(yǔ)言通過(guò)流程圖來(lái)展現(xiàn)算法窮舉法求解問(wèn)題的基本過(guò)程如何把所有的情況都窮舉出來(lái)？開(kāi)始i=1J=1K=169*i+39*j+29*k<=600否結(jié)束Print

i,j,kK+1K<=20否J<=15i+1否i<=8否J+1三、編寫(xiě)程序PrivateSubCommand1_Click()DimiAsIntegerDimjAsIntegerDimkAsIntegerDimnAsIntegern=0Fori=1To8

Forj=_________

Fork=_____________

If____________________________Then

n=n+1

Print“第”;n;“個(gè)方案”

PrintTab(10);"69cm:";i;"根";

PrintTab(25);"39cm:";j;"根";

PrintTab(40);"29cm:";k;"根"

EndIf

Nextk

Next__Next__EndSub

窮舉法求解問(wèn)題的基本過(guò)程1

to151

to2069*x+39*y+29*z<=600ji四、調(diào)試程序?qū)ふ易顑?yōu)的解決方案？窮舉法求解問(wèn)題的基本過(guò)程讓計(jì)算機(jī)自己尋找最佳的解決方案思考題如果有一個(gè)4位數(shù)等于它的各位數(shù)字的4次方和，則這個(gè)4位數(shù)稱(chēng)為“玫瑰花數(shù)”。例如1634就是一個(gè)玫瑰花數(shù)：1634=14

+

64

+

34

+

44

提示：千位A=

x

\1000百位B=(x-1000*A)\100十位C=

(x-1000*A-100