【文章內(nèi)容簡(jiǎn)介】 0。for j:=1 to 3 do read(a[i,j])。 readln。 end。{————從鍵盤上讀入20個(gè)同學(xué)的三次競(jìng)賽成績(jī)} for i:=1 to 20 do b[i]:=0。{————先將平均分?jǐn)?shù)組清0} for i:=1 to 20 do begin for j:=1 to 3 do b[i]:=b[i]+a[i,j]。{————計(jì)算總分} b[i]:=b[i]/3。{————計(jì)算平均分} end。 for i:=1 to 20 do write(b[i]:5:1)。{————輸出平均分}writeln。end.例4_1：讓計(jì)算機(jī)隨機(jī)產(chǎn)生100個(gè)0到1000之間的整數(shù)，輸出其中最大的數(shù)。[分析與算法選擇]: 隨機(jī)產(chǎn)生數(shù)可以用其random函數(shù)，產(chǎn)生的100個(gè)數(shù)依次存放在a[1]到a[100]里。選最大數(shù)時(shí)可用“擂臺(tái)比武”的思想，假設(shè)最大數(shù)放在變量max里，如果a[i]比max大，則取而代之，i從1到100重復(fù)此操作。[程序清單]： program maxdigit。 var a:array[1..100] of integer。i,max:integer。 begin randomize。 for i:=1 to 100 do a[i]:=random(1000)。 max:=a[1]。 for i:=2 to 100 do if a[i]max then max:=a[i]。 writeln(‘Max=’,max)。 end.例4_2 鍵盤輸入40個(gè)5位以下的整數(shù)，最后分批輸出其中的奇數(shù)和偶數(shù)。[分析與算法選擇]: 判定一個(gè)數(shù)是奇數(shù)或偶數(shù)比較簡(jiǎn)單，如果不是要分批輸出可以一邊輸入一邊判定，現(xiàn)在要分批輸入所以輸入跟輸出的過(guò)程要分開，輸入的40個(gè)數(shù)要先存放起來(lái)，通過(guò)數(shù)組很方便。[程序清單]：program digit。var a:array[1..40] of integer。 i:integer。begin for i:=1 to 40 do read(a[i])。 writeln。 for i:=1 to 40 do if odd(a[i]) then write(a[i]:5)。writeln。 for i:=1 to 40 do if not odd(a[i]) then write(a[i]:5)。writeln。end.二、字符串類型定義和變量說(shuō)明1．定義type 變量標(biāo)識(shí)符=string[常數(shù)]；還可以使用不帶字符串最大長(zhǎng)度（即不用方括號(hào)）的字符串定義，此時(shí)取時(shí)大長(zhǎng)度的缺省值255，形式為：type 變量標(biāo)識(shí)符=string。例：type class=string[10]。 name=string[20]。 address=string。定義了三個(gè)字符串類型，最大長(zhǎng)度為別是10，20，255。2．字符串變量說(shuō)明字符串變量與簡(jiǎn)單類型變量說(shuō)明一樣，有兩種形式：一是先寫字符串類型定義，后用其進(jìn)行變量說(shuō)明；二是直接將字符串類型寫于變量說(shuō)明之中。曾上例子可以寫出如下的字符串類型變量說(shuō)明：var class1, class2: class。 myname, yourname,hisname: name。 heraddress: address。 也可以直接說(shuō)明：var class1, class2: string[10]。 myname, yourname, hisname: string[20]。 heraddress: string。3．字符串長(zhǎng)度為了記錄一個(gè)字符串的實(shí)際長(zhǎng)度即有效字符的長(zhǎng)度，系統(tǒng)在所有字符串變量前保留一個(gè)不可見(jiàn)字符，稱它為長(zhǎng)度字節(jié)，因此turbopascal編譯器為每一字符串變量在內(nèi)存中所分配的字節(jié)數(shù)（一個(gè)字符占一個(gè)字節(jié)）是其長(zhǎng)度加1。在長(zhǎng)度字節(jié)中存放的是這樣一個(gè)字符：其相應(yīng)的ASCII序數(shù)值為該字符串變量的當(dāng)前實(shí)際長(zhǎng)度。由于系統(tǒng)允許對(duì)一個(gè)字符串變量進(jìn)行整體訪問(wèn)，也可以對(duì)字符串變量中的各個(gè)字符逐個(gè)地訪問(wèn)，第二種訪問(wèn)應(yīng)指定某字符在字符串中的位置即下標(biāo)，如myname[1]表示字符串變量myname的第一個(gè)字符，myname[2]表示第二個(gè)字符，依次類推。因此可用myname[0]表示在長(zhǎng)度字節(jié)中所存放的字符，而字符串的實(shí)際長(zhǎng)度可用ord(myname[0])求得。也可以直接用系統(tǒng)函數(shù)來(lái)求字符串的長(zhǎng)度，如length(myname)。4．字符串與字符字符串變量和字符類型char相兼容，可把char視作長(zhǎng)度為1的字符串類型，因而它們?cè)谧址磉_(dá)式計(jì)值時(shí)可混合使用。如‘A’可看作是字符，也可視為字符串。但字符串類型和字符類型在內(nèi)存中的存儲(chǔ)形式不同。另外允許長(zhǎng)度為0的空串{此時(shí)字符串的存儲(chǔ)仍然要一個(gè)字節(jié)，用來(lái)存放其長(zhǎng)度字符}，但字符類型必須也只能有一個(gè)字符。5．字符串的常數(shù)定義與類型常數(shù)定義可將任意字符串定義成一個(gè)常數(shù)標(biāo)識(shí)符，以供程序各處引用。字符串常數(shù)定義的一般形式為：const 常數(shù)標(biāo)識(shí)符=字符串常數(shù)；其中字符串常數(shù)是用單引號(hào)括起的字符串序列。如：const heading=’Difference between string variable and string typed constant’。splitline=’’。分別以常數(shù)標(biāo)識(shí)符heading表示一個(gè)表頭信息，splitline表示分隔線。字符串類型常數(shù)定義要規(guī)定字符串類型及所取的初始值，形式為：const 類型標(biāo)識(shí)符：字符串類型=字符串常數(shù)；如：constPassword:string[7]=’private’。TrueString:string[5]=’yes’。FalseString:string[5]=’no’。SchoolName:string[4]=’NTZX’。NewLine:string[2]=1310。 {通常通過(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)算可形成新的字符串。運(yùn)算符主要是+，用來(lái)進(jìn)行字符串的連接。如：說(shuō)明了常數(shù)const pas=’pascal’就可以有以下的字符串表達(dá)式：‘Turbo’+pas+’ is better than ‘+’standard ‘+pas 字符串連接的結(jié)果還是字符串，如果串和長(zhǎng)度超過(guò)255，則超過(guò)的字符將被截去?？墒褂藐P(guān)系運(yùn)算符=,=,=,比較任意兩個(gè)字符串的大小，這些運(yùn)算符的優(yōu)先級(jí)別比連接符“+”號(hào)低，要注意這點(diǎn)，該加括號(hào)的地方要加括號(hào)。關(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è)字符串長(zhǎng)度不等，但短字符串與長(zhǎng)字符串前面的字符逐個(gè)相等，則認(rèn)為短字符串小于長(zhǎng)字符串。字符串的比較大小其實(shí)就是比較字符的ASCII碼值的大小，有點(diǎn)跟字典順序相似。2．字符串賦值語(yǔ)句賦值語(yǔ)句可應(yīng)用于字符串類型，它表示計(jì)算右部字符串表達(dá)式的值，并將結(jié)果賦予左部字符串變量。允許以字符串變量中某一個(gè)字符位置賦值即此時(shí)實(shí)際上是字符的賦值。如：var hisname:string[15]?！?.hisname:=’Mr.’+’ Yueking’又如：var s1:string[20]。 ………. For i:=1 to 20 do s1[i]:=chr(64+i)。：操作 類型 作用 返回值 例子 length(s)函數(shù) 求字符串s的長(zhǎng)度整型s:=39。12345678939。l:=length(s)。{l的值為9}copy（s,w,k)函數(shù) 復(fù)制s中從w開始的k位字符串s:=39。12345678939。s1:=copy(s,3,5)。{s1的值是39。3456739。}val(s,k,code)過(guò)程 將字符串s轉(zhuǎn)為數(shù)值，存在k中；code是錯(cuò)誤代碼var s:string。k,code:integer。begins:=39。123439。val(s,k,code)。write(k)。{k=1234}str(i,s)過(guò)程 將數(shù)值i轉(zhuǎn)為字符串si:=1234。str(i,s)。write(s)。{s=39。123439。}Delete(s,w,k)過(guò)程 在s中刪除從第w位開始的k個(gè)字符s := 39。Honest Abe Lincoln39。Delete(s,8,4)。Writeln(s)。 { 39。Honest Lincoln39。 }Insert(s1, S, w)過(guò)程 將s1插到s中第w位S := 39。Honest Lincoln39。Insert(39。Abe 39。, S, 8)。 { 39。Honest Abe Lincoln39。 }Pos(c, S)函數(shù) 求字符c在s中的位置整型S := 39。 39。i :=Pos(39。 39。, S)。{i的值為1}+運(yùn)算符 將兩個(gè)字符串連接起來(lái)s1:=39。123439。s2:=39。567839。s:=s1+s2。{39。1234567839。}　 例43 Caesar(凱撒密碼)已知最早的代換密碼是由Julius Caesar發(fā)明的Caesar密碼。它非常簡(jiǎn)單，就是對(duì)字母表中的每個(gè)字母，用它之后的第3個(gè)字母來(lái)代換。例如：明文：meet me after the toga party密文：phhw ph diwhu whk wrjd sduwb注意到字母表是循環(huán)的，即認(rèn)為緊隨Z后的字母是A。請(qǐng)編程輸入一串明文和密鑰，輸出其密文。并根據(jù)密鑰把密文解密后輸出明文。[練習(xí)及作業(yè)]：1. 輸入10個(gè)整數(shù)，把這10個(gè)數(shù)按從小到大的順序排列。分別用選擇排序法、冒泡排序法、插入排序法來(lái)解此題；2． 旅館里有一百個(gè)房間，從1到100編了號(hào)。第一個(gè)服務(wù)員把所有的房間門都打開了，第二個(gè)服務(wù)員把所有編號(hào)是2的倍數(shù)的房間“相反處理”，第三個(gè)服務(wù)員把所有編號(hào)是3的倍數(shù)的房間作“相反處理”，……，以后每個(gè)服務(wù)員都是如此。問(wèn)第100個(gè)服務(wù)員來(lái)過(guò)后，哪幾扇門是打開的。（所謂“相反處理”是：原來(lái)開著的門關(guān)上，原來(lái)關(guān)上的門打開。）3． 隨機(jī)輸入一個(gè)長(zhǎng)度不超過(guò)255的字符串，將其倒置后輸出。4． 輸入n個(gè)整數(shù)，請(qǐng)找出最小數(shù)所在的位置，并把它與第一個(gè)數(shù)對(duì)調(diào)。5． 將一個(gè)數(shù)插入到有序的數(shù)列中，插入后數(shù)列仍然有序。第五講 子界、枚舉與集合類型主要內(nèi)容：掌握子界、枚舉、集合類型的特點(diǎn)和定義；能根據(jù)不同的實(shí)際問(wèn)題來(lái)選擇使用不同的數(shù)據(jù)類型； 熟練掌握與這三種數(shù)據(jù)類型相關(guān)的典型例題如篩選法、萬(wàn)年歷等； 掌握集合的各種運(yùn)算。Pascal有豐富的數(shù)據(jù)類型，在程序設(shè)計(jì)中有特殊而方便的應(yīng)用。 類型定義的語(yǔ)法格式：　　type　　標(biāo)識(shí)符1=類型1；　　標(biāo)識(shí)符2=類型2；　　……　　標(biāo)識(shí)符n=類型n； : 當(dāng)某些變量的取值范圍很具體時(shí),可用子界類型,它更符合實(shí)際、便于查錯(cuò)和節(jié)省內(nèi)存。 定義如下: type riqi=1..31。 zimu=39。A39。..39。Z39。 var day:riqi。 ch1:zimu。 也可以直接定義: day：1..31。 year:0..200。 ch1:39。A39。..39。Z39。 枚舉類型: 通過(guò)預(yù)定義列出所有值的標(biāo)識(shí)符來(lái)定義一個(gè)有序集合，這些值的次序和枚舉類型說(shuō)明中的標(biāo)識(shí)符的次序是一致的。枚舉類型的形式：　　(標(biāo)識(shí)符1，……，標(biāo)識(shí)符n)　　例如：　　type daystype=(sunday,monday,tuesday,wednesday,thursday,friday,saturday)　　枚舉元素只能是標(biāo)識(shí)符，而不能是數(shù)值常量或字符常量。例如以下的定義是錯(cuò)誤的：　　type daystype=(39。sun39。,39。mon39。,39。tue39。,39。wed39。,39。thu39。,39。fri39。,39。sat39。)　　枚舉元素是標(biāo)識(shí)符，不要把作為枚舉元素的標(biāo)識(shí)符視作變量名，它不能被賦值。同一個(gè)枚舉元素不能出現(xiàn)在兩個(gè)或兩個(gè)以上的枚舉類型定義中。例如以下的定義是錯(cuò)誤的：　　type daytype1=(monday,tuesday)?！　aytype2=(monday,wednesday)。　　可以將枚舉類型的定義和變量的定義結(jié)合在一起。例如：var a:(monday,tuesday,sunday)　　枚舉類型屬于順序類型。根據(jù)定義類型時(shí)各枚舉元素的排列順序確定它們的序列，序列號(hào)從0開始。　　例如：已經(jīng)定義daystype　　ord(sunday)=0,succ(sunday)=monday,pred(friday)=thursday　　但是枚舉類型中的第一個(gè)元素沒(méi)有前趨，最后一個(gè)元素沒(méi)有后繼。Turbo Pascal不允許直接讀寫枚舉值，所以枚舉值的輸出常用case語(yǔ)句間接的輸出。枚舉值的輸入，則要一一判斷讀入字符是否是枚舉類型的標(biāo)識(shí)符。若是才能賦給枚舉變量，否則就會(huì)出錯(cuò)。　　例如：枚舉值的輸出　　case day of　　sunday:write(39。sunday39。)。　　monday:write(39。mond