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

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

雞、兔共79只，200只腳在籠里走，試問多有少只雞？多少只兔？枚舉法就是按問題本身的性質(zhì)，一一列舉出該問題所有可能的解，并在逐一列舉的過程中，檢驗(yàn)每個(gè)可能解是否是問題的真正解，若是，我們采納這個(gè)解，否則拋棄它。解題過程解題過程分兩步：逐一列舉可能的解的范圍。這個(gè)過程用循環(huán)結(jié)構(gòu)實(shí)現(xiàn)。對(duì)每一個(gè)列舉可能的解進(jìn)行檢驗(yàn)，判斷是否為真正的解。這個(gè)過程用分支結(jié)構(gòu)實(shí)現(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)作用：逐一列舉可能解的范圍作用：逐一檢驗(yàn)可能解的是否是真解代碼填空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ù)上有一個(gè)5位數(shù)的編號(hào)，其百位數(shù)和十位數(shù)處已經(jīng)變得模糊不清，如圖所示。但是知道這個(gè)5位數(shù)是37或67的倍數(shù)。現(xiàn)在要設(shè)計(jì)一個(gè)算法，找出所有滿足這些條件的5位數(shù)。并統(tǒng)計(jì)這些5位數(shù)的個(gè)數(shù)。要求：分別有DO循環(huán)和FOR循環(huán)各寫出一段代碼。任務(wù)000102039899000102039899……讓變量J依次取0到99這100個(gè)不同的值,同時(shí)對(duì)于J的每個(gè)確定的值乘以10加上25006這樣就能形成一個(gè)可能解.0J乘以1000加上25006250061102501622025026……98980259869999025996J驗(yàn)證條件:NMOD37=0

OR

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

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

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

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

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

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

c=0List1.ClearDoWhilej<=99n=25006+j*10IfnMod37=0OrnMod67=0ThenList1.AddItemStr(n)c=c+1EndIfj=j+1LoopList1.AddItem"總計(jì)有"+Str(c)+"個(gè)五位數(shù)"EndSub2、在聯(lián)歡會(huì)上，小明提出玩數(shù)7的游戲：游戲規(guī)則：從1開始數(shù)起，每個(gè)人數(shù)一個(gè)數(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循