【正文】 型，因?yàn)樵谄渌Z言中也許 int64就叫做 qword。 ? 接著你就可以使用 var a:mytype?；蛘?var b:qword。了。 第七章 子界 ? 你以為 integer， boolean等數(shù)據(jù)類型都是系統(tǒng)預(yù)定的？那你就對了！ _! ? 但是，何謂預(yù)定，這是一個問題。對于 integer這樣的數(shù)據(jù)類型來說，它是可以用其它方法來描述它的。 type integer=32768..32767。 ? 32768..32767是一個子界類型，它是 pascal里的一個基本類型。 ? 所有整數(shù)類型都是用子界類型來定義的，這不難。 ? 在系統(tǒng)源碼 ： const maxLongint=$7FFFFFFF。 ? 接著就可以這么定義 longint類型： type longint=(maxLongint1)..(maxLongint)。 第七章 枚舉 ? 那么 boolean又是如何定義的呢？ ? 把所有可能的值列舉出來也是一種辦法。 type boolean=(false,true)。 。 ? 你也可以直接定義一個變量： var c:(false,true)。 var d:10..10。 ? 枚舉類型本無操作符，之所以 (true and false)會得到 false是因?yàn)橄到y(tǒng)預(yù)先定義了 and操作符。 第七章 第八章 數(shù)組集合文件記錄指針 ? 數(shù)組類型 ? 字符串是一種數(shù)組 ? 字符串和字符數(shù)組的區(qū)別 ? 二維數(shù)組 ? 數(shù)組常量 ? 集合類型 ? in（屬于）運(yùn)算符 ? 文件類型 ? 文本文件類型 ? 對文件進(jìn)行操作 ? 標(biāo)準(zhǔn)文件類型子程序 ? 文件指針 ? 記錄類型 ? 記錄類型嵌套 ? 使用記錄類型 ? 指針類型 ? 指針數(shù)組（線性列表） ? 類型的嵌套 目錄 數(shù)組類型 ? 要一下子輸入 100個數(shù)據(jù)再把它們?nèi)枯敵鲈趺崔k？定義 100個變量？你可以使用數(shù)組一下子定義 100個變量，這 100個變量是一個編組，擁有同一個變量名稱。 ? 使用 array和 of關(guān)鍵字定義數(shù)組變量。使用方括號使用它。 program shu_zu。 var a:array[1..100]of integer。{方括號里的東西叫做下標(biāo) } i:integer。{下標(biāo)必須是子界類型 } begin for i:=1 to 100 do readln(a[i])。 for i:=1 to 100 do writeln(a[i])。 end. 第八章 字符串是一種數(shù)組 ? 系統(tǒng)是這么定義字符串類型的： ? type string:array[0..255]of char。 ? 然后你就會使用它： ? var str1:string。 ? 如果你覺得字符串不夠長，你也可以自己定義： ? var str2:string[65536]； ? 有關(guān)字符串的子程序，請參見附錄“ PASCAL字符串操作教程 ”。 第八章 字符串和字符數(shù)組的區(qū)別 array of char string 不能直接讀入、輸出 可以直接讀入、輸出 不能進(jìn)行整體賦值 可以進(jìn)行整體賦值 位數(shù)可以定義很大 位數(shù)最多 255位 沒有標(biāo)準(zhǔn)函數(shù)、過程 有標(biāo)準(zhǔn)函數(shù)、過程 第八章 二維數(shù)組 ? 如果你要建立一個表格，每個格子里存儲一些數(shù)據(jù)，你可以定義二維數(shù)組： var a:array[1..10,1..10]of integer。 ? 然后這樣使用它： i:=a[2,3]。 ? 你還可以定義更高維數(shù)的數(shù)組，具體方法就不多說了。 第八章 數(shù)組常量 ? 毛主席曾經(jīng)說過，常量是一種很重要的東西。 ? 數(shù)組常量可以在定義的時(shí)候賦值： const a:array[1..3]of integer=(1,2,3)。 const b:array[1..2,1..2]of char=((1,2),(1,2))。 ? 你理解的，常量的值是不可改變的。 ? 事實(shí)上我不建議使用常量數(shù)組那是因?yàn)槲矣X得數(shù)組的信息比較多寫在程序里再改比較麻煩，正確的方法是把大量數(shù)據(jù)存儲在文件中后再提取。有關(guān)文件的內(nèi)容將在這章介紹。 第八章 集合類型 ? 不用多說，正常情況下大家編程用不著集合類型。如果你念過高級的腦殘學(xué)大概會知道集合是何種玩應(yīng)。 type set10=set of 1..10。 var a:set10。 var b:set of char。 ? （注意，不能定義 set of integer， integer有65536種，貌似 256種以上的都不能定義） 第八章 in（屬于）運(yùn)算符 ? 除了 ， ， =， +， ， *等運(yùn)算符以外，使用 in運(yùn)算符可以判斷一個元素是否屬于一個集合。 ? 那么，如何添加一個元素到集合里呢？ var a:set of char。 begin a:=[1,2,3]。 a:=a+[4]。 end。 ? 你也可以自己把它寫成子程序后調(diào)用。 第八章 文件類型 ? 如果你家內(nèi)存只有 64K而硬盤有 10T，那么把數(shù)據(jù)全部存在文件里而不是直接在內(nèi)存中算可以節(jié)省大量鈔票。 ? 除此之外，你也不想你的程序只能在內(nèi)存里玩玩吧？如果能操作文件，你就可以獲得更多信息并存儲更多信息，畢竟絕大多數(shù)電腦都是有硬盤的。 ? 不多說，先看看如何定義文件的： var f:file of word。{還記得 word是如何定義的？ } 第八章 文本文件類型 ? SYSTEM單元庫中預(yù)定了 text類型： type text=file of char。 ? 我們可以定義一個文本文件變量： var t:text。 ? 使用一個文件時(shí)，我們必須先給定一個文件的文件名： assign(t,39。c:\39。)。{這樣文件變量 t和 c:\ } ? 然后必須打開文件： reset(f)。{讀文件 } ? 或者這樣打開： rewrite(f)。{寫文件 } 第八章 文本文件類型 ? 然后就可以操作文件了，別忘了操作完關(guān)閉文件： ? close(f)。 ? 文件類型其實(shí)是一種記錄類型（等會馬上將），它存儲了文件名，文件句柄，文件指針以及文件狀態(tài)等信息。 ? assign()。的作用其實(shí)是調(diào)用 Windows API創(chuàng)建文件句柄并將其值放到內(nèi)存里。 ? 本人強(qiáng)烈建議打開文件后的操作要盡量少，操作完立刻關(guān)閉文件，操作時(shí)盡量不要使用 readln()。等待外部讀入數(shù)據(jù)，因?yàn)槲募坏┐蜷_在關(guān)閉在之前不能被其它程序使用。如果想再次操作文件，關(guān)閉可以再次打開它，我表示真心不麻煩。 第八章 對文件進(jìn)行操作 ? file of char和 file of word有什么區(qū)別呢？區(qū)別在于操作文件的方式和效果不同。 ? 怎么操作呢？ ? writeln(f,39。one39。)。 ? readln(f,ch)。 ? 平時(shí)我們用 writeln不加 f，是因?yàn)橄到y(tǒng)已經(jīng)默認(rèn)輸出內(nèi)容到屏幕。（屏幕也是一種文件句柄，一般句柄號是26？） ? 你用了 file of char那么 writeln()?；?readln()。的變量就用char， integer就用 integer，你理解就行。 第八章 標(biāo)準(zhǔn)文件類型子程序 ? SYSTEM單元庫中，除了 assign()。， reset()。，rewrite()。， close()。， writeln()。， readln()。等子程序免費(fèi)使用以外，還可以使用 erase()。刪除文件， rename()。重命名文件，以及 append()。以末尾添加數(shù)據(jù)的方式打開文件。這些子程序有些是有返回值的，如果操作失敗則返回值不是 0。 ? 重點(diǎn)介紹一下 eof()。和 elon()。，這兩個子程序是用來判斷文件是否結(jié)束以及行是否結(jié)束的，返回值為 bollean類型。如果文件指針指向 26（文件結(jié)束）或者1310（行結(jié)束）則會返回 true。 第八章 文件指針 ? 用 append(f,str1)。設(shè)置文件路徑時(shí)，系統(tǒng)會給內(nèi)存分配一個整型變量用來存儲文件讀取的位置。 ? 用 reset(f)?；?rewrite(f)。打開文件時(shí)，位置會被設(shè)置 0，即文件開頭。 ? 用 writeln(f)。和 readln(f)。讀寫文件時(shí)，值會增加。值的大小就是已讀取的字節(jié)數(shù)（你理解的 _!）。 ? 接著你可以用 i:=filepos(f)。獲取這個變量的值，保存這個位置。 ? writeln()?；?readln()。后，直接用 seek(i)?？梢曰氐皆瓉砟莻€保存的位置。你也可以直接用比如 seek(100)。跳過100字節(jié)到文件中間讀取。不過別取太大，否則程序會崩潰。你可以用 filesize()。獲取文件大小然后再 seek()。 第八章 記錄類型 ? 之前我們說過，文件類型其實(shí)是一種記錄類型，那什么是記錄類型呢？ ? 在 C語言中，記錄類型又叫做結(jié)構(gòu)類型。依照我的理解，記錄類型就是一組類型。先看看如何定義一個記錄類型吧： var r:record a:integer。 b:boolean。 c:char。 end。 第八章 記錄類型 ? 注意， record后面是沒有分號的，也就是說，從 var到end。是一條語句。 ? 上面的語句其實(shí)是定義了三個變量，分別為 ， ，它們分別為整數(shù)類型，布爾類型和字符類型。 ? 有了記錄類型，你就可以定義一些復(fù)雜的類型了： type rd=record i:integer。w:word。end。 ? 接著你就可以定義這個類型的變量： var rd1,rd2:rd。 ? 最后使用變量： :=123。:=45。{使用句號來使用變量 } 第八章 記錄類型嵌套 ? filerec的文件核心類型的定義 type FileRec = Packed Record Handle : THandle。{記錄類型 } Mode : longint。 RecSize : SizeInt。{type SizeInt=integer} UserData : array[1..32] of byte。 name : array[0..255] of char。 End。 ： ? 從上面定義中你還可以發(fā)現(xiàn)， THandle類型也是記錄類型，也就是說記錄類型可以嵌套，只要用多個句號就可以了，如 。 第八章 使用記錄類型 ? 不能 writeln()。一個記錄類型，因?yàn)镾YSTEM單元庫里沒有定義。 ? 可以直接給一個記錄類型賦值，只要賦值類型相同，如： var a,b:record i:integer。end。 a:=b。 當(dāng)然也可以 :=。 第八章 with操作符 * var i:integer。 var rd:record i,j:integer。end。 with rd do begin i:=10086。j:=123。 end。 ? 看過就結(jié)束，不必多糾結(jié)，本人還是建議使用句號，結(jié)構(gòu)清晰。 ? 實(shí)際上 i不是同一個變量，如果同時(shí)定義了 i，那么在使用 with的時(shí)候 with里默認(rèn)用的是 ，你理解的作用域問題。當(dāng)然 with也可以嵌套使用。 第八章 指針類型 ? 指針類型在 C語言中又叫做引用類型。 ? 指針類型是一種很煩的類型。 type point=^integer。 ? 我們知道，內(nèi)存是計(jì)算機(jī)里面的一塊磚頭，這塊磚頭是由無數(shù)個俄羅斯方塊拼起來的，每個俄羅斯方塊都有自己的編號并且可以刻上一些數(shù)字。當(dāng)我們定義一個變量時(shí)，系統(tǒng)會自動分配一個俄羅斯方塊給你用來存儲數(shù)據(jù)。由于定義變量必須在程序一開頭進(jìn)行，如果你一開始并不知道自己要用多少變量就很麻煩。 ? 能不能在程序運(yùn)行的時(shí)候再分配俄羅斯方塊而不是一開始就全部分配好呢？ 第八章 指針類型 ? 雖然我覺得寫程序基本不需要指針，而線性列表又涉及算法，但是我覺得簡單介紹一下這一塊內(nèi)容還是有必要的。省的到時(shí)候有人問我“ ^”和“ @”是什么的時(shí)候我就哭了。 ? 指針類型用來存儲俄羅斯方塊的號碼。 ? 比如我定義一個指針類型變量 p和一個整型變量 a： var p:^integer。a:integer。 ? 然后賦值： a:=1。p:=@a。 ? 在內(nèi)存的某個俄羅斯方塊（比如 10086號俄羅斯方塊）中存儲著變量 a的值“ 1”，接著使用“ @ ”符號就可以獲得 a的值的號碼，即 10086，所以 p=10086。 第八章 指針類型 ? 用 CTRL+F7跟蹤變量 p，然后用 Debugwatch命令和F8單步調(diào)試我們可以發(fā)現(xiàn) p的值實(shí)際可能是 0x409010，這就是內(nèi)存中的位置了。 ? 接著，我們就可以使用“ ^”操作符獲取 a的信息了： ? writeln(p^)。 ? p是指針類型無法直接用 writeln()。輸出，但是