寫程序解決現(xiàn)實生活中的問題

1、寫程序解決現(xiàn)實生活中的問題 電腦(C39)1前言用電腦編寫程序解決日常生活中的問題，從設(shè)計程序中，加深了解和認識電腦的運作過程，理解電腦的長處和不足，從而使同學(xué)們將來使用或設(shè)計電腦程序等方面更得心應(yīng)手。2問題討論從提出一些實際生活中碰到的問題出發(fā)誘發(fā)學(xué)生使用電腦編程解決問題，增加學(xué)生學(xué)習(xí)電腦編寫程序的興趣。3小組活動借助形式，激發(fā)學(xué)生的創(chuàng)造能力、通過調(diào)試和比較各組所編寫的程序，更正學(xué)生一些錯誤的編程概念，把當中較好的方法和思路向各組推廣，最後再把前人所設(shè)計的方法作介紹，集思廣益。大大增強了學(xué)生學(xué)習(xí)電腦程序設(shè)計的興趣。4例一收銀機程序說明：寫程式模擬數(shù)銀機，由鍵盤輸入商品個數(shù)，再輸入每種商品的價

2、錢，求出所有商品的總和。 5例一收銀機程序Var j,n:integer;cost,total:real;Begin Total:=0;Write(請輸入商品的個數(shù):);Readln(n);For j:=1 to n do BeginWrite(你現(xiàn)正輸入第,j,件貨品之價格:);Readln(cost);Total:=total+cost;End;Writeln(你總共購入了,n,件貨品);Writeln(總共,total:7:2,元);End.6例一討論收銀機程序改進提示：此程序還沒有到達實際階段，一般收銀機的貨品數(shù)量是不用輸入的，而是自動計算的，在此方要可以作一些改進。試加上一些特殊條件

3、，或一些特殊折扣的計算方法。7例二百錢百鷄問題說明：某養(yǎng)雞場出售新鮮雞隻其售價為公鷄3元/隻，母鷄5元/隻，小鷄0.5元/隻，請找出用100元買100隻鷄的方法。8例二百錢百鷄問題Var chicken,hen,cock:integer;BeginFor chicken:=0 to 100*2 doFor hen:=0 to 100 doFor cock:=0 to 100 doIf chicken*0.5+hen*5+cock*3=100 thenbeginWriteln(chicken:,chicken);Writeln(hen:,hen);Writeln(cock:cock);Write

4、ln(-);End;End.9例二討論百錢百鷄問題改進提示：此程序隱藏著大量多餘的運算步驟，試改進之。試利用此程序的形式，解決其他類似的問題。(例：現(xiàn)有雞、狗、蜘蛛這三種生物，且它們的腳的數(shù)目之和剛好是100隻腳，求出雞、狗、蜘蛛各有多少隻，並列出所有可能的情況。)10例三一元二次方程求解說明：輸入一元二次方程的三個系數(shù)，求出此方程的根。11例三一元二次方程求解Var a,b,c:integer;Delta:real;BeginWriteln(請輸入一元二次方程的三個系數(shù)：);Write(a=);Readln(a);Write(b=);Readln(b);Write(c=);Readln(c)

5、;Delta:=sqr(b)-4*a*c;If delta0 then Writeln(此方程無解:)ElseIf delta=0 thenWriteln(此方程的解為,-b/(2*a)ElseBeginWriteln(此方程的解1為,(-b+sqrt(delta)/(2*a);Writeln(此方程的解2為,(-b-sqrt(delta)/(2*a);End;End.12例三討論一元二次方程求解改進提示：試將此方程的系數(shù)改為實數(shù)型式。此程序為一些數(shù)學(xué)方程電算化的問題，可以嘗試用電腦解法其他在數(shù)、理、化科目上遇到的問題。13思考練習(xí)題已知本金是$1200，利率是13%，25日後的本利和是多少呢？已知攝氏溫度與華氏溫度的換算關(guān)系式C=5/9(F-32)編寫程式求華氏溫度為30,70,100,150度時的攝氏溫度。對一批貨物徵收稅金，價格1萬元或以上的貨物徵稅5%，對10000元以下5000元或以上的貨物徵稅3%，對5000元以下1000元或以上的貨物徵稅2%，1000元以下免稅。編