枚舉算法之算法實現(xiàn)

枚舉算法之程序?qū)崿F(xiàn)什么是枚舉算法“雞、兔同籠問題”

雞、兔共79只，200只腳在籠里走，試問多有少只雞？多少只兔？枚舉法就是按問題本身的性質(zhì)，一一列舉出該問題所有可能的解，并在逐一列舉的過程中，檢驗每個可能解是否是問題的真正解，若是，我們采納這個解，否則拋棄它。解題過程解題過程分兩步：逐一列舉可能的解的范圍。這個過程用循環(huán)結(jié)構(gòu)實現(xiàn)。對每一個列舉可能的解進行檢驗，判斷是否為真正的解。這個過程用分支結(jié)構(gòu)實現(xiàn)。枚舉算法=循環(huán)結(jié)構(gòu)+分支結(jié)構(gòu)，循環(huán)結(jié)構(gòu)內(nèi)嵌套選擇結(jié)構(gòu)結(jié)構(gòu)流程圖開始結(jié)束輸入輸出循環(huán)結(jié)構(gòu)分支結(jié)構(gòu)作用：逐一列舉可能解的范圍作用：逐一檢驗可能解的是否是真解代碼填空DimchickenAsIntegerDimfootAs()

Forchicken=1to()foot=()If()()Print"雞:"+Str()EndIfNextchickenintegerChicken*2+(79-chicken)*479Foot=200thenchickenPrivateSubForm_Click()DimrabbitAsIntegerDimchickenAsIntegerDimfootAsIntegerForchicken=1To79foot=chicken*2+(79-chicken)*4Iffoot=200ThenPrint"雞:"+Str(chicken)rabbit=79-chickenPrint"兔:"+Str(rabbit)EndIfNextchickenEndSub例:一份單據(jù)被涂抹的數(shù)字的推算。問題：一張單據(jù)上有一個5位數(shù)的編號，其百位數(shù)和十位數(shù)處已經(jīng)變得模糊不清，如圖所示。但是知道這個5位數(shù)是37或67的倍數(shù)?，F(xiàn)在要設(shè)計一個算法，找出所有滿足這些條件的5位數(shù)。并統(tǒng)計這些5位數(shù)的個數(shù)。要求：分別有DO循環(huán)和FOR循環(huán)各寫出一段代碼。任務(wù)000102039899000102039899……讓變量J依次取0到99這100個不同的值,同時對于J的每個確定的值乘以10加上25006這樣就能形成一個可能解.0J乘以1000加上25006250061102501622025026……98980259869999025996J驗證條件:NMOD37=0

OR

NMOD67=0for循環(huán)PrivateSubCommand1_Click()DimjAsInteger'定義一個中間被涂抹的兩位數(shù)變量

DimnAsInteger'定義被求的結(jié)果5位數(shù)變量

DimcAsInteger'定義被求的符合要求的五位數(shù)個數(shù)變量

c=0List1.ClearForj=0To99n=25006+j*10IfnMod37=0OrnMod67=0ThenList1.AddItemStr(n)c=c+1EndIfNextjList1.AddItem"總計有"+Str(c)+"個五位數(shù)"EndSubDo循環(huán)PrivateSubCommand1_Click()DimjAsInteger'定義一個中間被涂抹的兩位數(shù)變量

DimnAsInteger'定義被求的結(jié)果5位數(shù)變量

DimcAsInteger'定義被求的符合要求的五位數(shù)個數(shù)變量

c=0List1.ClearDoWhilej<=99n=25006+j*10IfnMod37=0OrnMod67=0ThenList1.AddItemStr(n)c=c+1EndIfj=j+1LoopList1.AddItem"總計有"+Str(c)+"個五位數(shù)"EndSub2、在聯(lián)歡會上，小明提出玩數(shù)7的游戲：游戲規(guī)則：從1開始數(shù)起，每個人數(shù)一個數(shù)，凡是遇到7的倍數(shù)，就要喊“過”，這樣一直數(shù)到100為止。要求：用枚舉算法幫小明找出1到100之間所有7的倍數(shù)。結(jié)果顯示在窗體上。PrivateSubForm_Click()DimiAsIntegeri=1Fori=1To100IfiMod7=0ThenPrintiEndIfNextiEndSubfor循環(huán)PrivateSubForm_Click()DimiAsIntegeri=1DoWhilei<=100IfiMod7=0ThenPrintiEndIfi=i+1LoopEndSubDo循