【正文】 南昌理工學(xué)院計(jì)算機(jī)系 Delphi 程序設(shè)計(jì)基礎(chǔ) 202291 1 第 2章 Object Pascal程序設(shè)計(jì)語言 控制臺(tái)程序 注釋 標(biāo)識(shí)符與關(guān)鍵字 基本數(shù)據(jù)類型 復(fù)雜數(shù)據(jù)類型 常量與變量 運(yùn)算符與表達(dá)式 語句 過程與函數(shù) 消息框過程和函數(shù) 南昌理工學(xué)院計(jì)算機(jī)系 Delphi 程序設(shè)計(jì)基礎(chǔ) 202291 2 控制臺(tái)程序 ? 控制臺(tái)程序是指一些沒有圖形用戶界面的 32位 Windows應(yīng)用程序，通常在控制臺(tái)窗口中運(yùn)行，也就是在類似以前的 DOS環(huán)境下運(yùn)行。這些程序很少要求用戶輸入大量的信息，一般只實(shí)現(xiàn)有限的特定的功能。如 Windows目錄下的 。 ? 控制臺(tái)程序的代碼比較小，一般在幾十千字節(jié)左右，占用的系統(tǒng)資源少。在開發(fā)階段，編譯、鏈接的速度比較快。在學(xué)習(xí)計(jì)算機(jī)語言的過程中，可以上機(jī)編寫一些短小的控制臺(tái)程序進(jìn)行練習(xí)。所以我們利用它可以方便學(xué)習(xí)和掌握Object Pascal語言。 ? 控制臺(tái)程序相關(guān)文件少。最少情況下可以只有一個(gè)工程文件（ .dpr）和一個(gè)可執(zhí)行文件（ .exe）。 ? 下面我們通過一個(gè)具體的例子進(jìn)行講解： 南昌理工學(xué)院計(jì)算機(jī)系 Delphi 程序設(shè)計(jì)基礎(chǔ) 202291 3 實(shí)例講解 ? 【 例 】 創(chuàng)建一個(gè)控制臺(tái)程序。 ? 1）創(chuàng)建指定目錄下新建一個(gè) “控制臺(tái)” 文件夾。 ? 2）在 Delphi集成開發(fā)環(huán)境中，通過菜單 【 File】 |【 New】 打開 【 New Items】 對話框，選中 【 New】 標(biāo)簽中的 【 Console Application】 項(xiàng)，如圖 21所示，按下 【 OK】 按鈕。系統(tǒng)會(huì)自動(dòng)創(chuàng)建一個(gè)控制臺(tái)程序的工程，并在代碼編輯窗口中打開 。 ? 3）通過菜單 【 File】 |【 Save All】 將工程文件保存在創(chuàng)建的目錄中。本章后面的例程都可以利用本工程來方便地實(shí)現(xiàn)。 ? 4）現(xiàn)在可以編譯、鏈接和運(yùn)行程序，將順利生成一個(gè)可執(zhí)行程序，只是該程序不做任何工作就退出了。 ? 5）修改文件 。 南昌理工學(xué)院計(jì)算機(jī)系 Delphi 程序設(shè)計(jì)基礎(chǔ) 202291 4 ? 6）編譯、鏈接和運(yùn)行程序，測試效果。 ? 在程序提示“請輸入一行文字：”后，輸入“ Hello World !”。運(yùn)行結(jié)果界面如圖 22所示。 南昌理工學(xué)院計(jì)算機(jī)系 Delphi 程序設(shè)計(jì)基礎(chǔ) 202291 5 ? Read和 Write函數(shù) ? 1)Read ? 功能： read在 DOS屏幕下通過鍵盤讀入 n個(gè)數(shù)據(jù)，并將這些數(shù)據(jù)賦值給 n個(gè)變量。各個(gè)數(shù)據(jù)之間可以通過指定字符，如果沒有指定字符用空格字符或用回車符分隔。用法與 C語言的 scanf函數(shù)用法相似。 ? 格式： read([V1, V2, ...,Vn ]) ? 說明： V1可以是基本數(shù)據(jù)類型的變量，也可以是字符常量。 ? 例如： ? var a,b:integer。 ? read(a,b)。 //讀入 2個(gè)整型數(shù)據(jù)，并將這 2個(gè)整型數(shù)據(jù)賦值給 a、 b這兩個(gè)變量。 ? 在 DOS屏幕下輸入 1 2回車后， a的值是 1， b的值是 2。 南昌理工學(xué)院計(jì)算機(jī)系 Delphi 程序設(shè)計(jì)基礎(chǔ) 202291 6 ? 2)write ? 功能： write在 DOS屏幕下輸出 n個(gè)數(shù)據(jù)，并將這些數(shù)據(jù)賦值給 n個(gè)變量。 ? 格式： write([P1,P2, ...,Pn]) ? 說明： P1可以是基本數(shù)據(jù)類型的變量，也可以是字符常量。 ? 例如： ? var a,b:integer。 ? a=1。b=2。 ? write(a,b)。 //輸出 a、 b兩個(gè)整型變量的數(shù)據(jù)。 南昌理工學(xué)院計(jì)算機(jī)系 Delphi 程序設(shè)計(jì)基礎(chǔ) 202291 7 ? 3)readln ? 功能： readln與 read的功能相似，只是在最后多讀入一個(gè)回車符。 ? 格式： readln([V1, V2, ...,Vn ]) ? 4)writeln ? 功能： writedln與 write的功能相似，只是在輸出的后面多輸出一個(gè)回車符。 ? 格式： writeln([V1, V2, ...,Vn ]) ? 注意：這 4個(gè)函數(shù)只能在 DOS環(huán)境下使用。 南昌理工學(xué)院計(jì)算機(jī)系 Delphi 程序設(shè)計(jì)基礎(chǔ) 202291 8 注釋 ? Object Pascal語言中的注釋有下面三種形式： ? 組合符號(hào)“ {”與“ }”的成對使用表示它們之間的內(nèi)容為注釋部分。 ? 組合符號(hào)“（ *”與“ * ）”的成對使用表示它們之間的內(nèi)容為注釋部分。 ? 符號(hào)“ // ”的單個(gè)使用表示所在行的該符號(hào)之后的內(nèi)容為注釋。 ? 注意： ? 注釋符“ {”與“ }”、“（ *”與“ * ）”在使用時(shí)不支持注釋的嵌套，而且必須成對使用。 ? 建議對于單行和少量幾行的注釋使用符號(hào)“ // ”，對于大塊注釋使用“ {”和“ }”或“（ *”和“ * ）”。 南昌理工學(xué)院計(jì)算機(jī)系 Delphi 程序設(shè)計(jì)基礎(chǔ) 202291 9 ? 有時(shí)可以利用注釋在代碼中形成一個(gè)醒目的標(biāo)志。比如利用注釋符號(hào)形成一個(gè)矩形方框，在其中可以添加一些重要的說明文字。 ? 在注釋符“ {”或“（ *”后緊接著的是一個(gè)美元符號(hào)“ $”時(shí)，表示該句是一個(gè)編譯器指令，它與普通的注釋不同，通常用來對編譯過程進(jìn)行設(shè)置。比如前面的例 。 ? 由于 Delphi集成開發(fā)環(huán)境中的代碼編輯器在顯示不同類型的代碼時(shí)通過使用不同的顏色來加以區(qū)別，所以在編程的過程中，只要注意文件中代碼的顏色，一般就不會(huì)錯(cuò)誤地使用注釋符了。 南昌理工學(xué)院計(jì)算機(jī)系 Delphi 程序設(shè)計(jì)基礎(chǔ) 202291 10 標(biāo)識(shí)符與保留字 南昌理工學(xué)院計(jì)算機(jī)系 Delphi 程序設(shè)計(jì)基礎(chǔ) 202291 11 標(biāo)識(shí)符的組成和作用 ? 在 Object Pascal語言中使用的是 ASCII碼字符集，包括英語字母 A..Z、 a..z、數(shù)字 0..9和其他的一些標(biāo)準(zhǔn)字符。 ? 下面的單個(gè)字符作為特殊符號(hào)存在： ? $ amp。 ‘ （ ） * + , ? . / : 。 = @ [ ] ^ { } ? 另外，有些字符對也作為單個(gè)的特殊符號(hào)存在，具體有： ? （ * （ . *） .） .. // := = = ? 其中，左中括號(hào)“ [”等價(jià)于“ （ .”，右中括號(hào)“ ]”等價(jià)于“ . ）”，左大括號(hào)“ {”等價(jià)于“（ *”，右大括號(hào)“）”等價(jià)于“ * ）”。 南昌理工學(xué)院計(jì)算機(jī)系 Delphi 程序設(shè)計(jì)基礎(chǔ) 202291 12 ? 標(biāo)識(shí)符可以由任意長的一個(gè)不帶空格的字符串組成，但是只有前面的 255個(gè)字符有效。標(biāo)識(shí)符的第一個(gè)字符必須是字母或下劃線，其余字符可以是字母、數(shù)字或下劃線。 ? 下面是一些正確或錯(cuò)誤標(biāo)識(shí)符命名的實(shí)例。 ? 正確形式 錯(cuò)誤形式 ? count 123count ? test123 14_count ? time new$123 ? _123 abc 123 ? 一般標(biāo)識(shí)符可以由一個(gè)或多個(gè)具有適當(dāng)意義的英文單詞組成。 南昌理工學(xué)院計(jì)算機(jī)系 Delphi 程序設(shè)計(jì)基礎(chǔ) 202291 13 ? Pascal語言對于字母的大小寫不敏感。當(dāng)然，字符串中的大小寫字母是需要分清的。在編寫程序的時(shí)候要保持一定的風(fēng)格，不要有時(shí)候全部大寫標(biāo)識(shí)符，另一些時(shí)候又實(shí)行大小寫混寫。 ? 標(biāo)識(shí)符是用來對常量、變量、函數(shù)標(biāo)號(hào)和其他用戶定義對象等進(jìn)行命名的。在程序設(shè)計(jì)語言中，程序中的數(shù)據(jù)定義、流程控制語句等都是由標(biāo)識(shí)符組成的。 南昌理工學(xué)院計(jì)算機(jī)系 Delphi 程序設(shè)計(jì)基礎(chǔ) 202291 14 保留字和指令字 ? 在標(biāo)識(shí)符中，有一些是系統(tǒng)已經(jīng)使用的，它們已有特定的含義，用戶不能再用它們對自己定義的量命名。下面我們來學(xué)習(xí)下Object Pascal的保留字。 ? Object Pascal語言本身使用的一組標(biāo)識(shí)符亦稱為保留字，你必須了解它的含義，以便于正確的使用，否則會(huì)造成錯(cuò)誤。Object Pascal語言定義了 65個(gè)保留字，這些保留字不能被定義為標(biāo)識(shí)符。 南昌理工學(xué)院計(jì)算機(jī)系 Delphi 程序設(shè)計(jì)基礎(chǔ) 202291 15 基本數(shù)據(jù)類型 南昌理工學(xué)院計(jì)算機(jī)系 Delphi 程序設(shè)計(jì)基礎(chǔ) 202291 16 整型 ? 整型數(shù)據(jù)（ integer）用來存放整數(shù)。Object Pascal支持五種預(yù)定義整型，它們是 shortint（短整型）、 smallint（整型）、 longint（長整型）、 byte（字節(jié)型）、word（字類型）和 longword（雙字型），每一種類型規(guī)定了相應(yīng)的整數(shù)取值范圍以及所占用的內(nèi)存字節(jié)數(shù)。它們的特性如下表 23所示。 南昌理工學(xué)院計(jì)算機(jī)系 Delphi 程序設(shè)計(jì)基礎(chǔ) 202291 17 實(shí)例講解 ? 【 例 】 將輸入一個(gè)整數(shù)值并把它輸出到屏幕上。 ? program Project1。 ? {$APPTYPE CONSOLE} ? var ? x:integer。 ? begin ? writeln（’請輸入一個(gè)整數(shù)：’） 。 ? readln（ x） 。 ? writeln（’你輸入整數(shù)的是：’ ,x） 。 ? //下面的代碼是為了在按下回車鍵前始終顯示運(yùn)行界面 ? writeln（’按下回車鍵 Enter退出。’） 。 ? readln。 ? end. 南昌理工學(xué)院計(jì)算機(jī)系 Delphi 程序設(shè)計(jì)基礎(chǔ) 202291 18 實(shí)型 ? 實(shí)型數(shù)據(jù)（ real）用類存放實(shí)數(shù)。 Object Pascal支持五種預(yù)定義實(shí)型，它們是 real（基本實(shí)型）、 single（單精度實(shí)型）、 double（雙精度實(shí)型）、 extended（擴(kuò)展實(shí)型）、 p（裝配實(shí)型）和 currency（貨幣實(shí)型），每一種類型規(guī)定了相應(yīng)的實(shí)數(shù)取值范圍、所占用的內(nèi)存字