【正文】 String。 S: String): Byte。注意：Substr和S字符串類型表達式。Pos在S中搜索Substr并返回一個integer值。這個值是Substr的第一個字符在S中的位置。如果在S中沒有找到Substr，則Pos返回0。例子：var S: String。beginS := 39。 39。{ Convert spaces to zeroes }while Pos(39。 39。, S) 0 doS[Pos(39。 39。, S)] := 39。039。end.字符完全串連+定義：操作符+把兩個字符串聯(lián)在一起。例子：var s1,s2,s:string。begins1:=39。Turbo 39。s2:=39。pascal39。s:=s1+s2。 { 39。Turbo pascal39。 }end. 字符串壓縮空格串連定義：操作符去掉第一個字符串最后的空格后，將兩個字符串聯(lián)在一起。例子：var s1,s2,s:string。begins1:=39。Turbo 39。s2:=39。pascal39。s:=s1s2。 { 39。Turbopascal39。 }end. 第八節(jié) 指針指針的動態(tài)變量　　在Turbo Pascal中，指針變量中存放的某個存儲單元的地址，即指針變量指向某個存儲單元。一個指針變量僅能指向某一種類型的存儲單元，這種數(shù)據(jù)類型是在指針類型的定義中確定的，稱為指針類型的基類型。指針類型定義如下：　　　類型名＝^基類型名；例如：type q=^integer?！　　ar a,b,c:q?！　≌f明q是一指向整型存儲單元的指針類型，其中^為指針符。a,b,c均定義為指針變量，分別可以指向一個整型存儲單元?！　∩侠部啥x為：　　　　var a,b,c:^integer?！　≈羔樢部梢灾赶蛴薪Y(jié)構(gòu)的存儲單元。例如：type person=record　　　　　　　 name:string[10]?！　　　　　　　ex:(male,female)?！　　　　　　　ge:20..70　　　　　　end?！　　ar pt:^person?！　t為指向記錄類型person的指針變量?！　靡粋€指針指向的動態(tài)存儲單元即動態(tài)變量的形式如下：　　　　指針變量名^例如：p^、q^、r^　　指針變量p和它所指向的動態(tài)變量^p之間有如下關(guān)系：P－P39。以下語句把整數(shù)5存放到p所指向的動態(tài)變量p^ 中去：p^:=5。以下語句把p所指向的p^中的值賦給整型變量i：i:=p^。如果指針變量p并未指向任何存儲單元，則可用下列賦值語句：p:=nil。其中nil是Turbo Pascal保留字，表示“空”，相當于C里面的null 對動態(tài)變量的操作　　在Turob Pascal程序中，動態(tài)變量不能由var直接定義而是通過調(diào)用標準過程new建立的。過程形式為：　　　　new(指針變量名)。　　如果有下列變量定義語句：　　　var p:^integer?！　H僅說明了p是一個指向整型變量單元的指針變量，但這個整型單元并不存在，在指針變量p中還沒有具體的地址值。在程序中必須通過過程調(diào)用語句：new(p)。才在內(nèi)存中分配了一個整型變量單元，并把這個單元的地址放在變量p中，一個指針變量只能存放一個地址。在同一時間內(nèi)一個指針只能指向一個變量單元。當程序再次執(zhí)行new(p)時，又在內(nèi)存中新建立了一個整型變量單元，并把新單元的地址存放在p中，從而丟失了舊的變量單元的地址?！　榱斯?jié)省內(nèi)存空間，對于一些已經(jīng)不使用的現(xiàn)有動態(tài)變量，應該使用標準過程dispose予以釋放。過程形式為：dispose(指針變量名)；為new(指針變量名)的逆過程，其作用是釋放由指針變量所指向的動態(tài)變量的存儲單元。例如在用了new(p)后在調(diào)用dispose(p)，則指針p所指向的動態(tài)變量被撤銷，內(nèi)存空間還給系統(tǒng)，這時 p的值為 nil。 例：輸入兩個數(shù)，要求先打印大數(shù)后打印小數(shù)的方式輸出，用動態(tài)變量做?！rogram dongtai?！　ype intepter=^integer?！　ar p1,p2:intepter。　　procedure swap(var,q1,q2:intepter)?！　　ar p:integer?！　egin　　　p:=q1。q1:=q2。q2:=p。　　end?！egin　　new(p1)。new(p2)?！　riteln(39。input 2 data: 39。)。readln(p1^,p2^)?！　f p1^ then writeln(39。output 2 data: 39。,p1^:4,p2^:$)?！nd. 第九節(jié) 文件操作類型文件　　按數(shù)據(jù)的二進制代碼形式存放時的文件稱為類型文件。如果再按照組成類型文件的元素數(shù)據(jù)結(jié)構(gòu)分，又可以分為有類型文件和無類型文件。其定義為：　　　type 類型名=file of 基類型；{有類型文件}　　　　　類型名=file；　　　　{無類型文件}　　例如：var f:file of integer。　　　　　說明f為名的變量對應文件將用于存放整數(shù)。　　　　　var g:file?！　　　　≌f明g為名的變量對應文件的數(shù)據(jù)無任何規(guī)定?！　urbo Pascal有關(guān)類型文件的函數(shù)和過程（1）assign過程　　形式：assign(f,str)?！　」δ埽簩⑽募址畇tr賦給文件變量f，程序?qū)ξ募兞縡的操作代替對文件str的操作。（2）rewrite過程　　形式：rewrite(f)?！　」δ埽航⒉⒋蜷_一個新的允許寫磁盤文件，其文件名必須先由assign過程賦給變量f。這時，指向文件元素的指針指向第一個元素，rewrite過程所建立的文件為空文件。（3）reset過程　　形式：reset(f)?！　」δ埽捍蜷_一個已經(jīng)存在的磁盤文件，其文件名必須先由assign過程賦給變量f,該文件只能讀，指向文件元素的指針指向第一個元素。（4）read過程　　形式：read(f,var表)。　　功能：從磁盤文件f中，將數(shù)據(jù)依次讀到var表表示的各個變量中。（5）write過程　　形式：write(f,var表)?！　」δ埽簩ar表所表示的各個變量的值依次寫到磁盤文件f上。（6）close過程　　形式：close(f)?！　」δ埽宏P(guān)閉和f關(guān)聯(lián)的磁盤文件，在寫操作時自動產(chǎn)生一個文件結(jié)束標志。（7）seek過程　　形式：seek(f,n)?！　」δ埽喊盐募羔樢频絝指明文件的第n個元素。（8）eof函數(shù)　　形式：eof(f)?！　」δ埽喝粑募赶蛭募?，則返回true,否則返回false?！　τ蓄愋臀募膶懖僮鞑襟E為：　　　assign(f,str)。　　　rewrite(f)?！　　rite(f,var表)?！　　lose(f)?！　τ蓄愋臀募淖x操作步驟為：　　　assign(f,str)?！　　eset(f)?！　　ead(f,var表)。　　　close(f)。 例：在磁盤上建立一個1～。要求以一個數(shù)，這個數(shù)的平方數(shù)的格式寫入。　　program zhoufei?！　　ar f:file of integer。　　　i:integer。　　begin　　　assign(f,39。39。)?！　　ewrite(f)?！　　or i:=1 to 50 do write(f,i,sqr(i))。　　　close(f)　　end. 文本文件　　文本文件的內(nèi)容有ASCII字符集中的字符組成，因此文本文件也稱ASCII碼文件，它可以用DOS中的type命令列出內(nèi)容。文本文件具體是由一系列行組成，每一行可以包括0個或多個字符型成分，并以也行結(jié)束符結(jié)尾，文本文件類型TXT和類型文件file of char區(qū)別在于后者不包含行結(jié)束符?！　∥谋疚募皖愋臀募谧x寫上的差別在于前者只能按次序順序讀寫，而后者可以不按照次序讀寫。適用文本文件的函數(shù)和過程除了用于類型文件操作的過程和函數(shù)外主要還有：（1)readln過程形式：readln(f,var表)?；騬eadln(f）；功能：從磁盤文件f中，將數(shù)據(jù)依次讀到var表表示的各變量中（其中readln(f)只讀數(shù)據(jù)），并將文件指針移到行結(jié)束符后，就是下一行開頭。（2）writeln過程　　形式：writeln(f,var表)或writeln(f)?！　」δ埽簩ar表所表示的各個變量的值依次寫到磁盤文件f上去（writeln(f)不寫值），然后再寫一個行結(jié)束符。（3）append過程　　形式：append(f)。　　功能：打開一個已經(jīng)存在的磁盤文件，其文件名必須和assign過程中的變量名f相對應，該文件只能寫，此時文件指針指向文件尾。（4）eoln函數(shù)　　形式：eoln(f)?！　」δ埽喝粑募羔樦赶蛐薪Y(jié)束符或文件結(jié)束符，則返回true，否則返回false?！　ξ谋疚募膶懖僮鞑襟E：　　　assign(f,str)?！　　ewrite(f)?！　』騛ppend(f)。　　　write(f,var表)?；騱riteln(f)?！　　lose(f)?！　ξ谋疚募淖x操作步驟：　　　assign(f,str)?！　　eset(f)?！　?　　　readln(f,var表)。或readln(f)?！　　lose(f)。 例： 中　　program zhoufei?！　　onst n=30?！　　ar ra:text。　　　　　i:integer?！　egin　　　randomize?！　　ssign(ra,39。39。)?！　　ewrite(ra)。　　　for i:=1 to n do writeln(ra,random(100))。close(ra)end. 練習：從鍵盤輸入一行字符，把輸入的字符存入磁盤文件中。編一個程序，從磁盤讀入一個文本文件（英文字符），統(tǒng)計文件中的字符數(shù)目和單詞數(shù)目（假設(shè)單詞以空格、逗號、分號、句號分隔，文章中不含有其它分隔字符）?！揪C合實驗】：文件、統(tǒng)計管理 編寫一個建立學生基本情況的直接存取文件，并能根據(jù)學生編號檢索其基本情況的程序。【,演示程序：】 學生基本情況存儲在記錄student內(nèi)，他有編號、姓名、性別、年齡和五門課成績五個域。采用直接存取方式利用seek過程存貯記錄數(shù)，由于學生編號從1000129999，因此，記錄數(shù)為編號數(shù)減10000。為了確定檢索已結(jié)束，最后的編號為65535。如果根據(jù)編號已檢索到該生，這輸出其基本情況，如果檢索不到，程序中自動將編號加1，重復檢索，直到編號65535，仍未檢索到則表示沒有該生的記錄，可以繼續(xù)檢索其它學生的基本情況。(1)算法: TYPE student=RECORD number:word。 name:lstring(10)。{lstring，IBM Pascal提供的高級數(shù)組類型：L串。 name為可變字符串，其可變字符長度為10} sex:lstring(6)。 age:integer。 grades:array[1..5] of real end。 VAR i:integer。 total,avg:real。 n,m:word。 answer,c:char。 buf:student。 sfile:file of student。 t:boolean。 assign(sfile,39。39。)。 :=DIRECT。 rewrite(sfile)。 answer:=39。 39。 while (answer39。.39。) do begin write(39。Enter student number(1000129999) 39。)。 write(39。name,sex(fm),age..39。)。 with buf do begin