【正文】 勵盡量多的同學(xué)），同時他又不想有剩余錢。其中對于除法運(yùn)算要考慮除數(shù)不能為 0，再要考慮能整除，所以先進(jìn)行整除運(yùn)算，得到 一個結(jié)果，再將第一個數(shù)變?yōu)槌龜?shù)乘以商。 2． 編寫程序輸入年份和月份，輸出這個月的天數(shù)。 } 3．使用注意點 當(dāng)有 else 部分時它上面的語句的最后一行可以有分號也可以沒有分號，這點跟ifthenelse 不一樣； case 語句結(jié)構(gòu)中最后要有一個 end 作為結(jié)尾；其中的語句可以是單語句也可以是復(fù)合語句。 ?0?..?9?: writeln(ch,? is a decimal digit.?)。 1: writeln(?Odd digit.?)。 end。 當(dāng)滿足條件時或不滿足條件時執(zhí)行的是多個語句時要使用復(fù)合語句的格式。 如果 a 大于 1 那么將 a 的值減少 1，否則將 a 的值增加 1 （ 2） if (ab) and (bc) then s:=(ab)*(bc)。 二．條件語句（ ifthenelse） 格式 1：一個分支 if 條件 then 語句； 格式 2：兩個分支 if 條件 then 語句 1 else 語句 2； 注意 else 前沒有分號，否則會出錯。這時就要用到復(fù)合語句，用 begin 和 end 將多個語句結(jié)合在一起。 計算三角形面積的公式： p:=(a+b+c)/2 s:=sqrt(p*(pa)*(pb)*(pc)) (2) 輸入一個三位整數(shù)，逆向輸出，如輸入 123，輸出為 321，如果個位數(shù)是零，則輸出二位數(shù)，如 ： 320，輸出為 23。 輸出 123 后換行。 如 write(1,2,3)； 它與三個 write 語句作用一樣： write(1)。 四、 writeln 跟 wirte 的區(qū)別 writeln 語句在輸出完指定內(nèi)容后另起一行， write 只管輸出除非真滿一行后才另起一行。這種方法跟系統(tǒng)的設(shè)置有關(guān)，也就是說這樣不能保證任何時候都正確。 如 write(5:6)，則輸出： 5 {5 的前面有 5 個空格，整個輸出項占 6 個字符的位置 } 對于實數(shù) 類型的還可以通過“：數(shù)字 1：數(shù)字 2”指明輸出數(shù)字的寬度和小數(shù)點后的位數(shù)。 空讀語句，一般起到讓程序運(yùn)行時停止由用戶回車后繼續(xù)或跨過一行中其余的數(shù)據(jù)，保證下一個讀語句從下一行頭一個數(shù)據(jù)開始讀取。 readln(a,b,c)。 例： read(a,b,c) 。 end. [補(bǔ)充說明 ]： 累加時，存放累加值的變量初值一般為 0；而累乘時必須將相應(yīng)變量的初值賦為 1。 t:=t*b。 begin write(?Enter integer a,b,c,d:?)。在后面的循環(huán)中常用這種方法。如可先乘再除，這種方法對于有一個變量為 0 的情況就不正確了。 [方法 2]：先合并后分開 a:=a+b。 {將 t 的值變?yōu)樵瓉淼?a 后倍，常用類似的語句來進(jìn)行累乘 } 例題 1：交換兩個數(shù)值型變量 a 和 b 的值 [分析與算法選擇 ]： 要交換兩個變量的值，可以聯(lián)想起現(xiàn)實世界中交換兩個容器 A和 B 中所裝的東西，一般要先引進(jìn)一個 空的容器 C，先將一個容器（如 A）里的倒入 C，再將另一個容器 B 的倒入A，最后將 C 的倒入 B，從而實現(xiàn) A、 B 容器內(nèi)容的互換。 不管什么計算機(jī)語言，賦值語句都是最基本最常用的語句，通過它給變量賦值來進(jìn)行各種運(yùn)算、處理。 如 a:=10*5。 [方法 1]：引進(jìn)第三個變量 c:=a。 {如原來 a=3,b=5，執(zhí)行此語句后 a=8,b=5} b:=ab。也可能會出 現(xiàn)除數(shù)為 0 的情況。 [參考程序 ]： program example5_2。 readln(a,b,c,d)。 t:=t*c。如上述程序中 t 的初值為 1，如果沒有這句，系統(tǒng)默認(rèn)的初值為 0，那么乘下來結(jié)果也是 0。 根據(jù)事先定義的類型由用戶在運(yùn)行程序時輸入相應(yīng)的數(shù)據(jù)給 a,b,c,也可分開寫成三個read 語句： read(a)。 與 read(a,b,c)不同是讀完數(shù)據(jù)后另起一行，如果將它分為三個語句 readln(a)。 三、 write/writeln 輸出語句 語句功能：輸出指定表達(dá)式的值。 如： write(:10:5) 將輸出： {整個輸出項占 10 個字符位置，整數(shù)部分占 4 位，小數(shù)點 1 位，小數(shù)部分 5位，其中整數(shù)部分不足的在高位補(bǔ)空，小數(shù)部分不足在后面補(bǔ) 0} 如果指定的寬度比原輸出項應(yīng)有的寬度小呢？ 對于整數(shù)或字符等類型的，將自動調(diào)整到最小所要的寬度，如 write(?ABCD?:2)仍將輸出 ABCD。 可以對指定位加 5后從這位始截尾。 空的 wirteln 起到一個輸出空行的作用，如果它前面有 write 語句，則在其它輸出空行（可能不滿一行），保證下一個輸出另起一行。write(2)。 與它等同的分開寫的形式為： write(1)。 (3) 輸入一個 10000 以內(nèi)的整數(shù)，輸出它的位數(shù) (4) 分錢游戲：甲、乙、丙三人共有 24 元錢，先由甲分錢給乙、丙兩人，所分給的數(shù)與各人已有數(shù)相同；接著由乙分給甲、丙，分法同前；再由丙分錢給甲、乙，分法亦同前。 2．格式： begin 語句 1； 語句 2； ?? 語句 N； end。（思考這是為什么？） 1．條件的描述 在使用條件語句時主要的難點就是條件的描述和滿足條件或不滿足條件時要執(zhí)行的語句的描述。 如果 a 大于 b 并且 b 大于 c，那么 s 的值為（ ab）乘以 (bc) （ 3） if (a0) or (b0) then s:=a+b。當(dāng)然單個語句也使用復(fù)合語句的格式也不會錯，只不過多此一舉 而已，并不影響程序的執(zhí)行，有時先這樣寫是為了后來的擴(kuò)充。 如果 a 小于 0，那么執(zhí)行兩部分：（ 1） a 的值增加 1；（ 2） s 的值增加 1。 end。 else writeln(ch,? is a special character.?)。 [練習(xí)及作業(yè) ]： 輸入三個整數(shù)，按由大到小的順序輸出。 3． 編一個隨機(jī)產(chǎn)生一個 100 以內(nèi)的四則運(yùn)算題，要求先輸出這個四則運(yùn)算的式子，這個四則運(yùn)算的式子要能確保第一 個數(shù)不小于第二個數(shù)，如果是除法的話要能確保能夠整除，然后讓用戶輸入結(jié)果，如果輸入的結(jié)果正確則輸出“ Right!”否則輸出“ Error!”。 4． 編程輸入三角形的三條邊長，輸出三角形的面積，如果不能構(gòu)成三角形輸出錯誤信息。請你編寫一程序，幫小 Q制訂出一種買筆的方案。直接簡便的方法是用循環(huán)語句來實現(xiàn)循環(huán)。如果一開始就為布爾表達(dá)式就不成立（值為 FALSE），那么循環(huán)體一次也不執(zhí)行。I:=1。 Writeln(s) End. [注意 ]： 在 while 循環(huán)體中一定要有相應(yīng)的語句使布爾表達(dá)式的值可能為 false,否則就會構(gòu)成死循環(huán)。 begin s:=0。 Until I=100。變量標(biāo)識符在這里稱作是控制變量，必須是離散（有序）數(shù)據(jù)類型，如： for i:=1 to 100 do …. for ch:=?a? to ?z? do…. 3．示例 上面的例題我們可以用計數(shù)循環(huán)來實現(xiàn)： begin s:=0。 四．多重循環(huán)（循環(huán)的嵌套） 當(dāng)程序中要用到多個循環(huán)時，如果這些循環(huán)是并列的關(guān)系，那么它們彼此之間的控制變量不相互影響。 begin for c:=?A? to ?Z? do begin write(? ?:ord(?Z?)ord(c)+10)。 {換行 } end。 var i,j,h:integer。 if _____(2)_______ then h:=____(3)_______。 [程序清單 ]： program ex7_2_2。 j:=2。 end end。,n)?！? 乙：“最大洪澤湖，最小洞庭湖，鄱陽湖第二，太湖第三。 8. 誰是小偷 ? 問題：警察局抓了 4 名嫌疑犯： A， B， C， D，其中一人是小偷，審問中 A說：“我不是小偷?！保F(xiàn)已知四人中三人說的是真話，一人說的是假話。描述一個構(gòu)造類型特征的是其成分的類型和它的構(gòu)造方法。從前面的變量名里我們已經(jīng)知道，a1,a2..ai彼此之間是相互獨(dú)立的，并沒有必然的聯(lián)系。 1．?dāng)?shù)組的說明 可以先通過 type 標(biāo) 識符 =array[下標(biāo)范圍 ] of 值類型； 然后再在變量說明里引用。 描述下標(biāo)范圍一般通過離散（有序）類型，如從一個整數(shù)到另一個整數(shù)，或者從一個字符到另一個字符等。 2．?dāng)?shù)組的使用 剛才我們已從代數(shù)上使用說明了數(shù)組使用的優(yōu)點，特別是要保存的量比較多且這些量之間又有某種聯(lián)系。下面是幾個常用輸入數(shù)組元素的例子： for i:=1 to 10 do read(a[i])。 {————隨機(jī)產(chǎn)生 10 個 100 以內(nèi)的數(shù)，賦給各數(shù)組元素 } (2)數(shù)組元素的輸出： 和數(shù)組元素的輸入相同，數(shù)組元素的輸出也不能由一個 write 語句直接完成。)。二維數(shù)組在編程中多數(shù)用于描述二維的關(guān)系：如地圖、棋盤、城市 街道、迷宮等等。 (2).使用二維數(shù)組： 數(shù)組元素的指稱：數(shù)組名 [行號，列號 ]。則固定行號為 4。則固定列號為 4。 {————最常用的方法：從鍵盤讀入數(shù)據(jù)初始化二維數(shù)組 } for i:=1 to 10 do for j:=1 to 5 do a[i,j]:=0。 {————最常用 的輸出方法：按矩陣形式輸出二維數(shù)組的值 } 例：競賽小組共有 20位同學(xué)，這學(xué)期每位同學(xué)共參與了三項比賽，請統(tǒng)計每位同學(xué)的平均分。 var a:array [1..20,1..3] of integer。 readln。{————計算總分 } b[i]:=b[i]/3。 end. 例 4_1：讓計算機(jī)隨機(jī)產(chǎn)生 100 個 0 到 1000 之間的整數(shù)，輸出其中最大的數(shù)。 var a:array[1..100] of integer。 max:=a[1]。 [分析與算法選擇 ]: 判定一個數(shù)是奇數(shù)或偶數(shù)比較簡單，如果不是要分批輸出可以一邊輸入一邊判定，現(xiàn)在要分批輸入所以輸入跟輸出的過程要分開，輸入的 40 個數(shù)要先存放起來，通過數(shù)組很方便。 begin for i:=1 to 40 do read(a[i])。 for i:=1 to 40 do if not odd(a[i]) then write(a[i]:5)。 name=string[20]。 曾上例子可以寫出如下的字符串類型變量說明： var class1, class2: class。 myname, yourname, hisname: string[20]。由于系統(tǒng)允許對一個字符串變量進(jìn)行整體訪問，也可以對字符串變量中的各個字 符逐個地訪問，第二種訪問應(yīng)指定某字符在字符串中的位置即下標(biāo)，如 myname[1]表示字符串變量 myname 的第一個字符， myname[2]表示第二個字符，依次類推。如‘ A’可看作是字符，也可視為 字符串。字符串常數(shù)定義的一般形式為： const 常數(shù)標(biāo)識符 =字符串常數(shù)； 其中字符串常數(shù)是用單引號括起的字符串序列。 字符串類型常數(shù)定義要規(guī)定字符串類型及所取的初始值，形式為： const 類型標(biāo)識符：字符串類型 =字符串常數(shù)； 如： const Password:string[7]=?private?。 NewLine:string[2]=1310。 可使用關(guān)系運(yùn)算符 =,=,=,比較任意兩個字符串的大小，這些運(yùn)算符的優(yōu)先級別比連接符“ +”號低，要注意這點，該加括號的地方要加括號。 2．字符串賦值語句 賦值語句可應(yīng)用于字符串類型，它表示計算右部字符串表達(dá)式的值，并將結(jié)果賦予左部字符串變量。 ………. For i:=1 to 20 do s1[i]:=chr(64+i)。{l 的值為 9} copy（ s,w,k) 函數(shù) 復(fù)制 s 中從 w開始的 k 位 字符串 s:=39。3456739。123439。 str(i,s)。} Delete(s,w,k) 過程 在 s 中刪除從第 w 位開始的k 個字符 s := 39。 { 39。 Insert(39。Honest Abe Lincoln39。 39。 s2:=39。1234567839。 請編程輸入一串明文和密鑰，輸出其密文。第一個服務(wù)員把所有的房間門都打開了，第二個服務(wù)員把所有編號是 2的倍數(shù)的房間 “相反處理 ”，第三個服務(wù)員把所有編號是 3 的倍數(shù)的房間作 “相反處理 ”， …… ，以后每個服務(wù)員都是如此。 4． 輸入 n 個整數(shù)，請找出最小數(shù)所在的位置，并把它與第一個數(shù) 對調(diào)。 類型定義的語法格式： type 標(biāo)識符 1=類型 1； 標(biāo)識符 2=類型 2； ?? 標(biāo)識符 n=類型 n； : 當(dāng)