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

1、0信息的加工與表達(dá)（下）信息的加工與表達(dá)（下） 用計(jì)算機(jī)程序解決問題用計(jì)算機(jī)程序解決問題 2007年年 12月月高一年級(jí)信息技術(shù)基礎(chǔ)高一年級(jí)信息技術(shù)基礎(chǔ) 建大附中建大附中1用計(jì)算機(jī)程序解決問題用計(jì)算機(jī)程序解決問題 2x2+5x+3=0 2x2+8x+8=0 7x2+8x+9=02用計(jì)算機(jī)程序解決問題用計(jì)算機(jī)程序解決問題普通計(jì)算方法：根據(jù)公式：X=-b + Sqr(b * b - 4 * a * c)/ (2 * a)根的情況：通過判斷D=b*b-4ac的值來確定。3用計(jì)算機(jī)程序解決問題用計(jì)算機(jī)程序解決問題讀入a,b,c,的值計(jì)算D=b*b-4ac如果: 1.D0時(shí)，有兩個(gè)不相同的實(shí)數(shù)根: X1

2、=-b+Sqr(b * b - 4 * a * c)/2a X2=-b- Sqr(b * b - 4 * a * c)/2a4一元二次方程計(jì)算程序代碼一元二次方程計(jì)算程序代碼Private Sub Command1_Click() Print 請(qǐng)輸入方程系數(shù)請(qǐng)輸入方程系數(shù)a,b,c (a不為不為0) Let a = InputBox(請(qǐng)輸入請(qǐng)輸入a) Let b = InputBox(請(qǐng)輸入請(qǐng)輸入b) Let c = InputBox(請(qǐng)輸入請(qǐng)輸入c) Print a=; a Print b=; b Print c=; c Let X0 = b * b - 4 * a * c If X0 0

3、If (s Mod a1 = b1) And (s Mod a2 = b2) And (s Mod a3 = b3) Then Text1.Text = 韓信一共有韓信一共有 & Str(s) & 名士兵名士兵 s = -1 結(jié)束搜索過程結(jié)束搜索過程 Else s = s - 1 End If end定義定義3個(gè)除數(shù)個(gè)除數(shù)a1,a2,a3余數(shù)余數(shù)b1,b2,b3，及取，及取值范圍值范圍S當(dāng)三個(gè)余數(shù)滿足條件時(shí)當(dāng)三個(gè)余數(shù)滿足條件時(shí)給出結(jié)果給出結(jié)果不滿足條件時(shí)給不滿足條件時(shí)給S減減1繼續(xù)循環(huán)直到條件滿足繼續(xù)循環(huán)直到條件滿足12 程序示例313課本課本P74頁例題頁例題 劉麗的媽媽是某

4、公司經(jīng)理，每天都用電腦處理大量的商業(yè)文件。聽聞?dòng)嘘P(guān)計(jì)算機(jī)信息被盜取的事件報(bào)道后，她擔(dān)心保存在計(jì)算機(jī)里的重要文件萬一被別人竊取后，將會(huì)給公司造成不可估量的損失，因此希望找到一個(gè)保密方法。14加密程序代碼加密程序代碼Private Sub Form_Load() FileName$ = InputBox(請(qǐng)輸入需要加密的文件名及路徑：請(qǐng)輸入需要加密的文件名及路徑：) Open FileName$ For Input As #1Line Input #1, a$ MsgBox a$, , 加密前的文本內(nèi)容加密前的文本內(nèi)容“ Close #1 mm$ = “ n = Len(a$) For i = 1

5、 To n b$ = Mid$(a$, i, 1) c$ = Chr(Asc(b$) - 10) mm$ = mm$ & c$ Next MsgBox mm$, , 加密后的文本內(nèi)容加密后的文本內(nèi)容“FileName$ = InputBox(“請(qǐng)輸入加密后的文件名及路徑：請(qǐng)輸入加密后的文件名及路徑：) Open “fileName2$ For Output As #2 Print #2, mm$ Close #2 1。輸入需要加密。輸入需要加密的文件路徑的文件路徑2。打開文件，把。打開文件，把文件內(nèi)容存入變量文件內(nèi)容存入變量a$中中1.用字符串函數(shù)截取用字符串函數(shù)截取原文本中的字符原文本中的字符2。并把其機(jī)內(nèi)碼值減。并把其機(jī)內(nèi)碼值減十變換為其他字符十變換為其他字符3。存在。存在C$中并重新中并重新組合成為加密后的文組合成為加密后的文本顯示出來本顯示出來1。保存加密后。保存加密后的文件的文件2。在對(duì)話框中。在對(duì)話框中顯示加密后的文顯示加密后的文件件15 互動(dòng)時(shí)間互動(dòng)時(shí)間請(qǐng)同學(xué)們自己體驗(yàn)剛才的加密程序，并且完成下發(fā)的課堂問卷1617 總結(jié)總結(jié)通過本節(jié)課的學(xué)習(xí)，我們知道了用