【正文】 的例子中， c是語句標(biāo)號，語句標(biāo)號要在程序說明部分用保留字 label加以說明。 南昌理工學(xué)院計算機系 Delphi 程序設(shè)計基礎(chǔ) 202291 53 復(fù)合語句 ? 復(fù)合語句用關(guān)鍵字 begin和 end將若干條語句括起來組成的，也稱塊語句。 with語句的格式如下： ? with 目標(biāo)對象 do 語句 ? 如果 with語句指定的某個變量具有某個字段，另一個變量也具有該字段，則在 with語句中對不指明變量的該字段來說，所有的操作都是針對 with語句指定的變量來進行的。如果在該處添了分號，則在編譯的時候就會認為 if 語句到此結(jié)束，而把 else當(dāng)作另一句的開頭，輸出出錯信息。 南昌理工學(xué)院計算機系 Delphi 程序設(shè)計基礎(chǔ) 202291 58 ? 2． case語句 ? if語句根據(jù)某種條件，最多僅有兩種可能的后繼流向。 南昌理工學(xué)院計算機系 Delphi 程序設(shè)計基礎(chǔ) 202291 60 循環(huán)語句 ? 循環(huán)語句實現(xiàn)循環(huán)結(jié)構(gòu)。 ? s:=0。 ? s:=s+i。首先將初值賦給控制變量，接著判斷控制變量的值是否大于或等于終值，若是，則執(zhí)行循環(huán)體，在執(zhí)行了循環(huán)體之后，自動將控制變量的值該為它的前趨值，并重新判斷是否大于或等于終值。 Object Pascal中的 break類似于 C語言中的 break。 ? end。 ? readln。)。 39。過程說明的語法如下： ? 1. 帶參過程 ? procedure 過程名（參數(shù)列表）； ? 變量聲明； ? begin ? 過程體； ? end； 南昌理工學(xué)院計算機系 Delphi 程序設(shè)計基礎(chǔ) 202291 74 ? 2. 不帶參過程 ? procedure 過程名； ? 變量聲明； ? begin ? 過程體； ? end； ? 過程是以保留字 procedure開頭的，接下來就是過程名稱和過程體部分，過程體部分是位于 begin和 end之間的語句。 ? var ? x,y:integer。函數(shù)也是由函數(shù)首部和函數(shù)體組成。 ? {$APPTYPE CONSOLE} ? uses Sysutils。 南昌理工學(xué)院計算機系 Delphi 程序設(shè)計基礎(chǔ) 202291 79 ? write（ format（’ %d和 %d的最大數(shù)是’ ,[x,y]）） 。該過程聲明如下： ? procedure ShowMessage(const Msg: string)。 HelpCtx: Longint): Word。 mbAbout 在對話框中出現(xiàn) mbAbout按鈕，單擊該按鈕時函數(shù)返回值為 mrAbout或 3。 mbHelp 在對話框中出現(xiàn) Help按鈕。 mbNoToAll 在對話框中出現(xiàn) mbNoToAll按鈕，單擊該按鈕時函數(shù)返回值為 9。 南昌理工學(xué)院計算機系 Delphi 程序設(shè)計基礎(chǔ) 202291 84 表 214參數(shù) Buttons的取值說明 取值 說明 mbOK 在對話框中出現(xiàn) Yes按鈕，單擊該按鈕時函數(shù)返回值為 mrOK或 1。 DlgType: TMsgDlgType。其中 Delphi消息框過程和函數(shù)是程序編寫中使用率比較高的。 ? begin ? x:=3。 南昌理工學(xué)院計算機系 Delphi 程序設(shè)計基礎(chǔ) 202291 78 實例講解 ? 【 例 】 定義一個比較兩個整數(shù)變量中較大者的函數(shù)。 ? readln。 ? begin ? writeln（ format（‘ %d+%d=%d’,[a,b,a+b]）） 。過程根據(jù)有無參數(shù)可以分為帶參過程和不帶參過程。 ? writeln(39。 ? begin ? for i:=1 to 3 do ? begin ? writeln(i,39。 39。 ? for i:=1 to 100000 do ? begin ? j:=j+1。 ? end。當(dāng)控制變量的值大于終值時，退出 for循環(huán)，執(zhí)行 for語句之后的語句。循環(huán)次數(shù)最少為 1次。即“當(dāng)滿足某一條件時進行循環(huán)”，While語句的語法如下： ? while 布爾表達式 do 語句； 南昌理工學(xué)院計算機系 Delphi 程序設(shè)計基礎(chǔ) 202291 61 ? while語句的執(zhí)行過程是，先計算布爾表達式的值，當(dāng)其值 True時，執(zhí)行循環(huán)體中的語句序列，然后再重新計算布爾表達式的值，當(dāng)布爾表達式的值為 false時，循環(huán)終止，執(zhí)行下一條語句。常量的類型必須與表達式的類型一致。 ? else b:=0。有兩種形式的 if語句： ? 1） if 布爾表達式 then ? 語句； 2） if 布爾表達式 then ? 語句 1 ? else ? 語句 2； 南昌理工學(xué)院計算機系 Delphi 程序設(shè)計基礎(chǔ) 202291 56 ? 當(dāng)布爾表達式的值為真，則執(zhí)行 then后面的語句，值為假時有兩種情況：要么什么也不做，要么執(zhí)行 else后面的語句。 ? 這里， begin和 end以及期間的 3條賦值語句構(gòu)成了一個復(fù)合語句。 Goto語句雖然增加了程序的靈活性，但是 goto語句會使程序出現(xiàn)一種稱為“亂面條”的結(jié)構(gòu)，不符合結(jié)構(gòu)化程序設(shè)計思想。 ? goto c。 ? 4） 利用保留字 var可以聲明已存在數(shù)據(jù)類型的變量，例如： ? var ? x,y:integer。 南昌理工學(xué)院計算機系 Delphi 程序設(shè)計基礎(chǔ) 202291 47 語句 ? 程序是由一系列語句組成的。操作數(shù)是參加運算的數(shù)據(jù)，可以是常數(shù)、常量、變量或方法引用。因此表達式 x+ y * z先執(zhí)行 y*z，然后加上 x作為結(jié)果， *先被執(zhí)行，因為它比 +有較高優(yōu)先級，但 xy+z先從 x減去 y，然后加上 z作為結(jié)果， –和 +具有相同優(yōu)先級，因此左邊的運算先執(zhí)行。它返回的是運算對象的地址，也就是說它建立了一個指向其他運算對象的指針值。下面的規(guī)則適用于關(guān)系運算符： ? 除了實數(shù)和整數(shù)能一起比較外，兩個運算數(shù)必須是兼容的類型； ? 對字符串進行比較，是依據(jù)它的每個字符在擴展 ASCII 字符集中的順序，字符類型被當(dāng)作長度為 1 的字符串； 南昌理工學(xué)院計算機系 Delphi 程序設(shè)計基礎(chǔ) 202291 41 ? 兩個 packed string 要進行比較，它們必須具有相同數(shù)目的元素；一個具有 n 個元素的 packed string與一個字符串比較時，它被看作長度為 n 的字符串； ? 只有當(dāng)兩個 PChar 指針都指向同一個字符數(shù)組的范圍內(nèi)時， 、 、 = 和 = 運算符才能作用于它們； ? 運算符 = 和 能以類或類引用類型作為運算數(shù)。 ? mod 運算返回對運算數(shù)進行整數(shù)除后得到的余數(shù)。雙目運算符都放在兩個操作數(shù)之間。 … i:=7。變量標(biāo)識符列表是一個用逗號隔開的標(biāo)識符序列，冒號后面的類型是類型標(biāo)識符。 南昌理工學(xué)院計算機系 Delphi 程序設(shè)計基礎(chǔ) 202291 33 變量 ? 變量存儲的是在程序中可以修改的值?！?)。 // 相當(dāng)于 :=1973。 ? Month:（ Jan, Feb, Mar, Apr, May, Jun, Jul, Aug, Sep, Oct, Nov, Dec） 。在記錄類型中為每個域指定了一個名稱和數(shù)據(jù)類型。 南昌理工學(xué)院計算機系 Delphi 程序設(shè)計基礎(chǔ) 202291 25 數(shù)組類 型 ? 數(shù)組類型（ array）的數(shù)據(jù)為某一類相同類型的元素按一定的順序組成的序列，包括靜態(tài)數(shù)組和動態(tài)數(shù)組兩種。 ? 其中 TMyColors包括了 Green、 Yellow、 Orange、Purple和 White。 ? 通過預(yù)定義列出所有值的標(biāo)識符來定義一個有序集合，這些值的次序和枚舉類型說明中的標(biāo)識符的次序識一致的。 boolean是布爾型的標(biāo)識符 。 ? //下面的代碼是為了在按下回車鍵前始終顯示運行界面 ? writeln（’按下回車鍵 Enter退出。Object Pascal支持五種預(yù)定義整型，它們是 shortint（短整型）、 smallint（整型）、 longint（長整型）、 byte（字節(jié)型）、word（字類型）和 longword（雙字型），每一種類型規(guī)定了相應(yīng)的整數(shù)取值范圍以及所占用的內(nèi)存字節(jié)數(shù)。在編寫程序的時候要保持一定的風(fēng)格，不要有時候全部大寫標(biāo)識符，另一些時候又實行大小寫混寫。 ‘ （ ） * + , ? . / : 。 ? 建議對于單行和少量幾行的注釋使用符號“ // ”，對于大塊注釋使用“ {”和“ }”或“（ *”和“ * ）”。 //輸出 a、 b兩個整型變量的數(shù)據(jù)。 //讀入 2個整型數(shù)據(jù)，并將這 2個整型數(shù)據(jù)賦值給 a、 b這兩個變量。 ? 在程序提示“請輸入一行文字：”后，輸入“ Hello World !”。 ? 1）創(chuàng)建指定目錄下新建一個 “控制臺” 文件夾。如 Windows目錄下的 。在學(xué)習(xí)計算機語言的過程中，可以上機編寫一些短小的控制臺程序進行練習(xí)。 ? 3）通過菜單 【 File】 |【 Save All】 將工程文件保存在創(chuàng)建的目錄中。各個數(shù)據(jù)之間可以通過指定字符，如果沒有指定字符用空格字符或用回車符分隔。 ? 格式： write([P1,P2, ...,Pn]) ? 說明： P1可以是基本數(shù)據(jù)類型的變量，也可以是字符常量。 ? 格式： writeln([V1, V2, ...,Vn ]) ? 注意：這 4個函數(shù)只能在 DOS環(huán)境下使用。 ? 在注釋符“ {”或“（ *”后緊接著的是一個美元符號“ $”時，表示該句是一個編譯器指令，它與普通的注釋不同，通常用來對編譯過程進行設(shè)置。標(biāo)識符的第一個字符必須是字母或下劃線，其余字符可以是字母、數(shù)字或下劃線。 南昌理工學(xué)院計算機系 Delphi 程序設(shè)計基礎(chǔ) 202291 14 保留字和指令字 ? 在標(biāo)識符中，有一些是系統(tǒng)已經(jīng)使用的，它們已有特定的含義，用戶不能再用它們對自己定義的量命名。 ? program Project1。 ? end. 南昌理工學(xué)院計算機系 Delphi 程序設(shè)計基礎(chǔ)