For循環(huán)應(yīng)用(公開課)ding課件

For…Next循環(huán)應(yīng)用2012-11-22P1For…Next循環(huán)應(yīng)用2012-11-22P1主講教師：劉芳2012-11-22P2主講教師：劉芳2012-11-22P2

相傳我國南北朝時，京城有個賣雞的張姓老漢，他有一個兒子非常聰明，尤其擅長算術(shù)，到十二三歲時已是遠(yuǎn)近聞名的“小神童”了。當(dāng)朝宰相聽說后想試探個究竟，于是派仆人到張老漢的店里打聽雞的價錢，張老漢告知“公雞五文錢一只，母雞三文錢一只，小雞一文錢三只”。于是，仆人給他一百文錢，要求公雞、母雞、小雞都要，數(shù)量不多不少正好一百只，命他次日送到府上。這可難為了張老漢，他怎么湊也湊不夠這個數(shù)，只好問兒子?！靶∩裢辈换挪幻?，掐指一算就給出了答案，第二天照數(shù)送到宰相府。宰相見難不倒“小神童”，又讓仆人給張老漢一百文錢，要求再買一百只雞，搭配方法不能和上次一樣。結(jié)果“小神童”又很快給出了答案，宰相暗暗稱奇，想最后再試一次，誰知還是沒有難倒“小神童”。這個故事就是我國古代數(shù)學(xué)名著《張邱建算經(jīng)》里的百雞百錢問題。編寫程序，求出結(jié)果。任務(wù)12012-11-223相傳我國南北朝時，京城有個賣雞的張姓老漢，他有一個兒子非若公雞x只，母雞y只，小雞z只，依題意可以列出以下方程組：實現(xiàn)任務(wù)1（1）分析：①②2012-11-224若公雞x只，母雞y只，小雞z只，實現(xiàn)任務(wù)1（1）分析2個方程3個未知數(shù)不定方程組所謂不定方程，是指未知數(shù)的個數(shù)多于方程個數(shù)，且未知數(shù)受到某些限制（如要求是有理數(shù)、整數(shù)或正整數(shù)等等）的方程或方程組。

窮舉法（試湊法）2012-11-2252個方程不定方程組所謂不定方程，是指未知數(shù)的個數(shù)多于窮舉法是將各種可能的組合全部一一測試，將符合條件的組合輸出。2012-11-226窮舉法是將各種可能的組合全部一一測試，將符合條件的組①②將②*3得到15x+9y+z=300④由①得到z=100-x-y

③將③代入④得到15x+9y+100-x-y=300整理后得到：7x+4y=100

⑤2012-11-227①②將②*3得到15x+9y+z=300④由①得到z=“百錢買百雞”問題最終歸結(jié)為求7x+4y=100⑤的非負(fù)整數(shù)解。由⑤得x的范圍：x∈[0,14]且x∈Z由⑤得y=(100-7x)/4For循環(huán)實現(xiàn)重要結(jié)論Int函數(shù)Int(y)=y2012-11-228“百錢買百雞”問題最終歸結(jié)為求7x+4y=107x+4y=100xy100-x-y025754187881181124847x+4y=100的所有整數(shù)解2012-11-2297x+4y=100xy100-x-y025754187881（2）建立用戶界面，設(shè)置對象屬性。2012-11-2210（2）建立用戶界面，設(shè)置對象屬性。2012-11-2210PrivateSubCommand1_Click()DimpAsString‘記錄組合List1.ClearForx=0To14y=(100-7*x)/4IfInt(y)=yThenp=Format(x,"@@@@")&Format(y,"@@@@@")&_Format(100-x-y,"@@@@@")

List1.AddItempEndIfNextxEndSub（3）編寫程序代碼。2012-11-2211PrivateSubCommand1_Click()（3

馬克思曾經(jīng)做過這樣一道趣味數(shù)學(xué)題：有30個人在一家小飯館里用餐，其中有男人、女人和小孩。每個男人花了3先令，每個女人花了2先令，每個小孩花了1先令，一共花去50先令。問男人、女人和小孩各有幾人？課堂練習(xí)2012-11-2212馬克思曾經(jīng)做過這樣一道趣味數(shù)學(xué)題：有30個解題過程：假設(shè)男人x，女人y，小孩z，列方程組x+y+z=30①3x+2y+z=50②消元整理最后得2x+y=20并且y=20-2xx范圍：x∈[0,10]y范圍：y∈[0,20]2012-11-2213解題過程：消元整理最后得2x+y=20x范圍：x∈[0,10PrivateSubCommand1_Click()Print“男人”,“女人”,“小孩"

Forx=0To10y=20-2*xIfInt(y)=y

ThenPrintx,y,30-x-yEndIf

Nextx

EndSub參考代碼：2012-11-2214PrivateSubCommand1_Click()參考2012-11-22152012-11-2215課堂練習(xí)

12月13日凌晨3：13，丹姆斯頓大街上的卡爾一家發(fā)生了命案，卡爾先生一家人無一幸免。警局接到報案后立即派人趕往現(xiàn)場，經(jīng)過現(xiàn)場勘察、取樣，確定為有人蓄意謀殺……經(jīng)過多方取證，最后嫌疑犯鎖定在卡爾先生的四名同事身上，經(jīng)審訊得來的口供，警方確定四人中有一名嫌疑犯在說謊，而說謊的這個人就是殺害卡爾一家的兇手。四名嫌疑人（用甲、乙、丙、丁表示）的口供如下，請你判斷找出，誰在說謊？

警官問：“12月13日下午3：00至4：00誰離開過辦公室？”甲說：“不是我”，乙說：“是丙”，丙說：“是丁”，丁說：“不是我”。

小組討論，說出到底誰在說謊。并說明你是怎么判斷的。

2012-11-2216課堂練習(xí)2012-11-2216窮舉法（試湊法），是將各種可能的組合全部一一測試，將符合條件的組合輸出。課堂小結(jié)2、利用窮舉法解決典型例題——百錢買百雞。步驟：①據(jù)題意列出不定方程組。②消元，一般消掉z。③代入整理得到Ax+By=C。④變形得到y(tǒng)=(C-Ax)/B，利用Int函數(shù)判斷是否整數(shù)。⑤分析x取值范圍，利用For循環(huán)編寫程序。1、概念3、下拉列表框的屬性方法和事件List1.ClearList1.AddITem字符串表達(dá)式

[,位置]List1.RemoveItem位置P1082012-11-2217窮舉法（試湊法），是將各種可能的組合全部一一測試，將符合條思考：我們使用銀行卡在柜員機上取錢時，系統(tǒng)要限制輸入密碼的次數(shù)，為什么？2012-11-2218思考：我們使用銀行卡在柜員機上取錢時，系統(tǒng)要限制輸入密1、所謂“水仙花數(shù)”，是指一個三位數(shù)，其各位數(shù)的立方和等于該數(shù)，如153=1^3+5^3+3^3，編寫程序輸出所有的“水仙花數(shù)”。課后探究解題關(guān)鍵：三位數(shù)的個位數(shù)、十位數(shù)、百位數(shù)的表示。2012-11-22191、所謂“水仙花數(shù)”，是指一個三位數(shù)，其各位數(shù)的立方2、有一個長長的樓梯，如果一次上兩階，最后剩一階；如果一次上3階，最后剩兩階；如果一次上5階，最后剩4階；如果一次上6階，最后剩5階；如果一次上7階，剛好上完。請編寫程序，計算該階樓梯至少有多少臺階？2012-11-22202、有一個長長的樓梯，如果一次上兩階，最后剩一階；如共同學(xué)習(xí)，不斷進(jìn)步！謝謝！2012-11-2221共同學(xué)習(xí)，不斷進(jìn)步！謝謝！2012-11-2221For…Next循環(huán)應(yīng)用2012-11-22P22For…Next循環(huán)應(yīng)用2012-11-22P1主講教師：劉芳2012-11-22P23主講教師：劉芳2012-11-22P2

相傳我國南北朝時，京城有個賣雞的張姓老漢，他有一個兒子非常聰明，尤其擅長算術(shù)，到十二三歲時已是遠(yuǎn)近聞名的“小神童”了。當(dāng)朝宰相聽說后想試探個究竟，于是派仆人到張老漢的店里打聽雞的價錢，張老漢告知“公雞五文錢一只，母雞三文錢一只，小雞一文錢三只”。于是，仆人給他一百文錢，要求公雞、母雞、小雞都要，數(shù)量不多不少正好一百只，命他次日送到府上。這可難為了張老漢，他怎么湊也湊不夠這個數(shù)，只好問兒子。“小神童”不慌不忙，掐指一算就給出了答案，第二天照數(shù)送到宰相府。宰相見難不倒“小神童”，又讓仆人給張老漢一百文錢，要求再買一百只雞，搭配方法不能和上次一樣。結(jié)果“小神童”又很快給出了答案，宰相暗暗稱奇，想最后再試一次，誰知還是沒有難倒“小神童”。這個故事就是我國古代數(shù)學(xué)名著《張邱建算經(jīng)》里的百雞百錢問題。編寫程序，求出結(jié)果。任務(wù)12012-11-2224相傳我國南北朝時，京城有個賣雞的張姓老漢，他有一個兒子非若公雞x只，母雞y只，小雞z只，依題意可以列出以下方程組：實現(xiàn)任務(wù)1（1）分析：①②2012-11-2225若公雞x只，母雞y只，小雞z只，實現(xiàn)任務(wù)1（1）分析2個方程3個未知數(shù)不定方程組所謂不定方程，是指未知數(shù)的個數(shù)多于方程個數(shù)，且未知數(shù)受到某些限制（如要求是有理數(shù)、整數(shù)或正整數(shù)等等）的方程或方程組。

窮舉法（試湊法）2012-11-22262個方程不定方程組所謂不定方程，是指未知數(shù)的個數(shù)多于窮舉法是將各種可能的組合全部一一測試，將符合條件的組合輸出。2012-11-2227窮舉法是將各種可能的組合全部一一測試，將符合條件的組①②將②*3得到15x+9y+z=300④由①得到z=100-x-y

③將③代入④得到15x+9y+100-x-y=300整理后得到：7x+4y=100

⑤2012-11-2228①②將②*3得到15x+9y+z=300④由①得到z=“百錢買百雞”問題最終歸結(jié)為求7x+4y=100⑤的非負(fù)整數(shù)解。由⑤得x的范圍：x∈[0,14]且x∈Z由⑤得y=(100-7x)/4For循環(huán)實現(xiàn)重要結(jié)論Int函數(shù)Int(y)=y2012-11-2229“百錢買百雞”問題最終歸結(jié)為求7x+4y=107x+4y=100xy100-x-y025754187881181124847x+4y=100的所有整數(shù)解2012-11-22307x+4y=100xy100-x-y025754187881（2）建立用戶界面，設(shè)置對象屬性。2012-11-2231（2）建立用戶界面，設(shè)置對象屬性。2012-11-2210PrivateSubCommand1_Click()DimpAsString‘記錄組合List1.ClearForx=0To14y=(100-7*x)/4IfInt(y)=yThenp=Format(x,"@@@@")&Format(y,"@@@@@")&_Format(100-x-y,"@@@@@")

List1.AddItempEndIfNextxEndSub（3）編寫程序代碼。2012-11-2232PrivateSubCommand1_Click()（3

馬克思曾經(jīng)做過這樣一道趣味數(shù)學(xué)題：有30個人在一家小飯館里用餐，其中有男人、女人和小孩。每個男人花了3先令，每個女人花了2先令，每個小孩花了1先令，一共花去50先令。問男人、女人和小孩各有幾人？課堂練習(xí)2012-11-2233馬克思曾經(jīng)做過這樣一道趣味數(shù)學(xué)題：有30個解題過程：假設(shè)男人x，女人y，小孩z，列方程組x+y+z=30①3x+2y+z=50②消元整理最后得2x+y=20并且y=20-2xx范圍：x∈[0,10]y范圍：y∈[0,20]2012-11-2234解題過程：消元整理最后得2x+y=20x范圍：x∈[0,10PrivateSubCommand1_Click()Print“男人”,“女人”,“小孩"

Forx=0To10y=20-2*xIfInt(y)=y

ThenPrintx,y,30-x-yEndIf

Nextx

EndSub參考代碼：2012-11-2235PrivateSubCommand1_Click()參考2012-11-22362012-11-2215課堂練習(xí)

12月13日凌晨3：13，丹姆斯頓大街上的卡爾一家發(fā)生了命案，卡爾先生一家人無一幸免。警局接到報案后立即派人趕往現(xiàn)場，經(jīng)過現(xiàn)場勘察、取樣，確定為有人蓄意謀殺……經(jīng)過多方取證，最后嫌疑犯鎖定在卡爾先生的四名同事身上，經(jīng)審訊得來的口供，警方確定四人中有一名嫌疑犯在說謊，而說謊的這個人就是殺害卡爾一家的兇手。四名嫌疑人（用甲、乙、丙、丁表示）的口供如下，請你判斷找出，誰在說謊？

警官問：“12月13日下午3：00至4：00誰離開過辦公室？”甲說：“不是我”，乙說：“是丙”，丙說：“是丁”，丁說：“不是我”。

小組討論，說出到底誰在說謊。并說明你是怎么判斷的。

2012-11-2237課堂練習(xí)2012-11-2216窮舉法（試湊法），是將各種可能的組合全部一一測試，將符合條件的組合輸出。課堂小結(jié)2、利用窮舉法解決典型例題——