【正文】 b， c，一種方法可以用條件的并列，列舉出可能有的 6種情況。 [分析與提示 ]： 用隨機(jī)函數(shù)來(lái)產(chǎn)生四則運(yùn)算的操作數(shù)和操作符，其中操作數(shù)都是 100 以?xún)?nèi)的整數(shù)，所以可以直接用 random(100)就行了，如果第一個(gè)數(shù)比第二個(gè)數(shù)小則交換兩個(gè)數(shù)。 ，班長(zhǎng)小 Q 決定將剩余班會(huì)費(fèi)，用于購(gòu)買(mǎi)若干支鋼筆獎(jiǎng)勵(lì)給一引起學(xué)習(xí)好、表現(xiàn)好的同學(xué)。 ，接受用戶輸入 10 位選手的得分（ 0—10 分），然后去掉一個(gè)最高分和一個(gè)最低分，求出某選手的最后得分（平均分）。 一． While 語(yǔ)句（當(dāng)型循環(huán)） 1．格式： while 布爾表達(dá)式 do 語(yǔ)句； 2．說(shuō)明： 格式中 while 和 do 都是保留字，布爾表達(dá)式表示條件，它的描述跟條件語(yǔ)句里的條件描述是一樣的。 例 3． 1 用當(dāng)循環(huán)計(jì)算 1+2+3+?? 100 [分析 ]：此類(lèi)題也稱(chēng)累加，設(shè)最后結(jié)果放入變量 S 中，設(shè)計(jì)一指針 I，讓 I 從 1 開(kāi)始遞增，并累加到 S 中，當(dāng) I 的值等于 100 時(shí)，循環(huán)結(jié)束。 While I=100 do Begin S:=s+I。 二、 Repeat 語(yǔ)句（直到型循環(huán)） 1．格式： repeat 語(yǔ)句； 語(yǔ)句； ??； 語(yǔ)句； until 布爾表達(dá)式； 2. 說(shuō)明 格式中 repeat 和 until 都 是保留字，其間的語(yǔ)句構(gòu)成循環(huán)體，最后一個(gè)語(yǔ)句的分號(hào)可以省略； until后的布爾表達(dá)式表示條件，描述的是循環(huán)結(jié)束的條件。 I:=1。 Writeln(s) End. ［總結(jié)與提高］ While 與 Repeat語(yǔ)句對(duì)比 while 和 repeat 語(yǔ)句一般情況下可以相互替換。 I:=1。 而當(dāng)一個(gè)循環(huán)的循環(huán)體中又有循環(huán)時(shí)，這就是循環(huán)的嵌套，稱(chēng)為多重循環(huán)。 {輸出空格數(shù) } for ch:=?A? to c do write(ch)。 end. [思考與提高 ]： 上面整個(gè)程序是個(gè)兩重循環(huán)，而外循環(huán)的循環(huán)體是兩個(gè)并列的循環(huán)，因此雖然程序中有三個(gè) for 語(yǔ)句，但只是兩重循環(huán)。 begin __________(1)________。 end。 var i,j,k,n:integer。 while (i mod j0) and (ji) do j:=j+1。 writeln。 end. 二、編寫(xiě)程序題 1. 輸出下圖所示的圖形 * * * * * * * * * * * * * * * * * * * * * * * * * 2．編寫(xiě)輸出“右三角的九九乘法表”的程序： 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 以?xún)?nèi)所有被 5 除余數(shù)為 1 的整數(shù) 4． 求出 100~999 內(nèi)所有的水仙花數(shù)， 所謂水仙花數(shù)是該數(shù)等于它各位上的數(shù)的立方和?！? 丙：“最小洪澤湖， 洞庭湖第三?！? B說(shuō)：“ C是小偷。問(wèn)到底誰(shuí)是小偷？ 9. 求二個(gè)正整數(shù)的最小公倍數(shù)和最大公約數(shù) 第四講 數(shù)組和字符串 主要內(nèi)容： 掌握數(shù)組類(lèi)型的定義及基本操作； 掌握字符串類(lèi)型的定義及 常用函數(shù)過(guò)程的操作； 熟練掌握通過(guò)數(shù)組來(lái)實(shí)現(xiàn)常見(jiàn)的排序、查找算法； 熟練掌握通過(guò)字符串來(lái)解決各種實(shí)際問(wèn)題如加解密，查找子串等。因此對(duì)于構(gòu)造類(lèi)型，主要去考慮如何構(gòu)造即其構(gòu)造方法。如要象代數(shù)上那樣，可以使用數(shù)組。 如： type array1=array[1..100] of integer。如： var a:array[5..5] of integer。如要將若干數(shù)重新根據(jù)由大到小或由小到大的順序排序時(shí)，這些數(shù)都是要保留的，只是位置換了而已，此時(shí)用數(shù)組變可以實(shí)現(xiàn)。 {————從鍵盤(pán)讀入數(shù)組元素的值；最常用的方法 } for i:=1 to 10 do a[i]:=i。同樣要逐個(gè)數(shù)組元素輸出。{————數(shù)組元素之間用空格分隔 } writeln。而二維數(shù)組元素有兩個(gè)下標(biāo)：第一個(gè)下標(biāo)表示該元素在第幾行，第二個(gè)下標(biāo)表示在第幾列。如第三行第四個(gè)元素： a[3,4]。如： for i:=1 to 5 do s:=s+a[4,i]。如： for i:=1 to 10 do s:=s+a[i,4]。 {————最常用的方法：將二維數(shù)組清 0} for i:=1 to 10 do begin for j:=1 to 5 do write(a[i,j]:4)。 分析：定義一個(gè) 20 行 3 列的二維數(shù)組來(lái)存放這些成績(jī)。 b:array [1..20] of real。 end。{————計(jì)算平 均分 } end。 [分析與算法選擇 ]: 隨機(jī)產(chǎn)生數(shù)可以用其 random 函數(shù)，產(chǎn)生的 100 個(gè)數(shù)依次存放在 a[1]到 a[100]里。 i,max:integer。 for i:=2 to 100 do if a[i]max then max:=a[i]。 [程序清單 ]： program digit。 writeln。 writeln。 address=string。 myname, yourname,hisname: name。 heraddress: string。因此可用 myname[0]表示在長(zhǎng)度字節(jié)中所存放的字符，而字符串的實(shí)際長(zhǎng)度可用 ord(myname[0])求得。但字符串類(lèi)型和字符類(lèi)型在內(nèi)存中的存儲(chǔ)形式不同。如： const heading=?Difference between string variable and string typed constant?。 TrueString:string[5]=?yes?。 {通常通過(guò)“ 數(shù)字”描述無(wú)法輸入的字符，其中數(shù)字為相應(yīng)字符對(duì)應(yīng)的 ASCII 碼值 } 三．字符串表達(dá)式和賦值語(yǔ)句 1．字符串表達(dá)式 通過(guò)字符串運(yùn)算符將字符串常數(shù)、字符串變量、字符串函數(shù)等組成起來(lái)的式子就是字符串表達(dá)式，由字符串表達(dá)式進(jìn)行運(yùn)算可形成新的字符串。關(guān)系運(yùn)算符用于字符串操作時(shí)，其結(jié)果還是為布爾值，在比較兩個(gè)字符串時(shí)，兩者自左向右逐個(gè)比較相對(duì)應(yīng)字符的 ASCII碼值，只有當(dāng)兩個(gè)字符串長(zhǎng)度相等且對(duì)應(yīng)字符完全相同 時(shí)才認(rèn)為這兩個(gè)字符串相等。允許以字符串變量中某一個(gè)字符位置賦值即此時(shí)實(shí)際上是字符的賦值。 ： 操作 類(lèi)型 作用 返回值 例子 length(s) 函數(shù) 求字符串 s 的長(zhǎng)度 整型 s:=39。12345678939。} val(s,k,code) 過(guò)程 將字符串 s 轉(zhuǎn)為數(shù)值，存在 k中； code 是錯(cuò)誤代碼 var s:string。 val(s,k,code)。 write(s)。Honest Abe Lincoln39。Honest Lincoln39。Abe 39。 } Pos(c, S) 函數(shù) 求字符 c 在 s中的位置 整型 S := 39。, S)。567839。} 例 43 Caesar(凱撒密碼 )已知最早的代換密碼是由 Julius Caesar發(fā)明的 Caesar密碼。并根據(jù)密鑰把密文解密后輸出明文。問(wèn)第 100個(gè)服務(wù)員來(lái)過(guò)后，哪幾扇門(mén)是打開(kāi)的。 5． 將一個(gè)數(shù)插入到有序的數(shù)列中，插入后數(shù)列仍然有序。 定義如下 : type riqi=1..31。Z39。 year:0..200。Z39。sun39。tue39。thu39。sat39。 daytype2=(monday,wednesday)。 例如：已經(jīng)定義 daystype ord(sunday)=0,succ(sunday)=monday,pred(friday)=thursday 但是枚舉類(lèi)型中的第一個(gè)元素沒(méi)有前趨，最后一個(gè)元素沒(méi)有后繼。 例如：枚舉值的輸出 case day of sunday:write(39。monday39。)。 thursday:write(39。friday39。)。 var n:num。A39。C39。如 A)條件表達(dá)式： (ch=39。) or (ch=39。) 可用集合表達(dá)式表示為： ch in [39。,39。] B)if (ch=20) and (ch=50) then ...。所以如下定義是錯(cuò)誤的： var i: set of integer。 [練習(xí) 及作業(yè) ]： 1. 用篩選法求 1— 100內(nèi)的所有質(zhì)數(shù) 2． 編程讀入兩個(gè)字符串，然后輸出如下信息： (1)出現(xiàn)在某一個(gè)字符串中至少一次的字母和數(shù)字； (2)同時(shí)出現(xiàn)在兩個(gè)字符串中至少一次的字母和數(shù)字； (3)出現(xiàn)在一個(gè)字符串中而不出現(xiàn)在另一個(gè)字符串中的字母和數(shù)字； (4)不出現(xiàn)在任何字符串中的 字母和數(shù)字。 較好的辦法是先考慮一下如何將這一復(fù)雜的問(wèn)題分為若干個(gè)目標(biāo)明確且易于處理的子問(wèn)題，然后對(duì)每一個(gè)子 問(wèn)題進(jìn)行分析，確定是否還要繼續(xù)劃分，樣“由粗到細(xì)”，最終實(shí)現(xiàn)目標(biāo)?？梢赃@樣認(rèn)為，系統(tǒng)提供的語(yǔ)句是系統(tǒng)過(guò)程，而系統(tǒng)提供的函數(shù)是系統(tǒng)函數(shù)，下面就來(lái)看自己是如何編寫(xiě)類(lèi)似于語(yǔ)句的過(guò)程和類(lèi)似于系統(tǒng)函數(shù)的函數(shù)的。 通俗一點(diǎn)兒講， 值參數(shù)只是將調(diào)用它的量的值拿來(lái)進(jìn)行處理，不管它是變量、表達(dá)式、還是常數(shù)等等，只要類(lèi)型符合就行，過(guò)程里對(duì)這些量的改變不會(huì)影響到調(diào)用它的上級(jí)程序。 2．函數(shù)的調(diào)用 跟調(diào)用系統(tǒng)內(nèi)的標(biāo)準(zhǔn)函數(shù)一樣，通過(guò)“函數(shù)名（參數(shù)）”的形式可將它引用在表達(dá)式中。當(dāng)全局變量與局部變量同名時(shí)：在定義局部變量的子程序內(nèi)，局部變量起作用；在其它地方全局變量起作用。 procedure sub1。i in sub=39。,k)。 writeln(39。k in sub=39。i in main=39。,j)。運(yùn)行結(jié)果如下： i in main＝ 2 k in main＝ 9 i in sub＝ 17 k in sub＝ 9 i in main＝ 2 6. 4 值參和變量參數(shù) 值形參 —— 傳值：調(diào)用時(shí)可用表達(dá)式代替形參，不該變實(shí)在參數(shù)的值。 var a,b,c:integer。y:=y+1。,x:2,39。,z:2)。c:=9。b=39。 sub(a,b,c)。b=39。 sub(c+5,b*b,a)。b=39。 readln。舉個(gè)簡(jiǎn)單的例子，找素?cái)?shù)。首先，枚舉有超級(jí)無(wú)敵準(zhǔn)確性，只要時(shí)間足夠，正確的枚舉得出的結(jié)論是絕對(duì)正確的。 begin for i:=0 to 30000 do {為什么要 30000 呢？ integer 類(lèi)型是從 32767 到 +32767 之間的整數(shù)。 [分析與算法選擇 ]： 一個(gè)整數(shù) n 如果是素?cái)?shù)那它有什么特征？哦，它只能夠被 1 還 有它本身整除。）還是不要叫懶吧，叫它優(yōu)化，一個(gè)程序的效率，就取決于算法的好壞，一個(gè)好的高效率的算法和一個(gè)低效率的算法，所需要的時(shí)間相差很大，有時(shí)是一個(gè)只要幾秒而另一個(gè)卻要幾千年。 你想一下如果一個(gè)數(shù)不能被 2 整除，那它還能夠被 4，被 6，被 8 等等的 2 的倍數(shù)整除嗎？當(dāng)然不能。值得一提的是第三個(gè)優(yōu)化的方法所涉及的數(shù)據(jù)結(jié)構(gòu)略微復(fù)雜了一點(diǎn)，如果初學(xué)者能力不足，那只用前面兩個(gè)優(yōu)化的方法也行。 begin write(2)。 if jk then write(i:4)。 大部分情況下枚舉算法的實(shí)現(xiàn)主要通過(guò)循環(huán)來(lái)完成，確定好檢查范圍和檢查條 件，然后用循環(huán)根據(jù)這個(gè)范圍來(lái)檢查，當(dāng)符合檢查條件時(shí)就進(jìn)行相關(guān)處理。 例 1:輸入序列數(shù)據(jù)按非減順 序輸出 . 程序如下 : program xzpx。 begin write(39。 writeln。a[i]:=a[k]。 write(39。 writeln。 var a:array[1..n] of integer。)。j:=i1。 end。 for i:= 1 to n do write(a[i]:6)。 程序 : const n=7。Enter date:39。a[j1]:=a[j]。)。 序列分割方法：將相隔某個(gè)增量 h的元素構(gòu)成一個(gè)子序列。 const n=7。 bool:boolean。 for i:=1 to n do read(a[i])。 for j:=d+1 to n do begin t:=a[j]。end。 write(39。 writeln。 var x1,i:integer。 procedure search(r:arr。 begin p:=1。 begin write(39。 writeln。 read(x1)。)。is:39。)