[写程序解决现实生活中的问题.ppt

寫程序解決現實生活中的問題 電腦(C39) 前言 用電腦編寫程序解決日常生活中的問題，從設計程序中，加深了解和認識電腦的運作過程，理解電腦的長處和不足，從而使同學們將來使用或設計電腦程序等方面更得心應手。 問題討論 從提出一些實際生活中碰到的問題出發誘發學生使用電腦編程解決問題，增加學生學習電腦編寫程序的興趣。 小組活動 借助形式，激發學生的創造能力、通過調試和比較各組所編寫的程序，更正學生一些錯誤的編程概念，把當中較好的方法和思路向各組推廣，最後再把前人所設計的方法作介紹，集思廣益。大大增強了學生學習電腦程序設計的興趣。 例一 收銀機程序 說明：寫程式模擬數銀機，由鍵盤輸入商品個數，再輸入每種商品的價錢，求出所有商品的總和。 例一 收銀機程序 Var j,n:integer; cost,total:real; Begin Total:=0; Write(‘請輸入商品的個數:’); Readln(n); For j:=1 to n do Begin Write(‘你現正輸入第’,j,’件貨品之價格:’); Readln(cost); Total:=total+cost; End; Writeln(‘你總共購入了’,n,’件貨品’); Writeln(‘總共’,total:7:2,’元’); End. 例一討論 收銀機程序 改進提示： 此程序還沒有到達實際階段，一般收銀機的貨品數量是不用輸入的，而是自動計算的，在此方要可以作一些改進。 試加上一些特殊條件，或一些特殊折扣的計算方法。 例二 百錢百鷄問題 說明：某養雞場出售新鮮雞隻其售價為公鷄3元/隻，母鷄5元/隻，小鷄0.5元/隻，請找出用100元買100隻鷄的方法。 例二 百錢百鷄問題 Var chicken,hen,cock:integer; Begin For chicken:=0 to 100*2 do For hen:=0 to 100 do For cock:=0 to 100 do If chicken*0.5+hen*5+cock*3=100 then begin Writeln(‘chicken:’,chicken); Writeln(‘hen:’,hen); Writeln(‘cock:’cock); Writeln(‘---------------------------‘); End; End. 例二討論 百錢百鷄問題 改進提示： 此程序隱藏著大量多餘的運算步驟，試改進之。 試利用此程序的形式，解決其他類似的問題。(例：現有雞、狗、蜘蛛這三種生物，且它們的腳的數目之和剛好是100隻腳，求出雞、狗、蜘蛛各有多少隻，並列出所有可能的情況。) 例三 一元二次方程求解 說明：輸入一元二次方程的三個系數，求出此方程的根。 例三 一元二次方程求解 Var a,b,c:integer; Delta:real; Begin Writeln(‘請輸入一元二次方程的三個系數：’); Write(‘a=’); Readln(a); Write(‘b=’); Readln(b); Write(‘c=’); Readln(c); Delta:=sqr(b)-4*a*c; If delta0 then Writeln(‘此方程無解:’) Else If delta=0 then Writeln(‘此方程的解為’,-b/(2*a)) Else Begin Writeln(‘此方程的解1為’,(-b+sqrt(delta))/(2*a)); Writeln(‘此方程的解2為’,(-b-sqrt(delta))/(2*a)); End; End. 例三討論 一元二次方程求解 改進提示： 試將此方程的系數改為實數型式。 此程序為一些數學方程電算化的問題，可以嘗試用電腦解法其他在數、理、化科目上遇到的問題。 思考練習題 已知本金是$1200，利率是13%，25日後的本利和是多少呢？ 已知攝氏溫度與華氏溫度的換算關系式C=5/9(F-32)編寫程式求華氏溫度為30,70,100,150度時的攝氏溫度。 對一批貨物徵收稅金，價格1萬元或以上的貨物徵稅5%，對10000元以下5000元或以上的貨物徵稅3%，對5000元以下1000元或以上的貨物徵稅2%，1000元以下免稅。編寫一程式讀入其價格，計算并輸出稅金。 準備了可覆蓋面積為100平方米的草地。現要用這些草來舖滿一個三角形的草地，問這片地的三角形高與底，可以是多少米。 THE END. * * Evaluation only.