




版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請進(jìn)行舉報(bào)或認(rèn)領(lǐng)
文檔簡介
1、0信息的加工與表達(dá)(下)信息的加工與表達(dá)(下) 用計(jì)算機(jī)程序解決問題用計(jì)算機(jī)程序解決問題 2007年年 12月月高一年級信息技術(shù)基礎(chǔ)高一年級信息技術(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í)數(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 請輸入方程系數(shù)請輸入方程系數(shù)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 結(jié)束搜索過程結(jié)束搜索過程 Else s = s - 1 End If end定義定義3個除數(shù)個除數(shù)a1,a2,a3余數(shù)余數(shù)b1,b2,b3,及取,及取值范圍值范圍S當(dāng)三個余數(shù)滿足條件時當(dāng)三個余數(shù)滿足條件時給出結(jié)果給出結(jié)果不滿足條件時給不滿足條件時給S減減1繼續(xù)循環(huán)直到條件滿足繼續(xù)循環(huán)直到條件滿足12 程序示例313課本課本P74頁例題頁例題 劉麗的媽媽是某
4、公司經(jīng)理,每天都用電腦處理大量的商業(yè)文件。聽聞有關(guān)計(jì)算機(jī)信息被盜取的事件報(bào)道后,她擔(dān)心保存在計(jì)算機(jī)里的重要文件萬一被別人竊取后,將會給公司造成不可估量的損失,因此希望找到一個保密方法。14加密程序代碼加密程序代碼Private Sub Form_Load() FileName$ = InputBox(請輸入需要加密的文件名及路徑:請輸入需要加密的文件名及路徑:) 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(“請輸入加密后的文件名及路徑:請輸入加密后的文件名及路徑:) 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。在對話框中。在對話框中顯示加密后的文顯示加密后的文件件15 互動時間互動時間請同學(xué)們自己體驗(yàn)剛才的加密程序,并且完成下發(fā)的課堂問卷1617 總結(jié)總結(jié)通過本節(jié)課的學(xué)習(xí),我們知道了用
溫馨提示
- 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 人人文庫網(wǎng)僅提供信息存儲空間,僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對任何下載內(nèi)容負(fù)責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。
最新文檔
- 與貓有關(guān)的課件邊框素材
- 新疆喀什市深喀第一高級中學(xué)2025年高三下學(xué)期1月第一次聯(lián)合考試物理試題含解析
- 不同職業(yè)課件
- 江蘇省徐州市新城實(shí)驗(yàn)校2024-2025學(xué)年第二學(xué)期初三年級一??荚囉⒄Z試題試卷含答案
- 上?,F(xiàn)代化工職業(yè)學(xué)院《路橋檢測》2023-2024學(xué)年第二學(xué)期期末試卷
- 南昌大學(xué)共青學(xué)院《中西文化比較研究》2023-2024學(xué)年第二學(xué)期期末試卷
- 云南昆明市黃岡實(shí)驗(yàn)學(xué)校2025屆高三高考模擬考試生物試題含解析
- 拉薩師范高等專科學(xué)?!稜I銷國際英語》2023-2024學(xué)年第一學(xué)期期末試卷
- 柳州職業(yè)技術(shù)學(xué)院《汽車電子控制技術(shù)》2023-2024學(xué)年第二學(xué)期期末試卷
- 上海市靜安區(qū)風(fēng)華中學(xué)2025屆高三下學(xué)期期末教學(xué)質(zhì)量檢測試題試卷化學(xué)試題含解析
- 中華民族共同體概論講稿專家版《中華民族共同體概論》大講堂之 第八講 供奉中國與中華民族內(nèi)聚發(fā)展(遼宋夏金時期)
- 消防維保質(zhì)量管理及保證措施
- 【MOOC】大學(xué)物理 I-(力學(xué)、相對論、電磁學(xué))-北京交通大學(xué) 中國大學(xué)慕課MOOC答案
- 痛經(jīng)的中醫(yī)療法
- 《營銷管理與分析》課件
- 測繪技術(shù)服務(wù)方案
- 神經(jīng)外科類醫(yī)用耗材(腦脊液分流系統(tǒng))省際聯(lián)盟集采中選產(chǎn)品供應(yīng)清單
- 國家安全教育第一章完整準(zhǔn)確領(lǐng)會總體國家安全觀
- 《中華人民共和國藥品管理法實(shí)施條例》
- 復(fù)合材料制造培訓(xùn)課件
- GB/T 8574-2024復(fù)合肥料中鉀含量的測定
評論
0/150
提交評論