用計算機程序解決問題

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

2、=-b+Sqr(b * b - 4 * a * c)/2a X2=-b- Sqr(b * b - 4 * a * c)/2a4一元二次方程計算程序代碼一元二次方程計算程序代碼Private Sub Command1_Click() Print 請輸入方程系數請輸入方程系數a,b,c (a不為不為0) Let a = InputBox(請輸入請輸入a) Let b = InputBox(請輸入請輸入b) Let c = InputBox(請輸入請輸入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 結束搜索過程結束搜索過程 Else s = s - 1 End If end定義定義3個除數個除數a1,a2,a3余數余數b1,b2,b3，及取，及取值范圍值范圍S當三個余數滿足條件時當三個余數滿足條件時給出結果給出結果不滿足條件時給不滿足條件時給S減減1繼續(xù)循環(huán)直到條件滿足繼續(xù)循環(huán)直到條件滿足12 程序示例313課本課本P74頁例題頁例題 劉麗的媽媽是某

4、公司經理，每天都用電腦處理大量的商業(yè)文件。聽聞有關計算機信息被盜取的事件報道后，她擔心保存在計算機里的重要文件萬一被別人竊取后，將會給公司造成不可估量的損失，因此希望找到一個保密方法。14加密程序代碼加密程序代碼Private Sub Form_Load() FileName$ = InputBox(請輸入需要加密的文件名及路徑：請輸入需要加密的文件名及路徑：) Open FileName$ For Input As #1Line Input #1, a$ MsgBox a$, , 加密前的文本內容加密前的文本內容“ 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$, , 加密后的文本內容加密后的文本內容“FileName$ = InputBox(“請輸入加密后的文件名及路徑：請輸入加密后的文件名及路徑：) Open “fileName2$ For Output As #2 Print #2, mm$ Close #2 1。輸入需要加密。輸入需要加密的文件路徑的文件路徑2。打開文件，把。打開文件，把文件內容存入變量文件內容存入變量a$中中1.用字符串函數截取用字符串函數截取原文本中的字符原文本中的字符2。并把其機內碼值減。并把其機內碼值減十變換為其他字符十變換為其他字符3。存在。存在C$中并重新中并重新組合成為加密后的文組合成為加密后的文本顯示出來本顯示出來1。保存加密后。保存加密后的文件的文件2。在對話框中。在對話框中顯示加密后的文顯示加密后的文件件15 互動時間互動時間請同學們自己體驗剛才的加密程序，并且完成下發(fā)的課堂問卷1617 總結總結通過本節(jié)課的學習，我們知道了用