【正文】 aturday:write(39。)。wednesday39。　　tuesday:write(39。)。枚舉值的輸入，則要一一判斷讀入字符是否是枚舉類型的標(biāo)識(shí)符。例如：var a:(monday,tuesday,sunday)　　枚舉類型屬于順序類型。同一個(gè)枚舉元素不能出現(xiàn)在兩個(gè)或兩個(gè)以上的枚舉類型定義中。fri39。wed39。mon39。枚舉類型的形式：　　(標(biāo)識(shí)符1，……，標(biāo)識(shí)符n)　　例如：　　type daystype=(sunday,monday,tuesday,wednesday,thursday,friday,saturday)　　枚舉元素只能是標(biāo)識(shí)符，而不能是數(shù)值常量或字符常量。A39。 也可以直接定義: A39。Pascal有豐富的數(shù)據(jù)類型，在程序設(shè)計(jì)中有特殊而方便的應(yīng)用。3． 隨機(jī)輸入一個(gè)長度不超過255的字符串，將其倒置后輸出。第一個(gè)服務(wù)員把所有的房間門都打開了，第二個(gè)服務(wù)員把所有編號(hào)是2的倍數(shù)的房間“相反處理”，第三個(gè)服務(wù)員把所有編號(hào)是3的倍數(shù)的房間作“相反處理”，……，以后每個(gè)服務(wù)員都是如此。并根據(jù)密鑰把密文解密后輸出明文。}　 例43 Caesar(凱撒密碼)已知最早的代換密碼是由Julius Caesar發(fā)明的Caesar密碼。567839。{i的值為1}+運(yùn)算符 將兩個(gè)字符串連接起來 39。, S, 8)。S := 39。Writeln(s)。}Delete(s,w,k)過程 在s中刪除從第w位開始的k個(gè)字符str(i,s)。val(s,k,code)。var s:string。s1:=copy(s,3,5)。12345678939。如：var hisname:string[15]。如果兩個(gè)字符串長度不等，但短字符串與長字符串前面的字符逐個(gè)相等，則認(rèn)為短字符串小于長字符串。運(yùn)算符主要是+，用來進(jìn)行字符串的連接。FalseString:string[5]=’no’。splitline=’’。另外允許長度為0的空串{此時(shí)字符串的存儲(chǔ)仍然要一個(gè)字節(jié)，用來存放其長度字符}，但字符類型必須也只能有一個(gè)字符。也可以直接用系統(tǒng)函數(shù)來求字符串的長度，如length(myname)。3．字符串長度為了記錄一個(gè)字符串的實(shí)際長度即有效字符的長度，系統(tǒng)在所有字符串變量前保留一個(gè)不可見字符，稱它為長度字節(jié)，因此turbopascal編譯器為每一字符串變量在內(nèi)存中所分配的字節(jié)數(shù)（一個(gè)字符占一個(gè)字節(jié)）是其長度加1。 heraddress: address。定義了三個(gè)字符串類型，最大長度為別是10，20，255。end.二、字符串類型定義和變量說明1．定義type 變量標(biāo)識(shí)符=string[常數(shù)]；還可以使用不帶字符串最大長度（即不用方括號(hào)）的字符串定義，此時(shí)取時(shí)大長度的缺省值255，形式為：type 變量標(biāo)識(shí)符=string。 for i:=1 to 40 do if odd(a[i]) then write(a[i]:5)。var a:array[1..40] of integer。 writeln(‘Max=’,max)。 begin randomize。選最大數(shù)時(shí)可用“擂臺(tái)比武”的思想，假設(shè)最大數(shù)放在變量max里，如果a[i]比max大，則取而代之，i從1到100重復(fù)此操作。 for i:=1 to 20 do write(b[i]:5:1)。 for i:=1 to 20 do b[i]:=0。{————從鍵盤上讀入20個(gè)同學(xué)的三次競賽成績} i,j:integer。定義一個(gè)20個(gè)元素的一維數(shù)組來存放平均分。 writeln。 readln。for j:=1 to 5 do read(a[i,j]){————第一行讀入5個(gè)元素}二維數(shù)組的輸入輸出要用雙重循環(huán)來控制：for i:=1 to 10 do{————控制行數(shù)}begin對(duì)某一列進(jìn)行處理。 對(duì)某一行進(jìn)行處理。 其中：a是數(shù)組名，由程序員自定；array和of是定義數(shù)組的保留字；（這兩點(diǎn)和一維數(shù)組定義的格式一樣）中括號(hào)中的兩個(gè)范圍表示二維數(shù)組共有多少行、多少列（第一個(gè)范圍表示行數(shù)，第二個(gè)范圍表示列數(shù)）；最后一個(gè)表示數(shù)組元素的類型，規(guī)定和一維數(shù)組一樣。a：array[1..10,1..5] of integer； (1).二維數(shù)組的定義：var 一維數(shù)組在編程中多用于描述線性的關(guān)系：如一組數(shù)；一組成績；一組解答等。通常也用循環(huán)結(jié)構(gòu)來完成這一功能：for i:=1 to 10 do write(a[i],39。{————數(shù)組元素a[1]到a[10]的值分別為1到10；數(shù)據(jù)賦初值}for i:=1 to 10 do a[i]:=0。后面我們會(huì)專門介紹排序的算法的。c:array[1..20] of char。var a,b:array1。數(shù)組其實(shí)是一組相同值類型的變量的集合，這些變量共用一個(gè)名，彼此之間通過下標(biāo)來區(qū)別。指針類型是一種特殊的數(shù)據(jù)類型，它涉及到動(dòng)態(tài)存儲(chǔ)分配。Turbopascal的數(shù)據(jù)類型分為三種類型：簡單類型、構(gòu)造類型、指針類型?！盋說：“小偷肯定是D?！?丁：“最大鄱陽湖，最小太湖，洪澤湖第二，洞庭湖第三。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 813．找出100以內(nèi)所有被5除余數(shù)為1的整數(shù)4．求出100~999內(nèi)所有的水仙花數(shù)，所謂水仙花數(shù)是該數(shù)等于它各位上的數(shù)的立方和。 writeln。 while (i mod j0) and (ji) do j:=j+1。var i,j,k,n:integer。 end。begin __________(1)________。end.[思考與提高]：上面整個(gè)程序是個(gè)兩重循環(huán)，而外循環(huán)的循環(huán)體是兩個(gè)并列的循環(huán)，因此雖然程序中有三個(gè)for語句，但只是兩重循環(huán)。 {輸出空格數(shù)} for ch:=’A’ to c do write(ch)。而當(dāng)一個(gè)循環(huán)的循環(huán)體中又有循環(huán)時(shí)，這就是循環(huán)的嵌套，稱為多重循環(huán)。 I:=1。Writeln(s)End.［總結(jié)與提高］While與Repeat語句對(duì)比while和repeat語句一般情況下可以相互替換。 I:=1。二、Repeat語句（直到型循環(huán)）1．格式：repeat 語句；語句；……；語句；until 布爾表達(dá)式；2. 說明格式中repeat和until都是保留字，其間的語句構(gòu)成循環(huán)體，最后一個(gè)語句的分號(hào)可以省略；until后的布爾表達(dá)式表示條件，描述的是循環(huán)結(jié)束的條件。 While I=100 do Begin S:=s+I。例3．1用當(dāng)循環(huán)計(jì)算1+2+3+……100[分析]：此類題也稱累加，設(shè)最后結(jié)果放入變量S中，設(shè)計(jì)一指針I(yè)，讓I從1開始遞增，并累加到S中，當(dāng)I的值等于100時(shí)，循環(huán)結(jié)束。一．While語句（當(dāng)型循環(huán)）1．格式：while 布爾表達(dá)式 do 語句；2．說明：格式中while和do都是保留字，布爾表達(dá)式表示條件，它的描述跟條件語句里的條件描述是一樣的。，接受用戶輸入10位選手的得分（0—10分），然后去掉一個(gè)最高分和一個(gè)最低分，求出某選手的最后得分（平均分）。，班長小Q決定將剩余班會(huì)費(fèi)，用于購買若干支鋼筆獎(jiǎng)勵(lì)給一引起學(xué)習(xí)好、表現(xiàn)好的同學(xué)。[分析與提示]： 用隨機(jī)函數(shù)來產(chǎn)生四則運(yùn)算的操作數(shù)和操作符，其中操作數(shù)都是100以內(nèi)的整數(shù)，所以可以直接用random(100)就行了，如果第一個(gè)數(shù)比第二個(gè)數(shù)小則交換兩個(gè)數(shù)。設(shè)三個(gè)數(shù)為a，b，c，一種方法可以用條件的并列，列舉出可能有的6種情況。 end。 {等同于 if random(maxint) mod 2=0 then writeln(‘Even digit.’) else writeln(‘Odd digit.’)。三、多分支語句case {有時(shí)也叫多路分支}1．格式：case 表達(dá)式 of值1： 語句1；值2： 語句2；……[else 語句]end。例：條件語句與自然語言描述if a0 then begin a:=a+1。如果a0或者b0，那么s的值等于a+b（4）if f then t:=t+1。條件通過布爾表達(dá)式來描述。{說明：end前的最后一個(gè)分號(hào)可以不寫，也可以寫，相當(dāng)于其后是一個(gè)空語句。經(jīng)上述三次分錢之后，每個(gè)人的錢數(shù)恰好一樣多。writeln(3)；練習(xí)及作業(yè)：(1) 輸入三角形的三邊，輸出三角形的面積（假設(shè)這三邊一定能構(gòu)成三角形）。再如 writeln(1,2,3)。五、一個(gè)語句多個(gè)輸出項(xiàng)一個(gè)write或writeln中可以有多個(gè)輸出項(xiàng)，各項(xiàng)之間用逗號(hào)間隔。一般來說對(duì)于變量的處理，可以先按這種方法（即相應(yīng)位加5后再去尾）通過賦值語句進(jìn)行處理，輸出時(shí)不進(jìn)行處理，只是直接輸出就行了。[思考]：如何對(duì)小數(shù)點(diǎn)后指定位進(jìn)行四舍五入？[解答]：一種方法是直接指定輸出小數(shù)點(diǎn)后指定的位數(shù)，如對(duì)于變量a要保留到小數(shù)點(diǎn)后第三位并考慮四舍五入，可以直接寫為write(a:0:3)。 分別輸出a的值和Jiangshu（1）場寬在輸出項(xiàng)后用“：數(shù)字”指明輸出的寬度。 readln(c)執(zhí)行時(shí)可能讀入的數(shù)據(jù)跟原來不一樣，自己上機(jī)去試試吧！readln。read(c)。Readln跟read不同的地方就是它執(zhí)行完后將到下一行。writeln(‘a(chǎn)*b*c*c=’,t)。t:=t*a。 a,b,c,d:integer。如果變量的個(gè)數(shù)不確定，或者說變量的個(gè)數(shù)很多，此時(shí)用一個(gè)表達(dá)式就不方便了，可行的方法是來一個(gè)就算一個(gè)，直到全部的都算好結(jié)束。 {執(zhí)行此語句后a=5,b=3}還有其它一些辦法，但都沒有上面的兩種方法通用。b:=c。 {將s的值增加a，常用類似的累加語句來進(jìn)行求和}t:=t*a。程序設(shè)計(jì)提高班培訓(xùn)講義胡苗坤 （2007寒假）第一講 順序結(jié)構(gòu)程序設(shè)計(jì)主要內(nèi)容： 熟練掌握賦值語句、輸入輸出語句的用法 掌握順序結(jié)構(gòu)程序設(shè)計(jì)常用方法 基本運(yùn)算符的使用常用函數(shù)和過程一、賦值語句（：=）格式：變量名：=表達(dá)式 功能：將表達(dá)式的值計(jì)算出來賦給相應(yīng)的變量。 {a的值為50}a:=a+1；{將a的值增加1，常用此語句來進(jìn)行計(jì)數(shù)}s:=s+a。a:=b。 {執(zhí)行此語句后a=8,b=3}a:=ab。例題2：計(jì)算四個(gè)變量的乘積[分析與算法選擇]：一般的計(jì)算，可以直接用一個(gè)表達(dá)式將運(yùn)算結(jié)果給一個(gè)變量就行了。var t:longint。t:=1。t:=t*d。二、read/readln 讀取數(shù)據(jù)格式：read(變量) 或 read(變量1，變量2，……)readln(變量) 或 readln(變量1，變量2，……)功能：在運(yùn)行程序時(shí)讀入相應(yīng)數(shù)據(jù)給指定變量，直到讀入的數(shù)據(jù)滿足為止，這里所說的滿足有兩個(gè)方面的含義，一是類型的一致，二是數(shù)據(jù)的滿足。read(b)。 readln(b)。 如wirte(a),write(‘Jiangshu’)。對(duì)于實(shí)數(shù)，小數(shù)部分會(huì)取自定的位數(shù)，將尾部去除（四舍五入），并自動(dòng)適應(yīng)到最少的寬度。如要求對(duì)實(shí)型變量a要求精確到小數(shù)點(diǎn)后兩位，對(duì)小數(shù)點(diǎn)后第三位進(jìn)行四舍五入，可以用這樣的輸出語句write(a+:0:2)。在程序中經(jīng)常用一個(gè)空的writeln語句起換行的作用。write(3)。write(2)。(3) 輸入一個(gè)10000以內(nèi)的整數(shù)，輸出它的位數(shù)(4) 分錢游戲：甲、乙、丙三人共有24元錢，先由甲分錢給乙、丙兩人，所分給的數(shù)與各人已有數(shù)相同；接著由乙分給甲、丙，分法同前；再由丙分錢給甲、乙，分法亦同前。2．格式：begin語句1；語句2；……語句N； end。（思考這是為什么？）1．條件的描述 在使用條件語句時(shí)主要的難點(diǎn)就是條件的描述和滿足條件或不滿足條件時(shí)要執(zhí)行的語句的描述。如果a大于b并且b大于c，那么s的值為（ab）乘以(bc)（3）if (a0) or (b0) then s:=a+b。當(dāng)然單個(gè)語句也使用復(fù)合語句的格式也不會(huì)錯(cuò)，只不過多此一舉而已，并不影響程序的執(zhí)行，有時(shí)先這樣寫是為了后來的擴(kuò)充。如果a小于0，那么執(zhí)行兩部分：（1）a的值增加1；（2）s的值增加1。 end。 else writeln(ch,’ is a special cha