【正文】 字符。字符串類型:String。字符串定義時，如不指定長度，則按該類型的最大長度（255個字符）分配空間，使用時最大可用長度為255個；如果在中括號中給出一個具體的值（1—255之間），則按這個值的大小分配空間。字符串類型既可按數(shù)組方式輸入、輸出，也可直接輸入、輸出：readln(s)；writeln(s)；多個字符串輸入時以回車作為數(shù)據(jù)間的分隔符；每個readln語句只能讀入一個字符串。長度函數(shù)：length(S)，計(jì)算字符串S的長度。刪除子串過程：delete(S,I,L)，在S中從的I個字符起刪除L個字符。記錄類型：記錄類型由固定數(shù)量的具有不同類型的成分組成，在實(shí)際的程序設(shè)計(jì)中，這種類型非常有用，比方說學(xué)生的信息包括：學(xué)號，姓名，語文，數(shù)學(xué)，英語成績，平均分等組成，用一個簡單的數(shù)據(jù)類型無法表達(dá)。TScores=Array[1..5] of TScore。Name:String[16]。Avg:Real。{End Type TStudent}TStudents=Array[1..50] of TStudent。定義一個學(xué)生變量，可以使用student[1].Name來訪問學(xué)生的姓名。定義：Type 集合數(shù)據(jù)類型標(biāo)識符= Set of 基類型。Type EvenDigits=Set of [0,2,4,6,8]。例4：傳說中有一個殘暴的國王，喜歡殺戮百姓。在這30個百姓中間有一個聰明人，他站出來對國王說：“請國王大發(fā)慈悲，赦免二人不死。剩下的人繼續(xù)從1開始報(bào)數(shù)，循環(huán)反復(fù)，直到剩下兩個人為止，這兩個人被赦免。請你設(shè)計(jì)一個程序，由計(jì)算機(jī)判斷聰明人要站在什么位置，才能躲過這一場屠殺。用數(shù)組A（M）存放M個人是否還在圈中的信息。A（I）＝0 表示第I個人已被殺掉。用K＝K＋A（I）來實(shí)現(xiàn)報(bào)數(shù)功能，因?yàn)橹挥羞€在圈中的人才能使K的值增加。最后出圈的兩個人就是被赦免的人。const m = 100。var a: array[1..m] of integer。begin writeln。====================39。 for i := 1 to m do a[i] := 1。 k := 0。 if k n then continue。 p := p + 1。 writeln。 a[i] := 0。 d := d + 1。 end。 {while}end.例5：輸入一個十進(jìn)制數(shù)，將其轉(zhuǎn)換成二進(jìn)制數(shù)。const max = 20。 str: array[1..max] of byte。var k, r: integer。 repeat dec(k)。 for r := k downto 1 do write(str[r])。end。Please input an integer between 1..32767:39。 readln(i)。 repeat inc(j)。 i := i div 2。 str[j + 1] := 1。end. 練習(xí)： 數(shù)學(xué)黑洞6174：已知：一個任意的四位正整數(shù)。即：76411467=6174。求證：所有四位數(shù)數(shù)字（全相同的除外），均能得到6174。 隨機(jī)產(chǎn)生20個三位數(shù)，將這20個數(shù)按從小到大的順序排列，要求在排列中，用盡可能少的交換次數(shù)。 有一組數(shù)，其排列形式如下：11，19，9，12，5，20，1，18，4，16，6，10，15，2，17，3，14，7，13，8，且尾部8和頭部11首尾相連，構(gòu)成環(huán)形的一組數(shù)，編程找出相鄰的4個數(shù)，其相加之和最大，并給出它們的起始位置。編一程序交換這組數(shù)中任意指定的兩段。打算從中選出一個大王。要求：從鍵盤輸入M，N，編程計(jì)算哪一個編號的猴子成為大王。問題分析：首先，開辟一個數(shù)組S(I)，準(zhǔn)備存放這40個數(shù)，再開辟一個數(shù)組CHA(I)，用來存放兩個數(shù)的差。把這個自然數(shù)放進(jìn)數(shù)組S中，同時把這個自然數(shù)與數(shù)組S中原有的每一個自然數(shù)的差記錄在數(shù)組S中去。 重復(fù)步驟（3），直到找到40個自然數(shù)為止。說明：X可以是整型，也可以是實(shí)型；返回值和X的類型一致例子：varr: Real。beginr := Abs()。 { 157 }end. 取整函數(shù)int(x)定義：function Int(X: Real): Real。beginR := Int()。 { }end.截尾函數(shù)trunc(x)定義：function Trunc(X: Real): Longint。 bees 39。 { 1 }Writeln(, 39。, Trunc())。bees 39。 { 1 }Writeln(, 39。, Trunc())。注意：X是實(shí)型表達(dá)式. Round ，則出錯.例子：beginWriteln(, 39。, Round())。 rounds to 39。 { 2 }Writeln(, 39。, Round())。rounds to 39。{ 2 }end.取小數(shù)函數(shù)frac(x)定義：function Frac(X: Real): Real。 也就是說，F(xiàn)rac(X) = X Int(_X).例子：varR: Real。 { }R := Frac()。注意：X 是實(shí)型表達(dá)式. 返回實(shí)型的X的平方根.平方：function Sqr(X): (Same type as parameter)。5 squared is 39。 { 25 }Writeln(39。,Sqrt())。例子：varS: String。Writeln(39。, S, 39。)。length = 39。end. 復(fù)制子串copy定義： function Copy(S: String。 Count: Integer): String。Index和Count是整型表達(dá)式。例子：var S: String。ABCDEF39。 { 39。 }end.插入子串insert定義：procedure Insert(Source: String。 Index: Integer)。 S 是任意長度字符串類型變量。Insert 把 Source插在S中Index處。例子：varS: String。Honest Lincoln39。Abe 39。 { 39。 }end.刪除子串delete定義：procedure Delete(var S: String。 Count:Integer)。 Index和Countare是整型表達(dá)式。如果Index大于S的長度，則不刪除任何字符；如果Count大于S中從Index開始的實(shí)際字符數(shù)，則刪除實(shí)際的字符數(shù)。begins := 39。Delete(s,8,4)。 { 39。 }Delete(s,9,10)。 { 39。 }end.字符串轉(zhuǎn)為數(shù)值val定義： procedure Val(S。 var Code: Integer)。V 是整型或?qū)嵭妥兞?；Code 是Integer型變量注意：Val將S轉(zhuǎn)為它的數(shù)值形式。I, Code: Integer。123439。writeln(i)。 var S:string)。例子：varS: string[11]。IntToStr := S。beginWriteln(IntToStr(5322))。end.求子串起始位置pos定義：function Pos(Substr: String。注意：Substr和S字符串類型表達(dá)式。這個值是Substr的第一個字符在S中的位置。例子：var S: String。 39。 39。 39。039。例子：var s1,s2,s:string。Turbo 39。pascal39。 { 39。 }end. 字符串壓縮空格串連定義：操作符去掉第一個字符串最后的空格后，將兩個字符串聯(lián)在一起。begins1:=39。s2:=39。s:=s1s2。Turbopascal39。一個指針變量僅能指向某一種類型的存儲單元，這種數(shù)據(jù)類型是在指針類型的定義中確定的，稱為指針類型的基類型?！　　ar a,b,c:q。a,b,c均定義為指針變量，分別可以指向一個整型存儲單元?！　≈羔樢部梢灾赶蛴薪Y(jié)構(gòu)的存儲單元?！　　　　　　　ex:(male,female)?！　　ar pt:^person?！　?yīng)用一個指針指向的動態(tài)存儲單元即動態(tài)變量的形式如下：　　　　指針變量名^例如：p^、q^、r^　　指針變量p和它所指向的動態(tài)變量^p之間有如下關(guān)系：P－P39。以下語句把p所指向的p^中的值賦給整型變量i：i:=p^。其中nil是Turbo Pascal保留字，表示“空”，相當(dāng)于C里面的null 對動態(tài)變量的操作　　在Turob Pascal程序中，動態(tài)變量不能由var直接定義而是通過調(diào)用標(biāo)準(zhǔn)過程new建立的?！　∪绻邢铝凶兞慷x語句：　　　var p:^integer。在程序中必須通過過程調(diào)用語句：new(p)。在同一時間內(nèi)一個指針只能指向一個變量單元?！　榱斯?jié)省內(nèi)存空間，對于一些已經(jīng)不使用的現(xiàn)有動態(tài)變量，應(yīng)該使用標(biāo)準(zhǔn)過程dispose予以釋放。例如在用了new(p)后在調(diào)用dispose(p)，則指針p所指向的動態(tài)變量被撤銷，內(nèi)存空間還給系統(tǒng)，這時 p的值為 nil。　program dongtai。　　var p1,p2:intepter?！　　ar p:integer。q1:=q2?！　nd。new(p2)。input 2 data: 39。readln(p1^,p2^)。output 2 data: 39。　end. 第九節(jié) 文件操作類型文件　　按數(shù)據(jù)的二進(jìn)制代碼形式存放時的文件稱為類型文件。其定義為：　　　type 類型名=file of 基類型；{有類型文件}　　　　　類型名=file；　　　　{無類型文件}　　例如：var f:file of integer?！　　　　ar g:file?！　urbo Pascal有關(guān)類型文件的函數(shù)和過程（1）assign過程　　形式：assign(f,str)。（2）rewrite過程　　形式：rewrite(f)。這時，指向文件元素的指針指向第一個元素，rewrite過程所建立的文件為空文件?！　」δ埽捍蜷_一個已經(jīng)存在的磁盤文件，其文件名必須先由assign過程賦給變量f,該文件只能讀，指向文件元素的指針指向第一個元素。　　功能：從磁盤文件f中，將數(shù)據(jù)依次讀到var表表示的各個變量中。　　功能：將var表所表示的各個變量的值依次寫到磁盤文件f上。　　功能：關(guān)閉和f關(guān)聯(lián)的磁盤文件，在寫操作時自動產(chǎn)生一個文件結(jié)束標(biāo)志?！　」δ埽喊盐募羔樢频絝指明文件的第n個元素?！　」δ埽喝粑募赶蛭募?，則返回true,否則返回false?！　　ewrite(f)?！　　lose(f)?！　　eset(f)?！　　lose(f)。要求以一個數(shù)，這個數(shù)的平方數(shù)的格式寫入。　　　var f:file of integer?！　egin　　　assign(f,39。)?！　　or i:=1 to 50 do write(f,i,sqr(i))。文本文件具體是由一系列行組成，每一行可以包括0個或多個字符型成分，并以也行結(jié)束符結(jié)尾，文本文件類型TXT和類型文件file of char區(qū)別在于后者不包含行結(jié)束符。適用文本文件的函數(shù)和過程除了用于類型文件操作的過程和函數(shù)外主要還有：（1)readln過程形式：readln(f,var表)。（2）writeln過程　　形式：writeln(f,var表)或writeln(f)。（3）append過程　　形式：append(f)。（4）eoln函數(shù)　　形式：eoln(f)?！　ξ谋疚募膶懖僮鞑襟E：　　　assign(f,str)?！　』騛ppend(f)?；騱riteln(f)?！　ξ谋疚募淖x操作步驟：　　　assign(f,str)?！　?　　　readln(f,var表)?！　　lose(f)?！　　onst n=30?！　　　　:integer。　　　assign(ra,39。)?！　　or i:=1 to n do writeln(ra,random(100))。編一個程序，從磁盤讀入一個文本文件（英文字符），統(tǒng)計(jì)文件中的字符數(shù)目和單詞數(shù)目（假設(shè)單詞以空格、逗號、分號、句號分隔，文章中不含有其它分隔字符）。 編寫一個建立學(xué)生基本情況的直接存取文件，并能根據(jù)學(xué)生編號檢索其基本情況的程序。 學(xué)生基本情況存儲在記錄student內(nèi)，他有編號、姓名、性別、年齡和五門課成績五個域。為了確定檢索已結(jié)束，最后的編號為65535。(1)算法: number:word。 name:lstring(10)。 name為可變字符串，其可變字符長度為10} grades:array[1..5] of real end。 total,avg:real。 answer,c:char。 sfile:file of student。 assign(sfile,39。)。 :=DIRECT。 rewrite(sfile)。 answer:=39。.39。Enter student number(1000129999) 39。 write(39。)。 begin