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