【文章內(nèi)容簡介】 ???不及格及格優(yōu)秀 要求 ：假設(shè)輸入的分數(shù)為 [0,100]之間的整數(shù)。 Program JudgeScore2。 var x:real。 begin read(x)。{輸入一個分數(shù) } case x of 0..59:{ 0 60x?? } writeln(?不及格 ?。 60..89:{ 60 90x?? } writeln(?及格 ?)。 90..100。{90 100x?? } writeln(?優(yōu)秀 ?)。 else writeln(?錯誤的分數(shù) ?)。 end。{case x of} end. 例：根據(jù)學生的成績給予相應(yīng)的等級，對應(yīng)關(guān)系如下： ９０ ——１００ Ａ ８０ ——８９ Ｂ ６０ ——７９ Ｃ ６０以下 Ｄ 中學學科網(wǎng)學海泛舟系列資料 :COM 版權(quán)所有 @中學學科網(wǎng) 11 program chengji。 var s:real。ch:char。 begin write(39。input the score: 39。)。 readln(s)。 if(s=0)and(s=100)then case s div 10 of 10,9:ch:=39。A39。 8:ch:=39。B39。 7,6:=39。C39。 else ch:=39。D39。 end。 writeln(s,39。39。,ch)。 end. 練習： 我們把字母作如下的分類：大寫字母 :?A?..?Z?；小寫字母 :?a?..?z?。數(shù)字： ?0?..?9?；其他字母，編寫一個程序，根據(jù)上述分類的方法，輸入一個字母，報告該字母所屬的類型。 某超市為了促銷，規(guī)定：購物不足 50 元的按原價付款，超過 50 不足 100 的按九折付款，超過 100 元的，超過部分按八折付款。編一程序完成超市的自動計費的工作。 第四節(jié) for 循環(huán)結(jié)構(gòu) 程序設(shè)計時我們經(jīng)常要做一些重復(fù)的任務(wù)通過反復(fù)的執(zhí)行某一個動作來完成任務(wù)，編寫這一類程序我們使用循環(huán) 結(jié)構(gòu)來實現(xiàn)。如計算 1+2+3+….+100 。 Pascal 中循環(huán)結(jié)構(gòu)通過使用 For、 While、 Repeat 三種語句來實現(xiàn)。 For 語句是形式最簡單的循環(huán)語句。 例題 1:輸入正整數(shù) N，計算 1Ni i?? 分析： 1Ni i?? ＝ 1+2+3+…+N, 因此我們必需重復(fù)的執(zhí)行 S:=S+i，其中 S 代表和， S=1 {i=1} S=1+2 {i=2} S=1+2+3 {i=3} S=1+2+3+4 {i=4} …. S=1+2+3+4+…+N {i=N} i 從 1 變化到 N，計算前 I項的和： 1+2+3+…+I ，寫成 Pascal 代碼如下： For i:=1 to N DO S:=S+i。{i 從 1 變化到 N 重復(fù)執(zhí)行 S:=S+i} 完整的程序如下： Program Example1_4 Var N,I,S:integer。 Begin Write(?輸入正整數(shù) N:?)。Readln(N)。 S:=0。 For I:=0 to n do S:=S+I。 Writeln(?1+2+3+…+?,n,?=?,s)。 End. FOR 循環(huán)有兩種形式： 升序形式： for 控制變量 :=初值 to 終值 do 語句 中學學科網(wǎng)學海泛舟系列資料 :COM 版權(quán)所有 @中學學科網(wǎng) 12 降序形式： for 控制變量 :=初值 downto 終值 do 語句 for 語句功能描述： 雖然 for 循環(huán)形式簡單，但是執(zhí)行的機制卻很復(fù)雜。其基本過程如下： 1. 計算初值并記憶 2. 判斷初值是否超出終值、如果超過則執(zhí)行步驟 7,否則執(zhí)行步驟 3 3. 把初值賦給控制變量 4. 執(zhí)行 do 后面的語句（循環(huán)體 ) 5. 判斷控制變量的值 是否達道終值，如果是則執(zhí)行步驟 6,否則執(zhí)行步驟 7 6. 控制變量取下一個值 (升序取后繼，降序取前驅(qū) ) 7. (循環(huán)結(jié)束 )執(zhí)行下一語句 . 例題：編寫程序輸出序號從 32 到 126 的 ASCII字符與對應(yīng)代 碼之間的對應(yīng)關(guān)系。每行輸出 5個字符，輸出結(jié)果如下如所示。 (Example4_2) program example4_2。 var i, j: byte。 begin for i := 32 to 126 do begin if (j mod 5 = 0) then writeln。 write(i: 5, chr(i): 2)。 j := j + 1。 end。 end. 程序說明： 標準函數(shù) chr(i)可以得到代碼為 i 的字符。 j mod 5 求 j 模 5 的余數(shù)。語句 if (j mod 5 = 0) then writeln。用于控制換行，每行寫 5 個字符的對應(yīng)關(guān)系。語句 write(i: 5, chr(i): 2)。用于格式化輸出結(jié)果。 編程完成下列計算： 2 2 2 21 1 2 ...Ni iN? ? ? ? ?? 11 1 ( 1)1 ......23 nn ??? ? ? ? 把數(shù)碼 1， 2， 3， 4， … ， 9分成 3 組，每組構(gòu)成一個 3 位數(shù)，使這 3個 3 位數(shù)恰好成 1：2： 3，該怎樣分？求出所有的解答來。（如： 192， 384， 576 就是一組解答） 求出所有的三位數(shù) xyz ，它除以 11 所得余數(shù)等于它的三個數(shù)字的平方和。 第五節(jié) while、 repeat 循環(huán)結(jié)構(gòu) While 語 句是另外一種實現(xiàn)循環(huán)的語句，一般形式如下： While 條件 do 語句 While 循環(huán)的執(zhí)行過程如下： 1. 判斷條件是否成立，條件成立時執(zhí)行步驟 2,否則執(zhí)行步驟 4 2. 執(zhí)行 do 后面的語句（循環(huán)體 ) 3. 返回步驟 1 中學學科網(wǎng)學海泛舟系列資料 :COM 版權(quán)所有 @中學學科網(wǎng) 13 4. 結(jié)束循環(huán)，執(zhí)行下一語句 注意：一定要有使條件取假 (False)的時候，否則會出現(xiàn)死循環(huán)。 例題：從鍵盤輸入一批學生考試數(shù)據(jù)，統(tǒng)計這些數(shù)據(jù)中大于 80 的數(shù)的個數(shù)。 分析：因為學生的人數(shù)沒有確定，因此不方便用 for 循環(huán)來完成此項工作，但是用 while 循環(huán)比較容易實現(xiàn)。 (example4_3) while score=0 do 輸入一個學生成績→ score。計算總分； Pascal 代碼： while score = 0 do begin readln(score)。 total := total + score。 end。 完整的程序代碼： program example4_3。 var score: integer。 total: integer。 c: char。 begin writeln(39。輸入學生分數(shù)： 39。)。 readln(score)。 total:=0。 while score = 0 do begin readln(score)。 total := total + score。 end。 writeln(39?？偡譃椋?39。,total)。 read(c)。 end. Repeat語句與 while語句基本類類似，只是 while 先判斷條件， reapeat語句先執(zhí)行循環(huán)體然后再判斷。 Repeat 語句 。{循環(huán)體部分 } Until 條件 。{循環(huán)結(jié)束條件 } 執(zhí)行過程如下： 1. 執(zhí)行循環(huán)體 2. 判斷條件，如果布滿足重復(fù) 1,否則 執(zhí)行步驟 3 3. 結(jié)束循環(huán)，執(zhí)行下一語句 例題：改寫 Example4_3 程序使用 Repeat 循環(huán)語句實現(xiàn)。 (Example4_4) program example4_4。 var score: integer。 total: integer。 c: char。 begin writeln(39。輸入學生分數(shù)： 39。)。 total := 0。 repeat readln(score)。 total := total + score。 until score 0。 中學學科網(wǎng)學海泛舟系列資料 :COM 版權(quán)所有 @中學學科網(wǎng) 14 writeln(39?？偡譃椋?39。, total)。 read(c)。 end. 練習： 計算下列式子的值： （ 1） 1+3+5+…+99 （ 2） 1+2+4+8+…+128+256+512+1024 （ 3） 1+(1+2)+(1+2+3)+…+(1+2+3+4+…+N) 有一分數(shù)序列： 1 3 5 8 1 3 2 1, , , , , , .. .. ..2 2 3 5 8 1 3求出這個數(shù)列的前 20項的和。 求水仙花數(shù)。所謂水仙花數(shù)，是指一個三位數(shù) abc ，如果滿足 3 3 3a b c abc? ? ? ，則abc 是水仙花數(shù)。 輸入一個整數(shù)，計算它各位上數(shù)字的和。（注意：是任意位的整數(shù)） 輸入一整數(shù) A， 判斷它是否質(zhì)數(shù)。（提示：若從 2 到 A 的平方根的范圍內(nèi)，沒有一個數(shù)能整除 A，則 A是質(zhì)數(shù)。） 求兩個數(shù)的最小公倍數(shù)和最大公約數(shù)。（提示：公約數(shù)一定小于等于兩數(shù)中的小數(shù)，且能整除兩數(shù)中的大數(shù)。公倍數(shù)一定大于等于兩數(shù)中的大數(shù)，且是大數(shù)的倍數(shù)，又能給兩數(shù)中的小數(shù)整除。） 編寫一個譯碼程序，把一個英語句子譯成數(shù)字代碼。譯碼規(guī)則是以數(shù)字 1代替字母 A，數(shù)字 2 代替字母 B， …… ， 26 代替字母 Z，如遇空格則打印一個星號 ?*?，英文句子以 ?.?結(jié)束。 “百錢買百雞 ”是我國古代的著名數(shù)學題。題目這樣描述： 3文錢可以買 1 只公雞， 2 文錢 可以買一只母雞， 1 文錢可以買 3 只小雞。用 100 文錢買 100 只雞，那么各有公雞、母雞、小雞多少只？與之相似，有 雞兔同籠 問題。 輸入一個正整數(shù) N，把它分解成質(zhì)因子相乘的形式。如： 36=1 2 2 3 3； 19=119（提示：設(shè)因子為 I，從 2開始到 N，讓 N 重復(fù)被 I 除，如果能整除，則用商取代 N，I 為一個因子；如果不能整除，再將 I 增大，繼續(xù)以上操作，直到 I 等于 N。） 編程實現(xiàn)：求 . . . . . .nns a a a a a a a a a a a a? ? ? ? ?之值，其中 a是一個數(shù)字。例如：2 2 2 2 2 2 2 2 2 2 2 2 2 2 2? ? ? ?（當 n=5時）， n由鍵盤輸入。 1 一個數(shù)如果恰好等于它的因子之和，這個數(shù)就稱為“完數(shù)”。例如： 6的因 子為 3，而 6＝ 1＋ 2＋ 3，因此 6是“完數(shù)”。編程序找出 1000以內(nèi)的所有完數(shù)。 1 編一程序，輸入 a， b， c， d， e， f，然后解出方程組aX bY cdX eY f???? ???的解。 第六節(jié) 數(shù)據(jù)類型 簡單數(shù)據(jù)類型 Pascal 語言基本數(shù)據(jù)類型由： integer(longint,shortint,byte),real,char,。 自定義數(shù)據(jù)類型： 我們可以 在基本數(shù)據(jù)類型的基礎(chǔ)上定義新的數(shù)據(jù)類型，類型定義的保留字為“ Type” ,格式為： TYPE 類型標識符 =數(shù)據(jù)類型 如： Type MyLong=Longint。 枚舉類型： 中學學科網(wǎng)學海泛舟系列資料 :COM 版權(quán)所有 @中學學科網(wǎng) 15 “枚舉”的意思就是把所需要的對象都一個一個的列舉出來。比方說星期是一個只有 7 個元素的數(shù)據(jù)，因此我們可以定義一種數(shù)據(jù)類型 TWeekDay 代表星期，如果一個變量定義為TWeekDay 類型，那么他的取值范圍就是 Sunday..Saturday，另外顏色 TColor也一樣。習慣上我們在 自定義類型名稱前加上“ T”，如 TColor,TWeekDay，而且單詞以大寫字母開始。 Type TWeekDay=(Sunday,Monday,Tuesday,Wednesday,Thursday,Friday,Saturday)。 TColor=(Red,Yellow,Blue,White,Black)。 枚舉變量的第一個代表 0，第二個 代表 1，以此類推，如上面定義的 TweekDay 類型，Sunday=0， Monday=1， … ， Saturday=6。 例題：輸入今天的日期數(shù)字： 0＝ Sunday，