【正文】 生出 03 間的數(shù)，再根據(jù)產(chǎn)生的是什么數(shù)來確定是“ +、 、 *、 /”。其中對于除法運算要考慮除數(shù)不能為 0，再要考慮能整除，所以先進行整除運算，得到 一個結(jié)果，再將第一個數(shù)變?yōu)槌龜?shù)乘以商。 4． 編程輸入三角形的三條邊長，輸出三角形的面積，如果不能構(gòu)成三角形輸出錯誤信息。 ，班長小 Q 決定將剩余班會費，用于購買若干支鋼筆獎勵給一引起學習好、表現(xiàn)好的同學。已知商店里有三種鋼筆，它們的單價為 6 元、 5 元和 4元。小 Q想買盡量多的筆（鼓勵盡量多的同學），同時他又不想有剩余錢。請你編寫一程序，幫小 Q制訂出一種買筆的方案。 ，接受用戶輸入 10 位選手的得分（ 0—10 分），然后去掉一個最高分和一個最低分，求出某選手的最后得分（平均分）。 第 三講 循環(huán)結(jié)構(gòu)的程序設計 主要內(nèi)容： 掌握三種循環(huán)語句的格式和執(zhí)行過程； 掌握三種循環(huán)語句的異同，能夠根據(jù)實際情況靈活運用循環(huán)語句； 掌握累加器和累乘器和計數(shù)器； 掌握多重循環(huán)及循環(huán)的嵌套； 熟練運用循環(huán)語句解各種實際問題，如打印圖形、判斷素數(shù)等常用算法。 許多處理過程中有連續(xù)的重復，這時候如果還是一句句地重復寫的話，既麻煩又累贅，當要重復成千上萬次時，這種重復的書寫幾乎是不可能實現(xiàn)的。直接簡便的方法是用循環(huán)語句來實現(xiàn)循環(huán)。 一． While 語句（當型循環(huán)） 1．格式： while 布爾表達式 do 語句； 2．說明： 格式中 while 和 do 都是保留字，布爾表達式表示條件，它的描述跟條件語句里的條件描述是一樣的。 Do 后面的語句可以是單一語句也可以是復合語句，稱為循環(huán)體。只要布爾表達式成立時（即值為 TRUE 時）就執(zhí)行循環(huán)體，如此反復直到布爾表達式不成立（值為 FALSE）時停止。如果一開始就為布爾表達式就不成立（值為 FALSE），那么循環(huán)體一次也不執(zhí)行。 例 3． 1 用當循環(huán)計算 1+2+3+?? 100 [分析 ]：此類題也稱累加，設最后結(jié)果放入變量 S 中，設計一指針 I，讓 I 從 1 開始遞增，并累加到 S 中，當 I 的值等于 100 時，循環(huán)結(jié)束。 Var S,I:integer。 Begin S:=0。I:=1。 While I=100 do Begin S:=s+I。 I:=I+1。 End。 Writeln(s) End. [注意 ]： 在 while 循環(huán)體中一定要有相應的語句使布爾表達式的值可能為 false,否則就會構(gòu)成死循環(huán)。 二、 Repeat 語句（直到型循環(huán)） 1．格式： repeat 語句； 語句； ??； 語句； until 布爾表達式； 2. 說明 格式中 repeat 和 until 都 是保留字，其間的語句構(gòu)成循環(huán)體，最后一個語句的分號可以省略； until后的布爾表達式表示條件，描述的是循環(huán)結(jié)束的條件。 3. 功能 反復執(zhí)行循環(huán)體直到布爾表達式的值為 true 時為止。 例 3． 2 用直到型循環(huán)解例 var s,I:integer。 begin s:=0。 I:=1。 Repeat S:=s+1。 I:=I+1。 Until I=100。 Writeln(s) End. ［總結(jié)與提高］ While 與 Repeat語句對比 while 和 repeat 語句一般情況下可以相互替換。它 們的主要區(qū)別是 ： while 是先判斷后執(zhí)行，而 repeat 是先執(zhí)行后判斷，因此 while 語句的循環(huán)體有可能一次也不執(zhí)行，而 repeat 語句至少執(zhí)行一次； 前者是當條件滿足時執(zhí)行，而后者是當條件不滿足時執(zhí)行； 前者的循環(huán)體是復合語句時要用 begin、 end，而后者卻不一定要用。 三、 for 語句（計數(shù)循環(huán)） 1．格式： （ 1） for 變量標識符： =初值表達式 to 終值表達式 do 語句； 從小到大執(zhí)行的格式 （ 2） for 變量標識符： =初值表達式 downto 終值表達式 do 語句； 從大到小執(zhí)行的格式 2．說明 格式中的 for,to,downto,do 都是保留字， to一般用在升序的計數(shù)，而 downto 用在降序的計數(shù)。變量標識符在這里稱作是控制變量，必須是離散（有序）數(shù)據(jù)類型，如： for i:=1 to 100 do …. for ch:=?a? to ?z? do…. 3．示例 上面的例題我們可以用計數(shù)循環(huán)來實現(xiàn)： begin s:=0。 I:=1。 For I:=1 to 100 do S:=S+I。 Writeln(s) End. ［總結(jié)與提高］ for 語句的形式簡單，但它也有一定的 局限性，主要是控制變量的值不能隨意變化，每次只能取其后繼 (用 to 的情況 )或前趨（用 downto的情況），另一限制是控制變量只能用簡單的有序的離散量，且循環(huán)次數(shù)已定，不能象 while 或 repeat 那樣通過布爾表達式來控制循環(huán)的操作。 四．多重循環(huán)（循環(huán)的嵌套） 當程序中要用到多個循環(huán)時，如果這些循環(huán)是并列的關(guān)系，那么它們彼此之間的控制變量不相互影響。 而當一個循環(huán)的循環(huán)體中又有循環(huán)時，這就是循環(huán)的嵌套，稱為多重循環(huán)。 例 編寫程序輸出如下的字母塔： A ABA ABCBA ……………. ABCD……DCBA [分析 ]： 此題有兩個關(guān)鍵：一是確定每一行前導空格符的數(shù)目；二是按一定規(guī)律輸出英文大寫字母，共 26行。應能保證最后一行前導空格數(shù)目至少為 0，設最后一行的前面空格數(shù)為 10個，那么倒數(shù)第二行前面的空格數(shù)為 11，倒數(shù)第三行的數(shù)目為 12??，如果控制輸出行的字符變量為 c，則空格數(shù)為： ord(?Z?)ord(c)+10 var ch,c:char。 begin for c:=?A? to ?Z? do begin write(? ?:ord(?Z?)ord(c)+10)。 {輸出空格數(shù) } for ch:=?A? to c do write(ch)。 {輸出一行的左半部分 } for ch:=pred(c) downto ?A? do write(ch)。 {輸出一行的右半部分 } writeln。 {換行 } end。 end. [思考與提高 ]： 上面整個程序是個兩重循環(huán)，而外循環(huán)的循環(huán)體是兩個并列的循環(huán)，因此雖然程序中有三個 for 語句，但只是兩重循環(huán)。 [練習及作業(yè) ]： 一、完善程序 1．求 100 以內(nèi)所有質(zhì)數(shù)的和。 [變量說明 ]： h 存放所有質(zhì)數(shù)的和； I、 j 為循環(huán)檢測變量 [程序清單 ]： program ex7_2_1。 var i,j,h:integer。 begin __________(1)________。 for i:=3 to 100 do begin j:=2。 while (i mod j0) and (ji) do j:=j+1。 if _____(2)_______ then h:=____(3)_______。 end。 writeln(h) end. 1． 輸出四位數(shù)以內(nèi)（包括四位數(shù)）是一個質(zhì)數(shù)的完全平方數(shù)的數(shù)，并輸出總的個數(shù)。 [變量說明 ]： n 存放符合條件的數(shù)的個數(shù)； I、 j 是循環(huán)檢測變量； K 存放完全平方數(shù)。 [程序清單 ]： program ex7_2_2。 var i,j,k,n:integer。 begin n:=0。 for i:=2 to 99 do begin k:=____(1)_____。 j:=2。 while (i mod j0) and (ji) do j:=j+1。 if _____(2)_______ then begin write(________(3)________:5)。 ______(4)_______。 end end。 writeln。 writeln(39。Count=39。,n)。 end. 二、編寫程序題 1. 輸出下圖所示的圖形 * * * * * * * * * * * * * * * * * * * * * * * * * 2．編寫輸出“右三角的九九乘法表”的程序： 1 2 3 4 5 6 7 8 9 4 6 8 10 12 14 16 18 9 12 15 18 21 24 27 16 20 24 28 32 36 25 30 35 40 45 36 42 48 54 49 56 63 64 72 81 3．找出 100 以內(nèi)所有被 5 除余數(shù)為 1 的整數(shù) 4． 求出 100~999 內(nèi)所有的水仙花數(shù)， 所謂水仙花數(shù)是該數(shù)等于它各位上的數(shù)的立方和。例：153=13+33+53 1~100 內(nèi)所有的素數(shù) 6. 要將一張 100 元的鈔票換成等值的 10 元、 5 元、 2元、 1元的小鈔票，要求每次換成 40張小鈔票，每種至少一張，編程輸出所有可能的換法，程序應適當考慮減少重復次數(shù)。 7. 四個學生上地理課，回答我國四大淡水湖大小時這樣說： 甲：“最大洞庭湖，最小洪澤湖，鄱陽湖第三?！? 乙：“最大洪澤湖，最小洞庭湖，鄱陽湖第二，太湖第三。” 丙：“最小洪澤湖， 洞庭湖第三?！? ?。骸白畲筵蛾柡?，最小太湖，洪澤湖第二，洞庭湖第三?！? 對于每個湖的大小，每個學生僅答對一個，請編程確定四個湖的大小。 8. 誰是小偷 ? 問題：警察局抓了 4 名嫌疑犯： A， B， C， D，其中一人是小偷，審問中 A說：“我不是小偷?！? B說：“ C是小偷?！?C 說：“小偷肯定是 D?！?D 說：“ C 冤枉人?！保F(xiàn)已知四人中三人說的是真話，一人說的是假話。問到底誰是小偷？ 9. 求二個正整數(shù)的最小公倍數(shù)和最大公約數(shù) 第四講 數(shù)組和字符串 主要內(nèi)容： 掌握數(shù)組類型的定義及基本操作； 掌握字符串類型的定義及 常用函數(shù)過程的操作； 熟練掌握通過數(shù)組來實現(xiàn)常見的排序、查找算法； 熟練掌握通過字符串來解決各種實際問題如加解密，查找子串等。 Turbopascal的數(shù)據(jù)類型分為三種類型：簡單類型、構(gòu)造類型、指針類型。前面介紹的整型、實型、布爾型以及枚舉類型等都是簡單類型，而構(gòu)造類型有字符串、數(shù)組、記錄、集合、文件類型。描述一個構(gòu)造類型特征的是其成分的類型和它的構(gòu)造方法。因此對于構(gòu)造類型，主要去考慮如何構(gòu)造即其構(gòu)造方法。指針類型是一種特殊的數(shù)據(jù)類型，它涉及到動態(tài)存儲分配。 一、數(shù)組 在代數(shù)上我們常常這樣寫： a1,a2….ai….a100(0i101) ，通過 i來指明具體的 ai，如 i=10時代表 a10，在 pascal語言里我們也希望能夠類似地描述。從前面的變量名里我們已經(jīng)知道，a1,a2..ai彼此之間是相互獨立的，并沒有必然的聯(lián)系。如要象代數(shù)上那樣，可以使用數(shù)組。 數(shù)組其實是一組相同值類型的變量的集合，這些變量共用一個名，彼此之間通過下標來區(qū)別。如定義了數(shù)組 a，它的下標可以從 1 到 100，那么就可以直接通過 a[i]來指明第 i個量，如 i=10， a[i]指的是 a[10]。 1．數(shù)組的說明 可以先通過 type 標 識符 =array[下標范圍 ] of 值類型； 然后再在變量說明里引用。 如： type array1=array[1..100] of integer。 var a,b:array1。 也可以直接在變量說明里說明： 變量名： array[下標范圍 ] of 值類型； 如： var a,b:array[1..100] of integer。 描述下標范圍一般通過離散（有序）類型，如從一個整數(shù)到另一個整數(shù)，或者從一個字符到另一個字符等。如： var a:array[5..5] of integer。 c:array[1..20] of char。 d:array[?a?..?z?] of integer。 2．數(shù)組的使用 剛才我們已從代數(shù)上使用說明了數(shù)組使用的優(yōu)點，特別是要保存的量比較多且這些量之間又有某種聯(lián)系。如要將若干數(shù)重新根據(jù)由大到小或由小到大的順序排序時，這些數(shù)都是要保留的，只是位置換了而已，此時用數(shù)組變可以實現(xiàn)。后面我們會專門介紹排序的算法的。 (1)數(shù)組元素的輸入： 數(shù)組名代表的并不是一個變量，而是一批變量，因而，不能直接整個數(shù)組讀入，而是要逐個數(shù)組元素讀入，通常用循環(huán)結(jié)構(gòu)來完成這一功 能。下面是幾個常用輸入數(shù)組元素的例子： for i:=