用計(jì)算機(jī)程序解決問題1.ppt

湛江市第二中學(xué) 何康仲,4.1 用計(jì)算機(jī)程序解決問題,第74頁 第2課時(shí),湛江二中 何康仲,重點(diǎn)難點(diǎn)：計(jì)算機(jī)程序設(shè)計(jì)的基本流程 學(xué)習(xí)方式：講解，模仿，摸索 學(xué)習(xí)任務(wù)：在上節(jié)課模仿程序的基礎(chǔ)，結(jié)合數(shù)學(xué)中的簡單案例進(jìn)一步理解算法、循環(huán)結(jié)構(gòu)、分支結(jié)構(gòu)，學(xué)會(huì)在VB環(huán)境進(jìn)行簡單的程序編寫。 本節(jié)課教學(xué)思路：1)回顧，通過上節(jié)課的文本加密案例，理解程序設(shè)計(jì)的基本流程; 2)結(jié)合數(shù)學(xué)中的簡單案例進(jìn)行簡單的程序編寫; 3)在此基礎(chǔ)上，能對日常生活中的簡單事例進(jìn)行數(shù)學(xué)建模，然后用計(jì)算機(jī)程序去解決問題。,湛江二中 何康仲,回顧 上節(jié)課,體驗(yàn) 文本加密程序 的運(yùn)行過程及作用 了解VB編程環(huán)境及一些基礎(chǔ)知識(shí) 通過加密程序了解計(jì)算機(jī)程序設(shè)計(jì)的基本流程,湛江二中 何康仲,復(fù)習(xí)：VB/VBA/QBASIC知識(shí)點(diǎn)2,常用函數(shù)說明： Len：返回字符串的長度 Chr：返回指定ASCII碼所對應(yīng)的字符 Asc：返回某字符的 ASCII 碼數(shù)值 Mid：返回特定長度的字符串(從start 開始,長度為length). Mid(string, start , length),湛江二中 何康仲,循環(huán)結(jié)構(gòu),For 循環(huán)變量=初值 To 終值 Step 循環(huán)變量增量 循環(huán)體 Next 循環(huán)變量,例: For i = 1 To n b$ = Mid$(txt$, i, 1) c$ = Chr(Asc(b$) + 10) mm$ = mm$ & c$ Next,湛江二中 何康仲,分支結(jié)構(gòu),If 條件P成立 Then 語句塊A Else 語句塊B End If,例: 如果某學(xué)生成績=60分，則合格； 否則，該不合格。,If 成績=60 Then 合格 Else 不合格 End If,湛江二中 何康仲,如何用計(jì)算機(jī)程序 解決問題？,湛江二中 何康仲,二、用計(jì)算機(jī)程序解決問題的過程,原文：湛江二中是一所美麗的學(xué)校 密文：輾漸餓秩士頁筍酶李導(dǎo)褵袥,方法：把每個(gè)字符的ASCII碼-8,用VB程序語言把算法轉(zhuǎn)換為代碼,在VB環(huán)境中輸入代碼，并運(yùn)行,檢測是否達(dá)到預(yù)期目的,湛江二中 何康仲,上節(jié)課的加密程序的思路？,算 法,湛江二中 何康仲,編寫程序： 算法的程序?qū)崿F(xiàn),從第1個(gè)字符開始 依次取得每個(gè)字符 將該字符的機(jī)內(nèi)碼-8 轉(zhuǎn)換后跟前面連在一起 轉(zhuǎn)到下一個(gè)字符 循環(huán)條件,湛江二中 何康仲,如何把上節(jié)課加密的文本解密?,理解,湛江二中 何康仲,根據(jù)加密的思路得解密的思路,從第1個(gè)字符開始 依次取得每個(gè)字符 將該字符的機(jī)內(nèi)碼+8 轉(zhuǎn)換后跟前面連在一起 轉(zhuǎn)到下一個(gè)字符 循環(huán)條件,從第1個(gè)字符開始 依次取得每個(gè)字符 將該字符的機(jī)內(nèi)碼-8 轉(zhuǎn)換后跟前面連在一起 轉(zhuǎn)到下一個(gè)字符 循環(huán)條件,湛江二中 何康仲,根據(jù)解密的算法得解密程序,湛江二中 何康仲,延伸,從這個(gè)例子可以看出，用固定數(shù)值的加密方法是很容易被破譯的。 作業(yè)1：想一想，如何設(shè)計(jì)另一個(gè)算法，使每一個(gè)字符串偏移值各不相同（同時(shí)要考慮如何解密）。,湛江二中 何康仲,例二：數(shù)學(xué)問題,計(jì)算1+2+3+100的值,用VB編程解決以下問題：,局限性、靈活性、通用性、可擴(kuò)展性,為什么不用EXCEL？,湛江二中 何康仲,分析問題：,平常怎么算?,（常見有兩種算法）,1+2+3+100=?,1+2=3 3+3=6 6+4=10 ,該式子存在一個(gè)規(guī)律： |相鄰兩個(gè)數(shù)之差|為1,湛江二中 何康仲,程序設(shè)計(jì)分析：,計(jì)算1+2+3+100的值,假設(shè)和為S， 在未進(jìn)行計(jì)算之前，S=0 +1 S=1 實(shí)際相當(dāng)于 S=S+1 +2 S=3 實(shí)際相當(dāng)于 S=S+2 +3 S=6 實(shí)際相當(dāng)于 S=S+3 +4 S=10 實(shí)際相當(dāng)于 S=S+4 ,1+2=3 3+3=6 6+4=10 ,|相鄰兩個(gè)數(shù)之差|為1 S=S+i(其中i為1100中任一個(gè)數(shù)， S為前一個(gè)和值) 所以可以使用 循環(huán)結(jié)構(gòu),湛江二中 何康仲,算法,代碼,Sum=0 For i=1 to 100 sum=sum+i Next Msgbox “和是：” & sum,湛江二中 何康仲,馬上試一試：,計(jì)算 的值,分析： 很明顯，該式子存在一個(gè)規(guī)律： |相鄰兩個(gè)分母之差|為1 所以可以使用 循環(huán)結(jié)構(gòu),用VB編程解決以下問題：,湛江二中 何康仲,例三：日常問題 （程度：了解）,甲、乙、丙、丁四個(gè)人中有一個(gè)人是小偷，請根據(jù)四個(gè)人的談話判斷誰是小偷。已知四人中有一個(gè)人說假話。 甲說：我不是小偷。 乙說：丙是小偷。 丙說：丁是小偷。 丁說：丙說謊,湛江二中 何康仲,如何用計(jì)算機(jī)程序去解決該問題？,分析：可以采用枚舉法， 依次假設(shè)甲、乙、丙、丁是小偷,湛江二中 何康仲,分析：假設(shè) x 是小偷 為了方便比較、判斷條件， 依次假設(shè)甲、乙、丙、丁是小偷,關(guān)系式,湛江二中 何康仲,關(guān)聯(lián)：VB/VBA/QBASIC知識(shí)點(diǎn)3關(guān)系表達(dá)式,用一個(gè)關(guān)系運(yùn)算符把兩個(gè)運(yùn)算量（數(shù)值量或字符串）聯(lián)結(jié)起來稱關(guān)系表達(dá)式； 每個(gè)關(guān)系表達(dá)式都有一個(gè)值，這個(gè)值稱作邏輯值（即“真”或“假”）； 在VB/QBASIC中，如果表達(dá)式不成立，即“假”，則此表達(dá)式的值為“0”，否則為“-1”； 舉例： 1513,1315 結(jié)果是：-1 0,湛江二中 何康仲,構(gòu)建關(guān)系式？,根據(jù)他們的談話建立關(guān)系式。,如何建立？,假設(shè) x 是小偷 為了方便比較、判斷條件， 假設(shè)甲為1、乙為2、丙為3、丁為4,由于有一個(gè)人說謊，三個(gè)人講真話，真的邏輯值為-1，假的邏輯值為0，所以，以上四個(gè)關(guān)系式相加值為-3（ (X1)+(X=3)+(X=4)+(X4) =-3）時(shí)即可找到小偷。,X1,X=3,X=4,X4,湛江二中 何康仲,分析：假設(shè) x 是小偷 為了方便比較、判斷條件， 假設(shè)甲為1、乙為2、丙為3、丁為4,X的變化規(guī)律是：從1到4 使用循環(huán)去處理 舉例： for X=1 to 4,關(guān)系式,湛江二中 何康仲,主要程序代碼,For x=1 to 4 if (X1)+(X=3)+(X=4)+(X4)=-3 then msgbox x & ”是小偷” end if next,最好把 x 所代表的人再轉(zhuǎn)換過來,下一步：調(diào)試運(yùn)行,湛江二中 何康仲,說明,計(jì)算機(jī)程序可以幫助我們解決很多問題，特別是一些復(fù)雜、計(jì)算量大等等的問題，是信息加工與表達(dá)的又一種方法。 但是，計(jì)算機(jī)程序同樣具有破壞的能力，如病毒等。,湛江二中 何康仲,反例例四,* 刪除指定文件 * pathname = “f:xp.gho“ Kill pathname 刪除文件