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

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