【正文】 構(gòu)，不符合結(jié)構(gòu)化程序設(shè)計(jì)思想。使用 goto語句時(shí)，標(biāo)號(hào)所指向的的語句與 goto語句本身要在同一程序塊內(nèi)。這一句時(shí)就會(huì)發(fā)生跳轉(zhuǎn)，轉(zhuǎn)到 c:n:=i+j。 ? … 南昌理工學(xué)院計(jì)算機(jī)系 Delphi 程序設(shè)計(jì)基礎(chǔ) 202291 52 ? 上面的例子中， c是語句標(biāo)號(hào)，語句標(biāo)號(hào)要在程序說明部分用保留字 label加以說明。 ? goto c。 //把 10的值賦給 a ? b:=a+123； //把 a的值與 123相加，再把結(jié)果賦給 b 賦值語句 南昌理工學(xué)院計(jì)算機(jī)系 Delphi 程序設(shè)計(jì)基礎(chǔ) 202291 51 goto語句 ? goto語句是一種無條件轉(zhuǎn)向語句，它可以控制直接從程序的一條語句轉(zhuǎn)向另一條語句。另外，賦值號(hào)兩邊的類型必須相同，但表達(dá)式值為整數(shù)時(shí)，它可自動(dòng)化為實(shí)型后賦給該實(shí)型變量，即符合賦值相容。 南昌理工學(xué)院計(jì)算機(jī)系 Delphi 程序設(shè)計(jì)基礎(chǔ) 202291 50 ? 賦值語句是最簡(jiǎn)單的語句 , 賦值語句的作用是計(jì)算表達(dá)式的值，并賦給變量。 ? 4） 利用保留字 var可以聲明已存在數(shù)據(jù)類型的變量，例如： ? var ? x,y:integer。 南昌理工學(xué)院計(jì)算機(jī)系 Delphi 程序設(shè)計(jì)基礎(chǔ) 202291 49 ? 在聲明常量的時(shí)候，等號(hào)右邊可以使用一些預(yù)定義的函數(shù)，如 abs、 chr、 cos、 exp、 frac、 hi、 high、 int、length、 lo、 low、 odd、 ord、 pred、 round、 sin、sizeof、 sqr、 sqrt、和 trunc等。 ? 其中的標(biāo)號(hào) 1,…, 標(biāo)號(hào) n可以是一個(gè) 0..9999的整數(shù)，也可以是一個(gè)標(biāo)識(shí)符。 南昌理工學(xué)院計(jì)算機(jī)系 Delphi 程序設(shè)計(jì)基礎(chǔ) 202291 48 語句的格式 ? 1. 聲明語句 ? 聲明語句主要實(shí)現(xiàn)對(duì)標(biāo)號(hào)、常量、數(shù)據(jù)類型、變量、過程、函數(shù)、過程和函數(shù)的輸出等進(jìn)行聲明。 南昌理工學(xué)院計(jì)算機(jī)系 Delphi 程序設(shè)計(jì)基礎(chǔ) 202291 47 語句 ? 程序是由一系列語句組成的。 ? 由于操作數(shù)和運(yùn)算符都是有類型的，因而表達(dá)式也是有類型的，表達(dá)式的類型不一定和操作數(shù)相同，它取決于其中的運(yùn)算結(jié)果。大多運(yùn)算符按照從左到右的次序進(jìn)行計(jì)算，少數(shù)運(yùn)算符的運(yùn)算次序是從右向左的，如賦值運(yùn)算、三元條件運(yùn)算符等。 ? 表達(dá)式按照運(yùn)算符的優(yōu)先級(jí)進(jìn)行計(jì)算，求得一個(gè)表達(dá)式的值。操作數(shù)是參加運(yùn)算的數(shù)據(jù)，可以是常數(shù)、常量、變量或方法引用。這樣，上面第一個(gè)例子可寫作 x+(y*z)。 ? 這里的明顯用意是 (x=y) or (x=z),但若沒有括號(hào)，編譯器遵循優(yōu)先級(jí)規(guī)則把它讀作 (x=(y or x))=z,此時(shí)，若 z不是布爾類型，它將導(dǎo)致編譯錯(cuò)誤。有括號(hào)的表達(dá)式先被運(yùn)算，然后把它作為單個(gè)運(yùn)算數(shù)。因此表達(dá)式 x+ y * z先執(zhí)行 y*z，然后加上 x作為結(jié)果， *先被執(zhí)行，因?yàn)樗?+有較高優(yōu)先級(jí)，但 xy+z先從 x減去 y，然后加上 z作為結(jié)果， –和 +具有相同優(yōu)先級(jí)，因此左邊的運(yùn)算先執(zhí)行。此外，關(guān)系運(yùn)算符 =和 也可以對(duì)類進(jìn)行操作。 ? p:=k。 ? p:^Integer。它返回的是運(yùn)算對(duì)象的地址，也就是說它建立了一個(gè)指向其他運(yùn)算對(duì)象的指針值。 ? 以下規(guī)則適用于 =、 =、 =、 和 in 運(yùn)算符： ? 只有當(dāng) X（集合）中的每個(gè)成員也是 Y（集合）中的成員時(shí)， X = Y 才為真； Z = W 等同于 W = Z；只有當(dāng) U（集合）和 V（集合）正好擁有相同的成員時(shí)， U = V 才為真，否則 U V為真； ? 對(duì)于序數(shù) O 和集合 S，只有當(dāng) O 是 S 的一個(gè)成員時(shí)， O in S 才為真。 ? 5．集合運(yùn)算符 ? 以下規(guī)則適用于 +、 – 和 * 運(yùn)算符： ? 當(dāng)且僅當(dāng)序數(shù)（集合基礎(chǔ)類型中的一個(gè)值） O 屬于集合 X 或集合 Y（或同時(shí)屬于 X 和 Y）時(shí)， O 屬于 X + Y；當(dāng)且僅當(dāng) O 屬于 X 但不屬于 Y 時(shí)， O 屬于 X – Y；當(dāng)且僅當(dāng) O 同時(shí)屬于 X 和 Y時(shí)， O 屬于 X * Y。 南昌理工學(xué)院計(jì)算機(jī)系 Delphi 程序設(shè)計(jì)基礎(chǔ) 202291 42 ? 4．字符串運(yùn)算符 ? 加號(hào)（ +）還可以作為字符串運(yùn)算符，它可以將兩個(gè)字符串聯(lián)接在一起。下面的規(guī)則適用于關(guān)系運(yùn)算符： ? 除了實(shí)數(shù)和整數(shù)能一起比較外，兩個(gè)運(yùn)算數(shù)必須是兼容的類型； ? 對(duì)字符串進(jìn)行比較，是依據(jù)它的每個(gè)字符在擴(kuò)展 ASCII 字符集中的順序，字符類型被當(dāng)作長(zhǎng)度為 1 的字符串； 南昌理工學(xué)院計(jì)算機(jī)系 Delphi 程序設(shè)計(jì)基礎(chǔ) 202291 41 ? 兩個(gè) packed string 要進(jìn)行比較，它們必須具有相同數(shù)目的元素；一個(gè)具有 n 個(gè)元素的 packed string與一個(gè)字符串比較時(shí)，它被看作長(zhǎng)度為 n 的字符串； ? 只有當(dāng)兩個(gè) PChar 指針都指向同一個(gè)字符數(shù)組的范圍內(nèi)時(shí)， 、 、 = 和 = 運(yùn)算符才能作用于它們； ? 運(yùn)算符 = 和 能以類或類引用類型作為運(yùn)算數(shù)。 ? 對(duì)大多數(shù)簡(jiǎn)單類型，比較運(yùn)算非常容易理解。 南昌理工學(xué)院計(jì)算機(jī)系 Delphi 程序設(shè)計(jì)基礎(chǔ) 202291 40 ? 3．關(guān)系運(yùn)算符 ? 關(guān)系運(yùn)算符用來比較兩個(gè)運(yùn)算數(shù)。 ? 若 y 為 0 的話，表達(dá)式 x/y、 x div y 和 x mod y 將發(fā)生運(yùn)行時(shí)錯(cuò)誤 。 ? mod 運(yùn)算返回對(duì)運(yùn)算數(shù)進(jìn)行整數(shù)除后得到的余數(shù)。如果一個(gè)運(yùn)算數(shù)是整數(shù)的子界類型，它就像整數(shù)類型一樣被對(duì)待。它們的操作數(shù)可以是整型或?qū)嵭停? + 、 、 * 、 /、 div 和 mod等。本節(jié)將主要學(xué)習(xí)這些運(yùn)算符的功能、性質(zhì)及其優(yōu)先級(jí)。雙目運(yùn)算符都放在兩個(gè)操作數(shù)之間。例如算術(shù)運(yùn)算符的 +、 、 *和 /為雙目運(yùn)算符， +（正）和 （負(fù)）為單目運(yùn)算符來使用。例如，有能進(jìn)行加（ +）、減（ ）、乘（ *）、除（ /）的運(yùn)算符，有能訪問一個(gè)數(shù)組的某個(gè)單元地址的運(yùn)算符（ ）。）時(shí)不能包括初始化， variant 和文件類型的變量聲明也不能初始化。 … i:=7。 南昌理工學(xué)院計(jì)算機(jī)系 Delphi 程序設(shè)計(jì)基礎(chǔ) 202291 35 ? 例如： ? var ? i:integer = 7。 ? 2．變量初始化 ? 在聲明變量的同時(shí)也可以對(duì)變量進(jìn)行初始化，即賦初值。 例如： ? var a,b,c:integer。變量標(biāo)識(shí)符列表是一個(gè)用逗號(hào)隔開的標(biāo)識(shí)符序列，冒號(hào)后面的類型是類型標(biāo)識(shí)符。 … 變量標(biāo)識(shí)符列表 n：類型 n。變量聲明格式如下： ? var 變量標(biāo)識(shí)符列表 1：類型 1。 Object Pascal的每一個(gè)變量都具有一種類型，變量的類型決定了變量的數(shù)據(jù)性質(zhì)和范圍、變量存儲(chǔ)在內(nèi)存中所占的大?。ㄗ止?jié)數(shù)）以及對(duì)變量可以進(jìn)行的合法操作等。 南昌理工學(xué)院計(jì)算機(jī)系 Delphi 程序設(shè)計(jì)基礎(chǔ) 202291 33 變量 ? 變量存儲(chǔ)的是在程序中可以修改的值。 ? 常量標(biāo)識(shí)符的類型由定義它的常量的類型決定。它的語法格式如下： ? const 常量標(biāo)識(shí)符 =常量 。 ? end. ? 運(yùn)行結(jié)果如圖 24所示： 南昌理工學(xué)院計(jì)算機(jī)系 Delphi 程序設(shè)計(jì)基礎(chǔ) 202291 31 常量與變量 南昌理工學(xué)院計(jì)算機(jī)系 Delphi 程序設(shè)計(jì)基礎(chǔ) 202291 32 常量 ? 常量存儲(chǔ)的是在程序中不能被修改的固定值?！?)。 ? end。 南昌理工學(xué)院計(jì)算機(jī)系 Delphi 程序設(shè)計(jì)基礎(chǔ) 202291 30 ? Record2 := Record1。 ? Day:= 21。 // 相當(dāng)于 :=1973。 ? := 13。 // 記錄類型變量的聲明 ? begin ? := 1975。 ? end。 ? Month:（ Jan, Feb, Mar, Apr, May, Jun, Jul, Aug, Sep, Oct, Nov, Dec） 。 ? program Project1。 ? end。記錄類型的定義方式如下： ? type ? 標(biāo)識(shí)符 = record ? 域 1: 數(shù)據(jù)類型 。在記錄類型中為每個(gè)域指定了一個(gè)名稱和數(shù)據(jù)類型。 //為動(dòng)態(tài)數(shù)組指定空間大小 ? 其中數(shù)組 a的索引值為 0..19。 ? // 與上面的兩維數(shù)組相同 南昌理工學(xué)院計(jì)算機(jī)系 Delphi 程序設(shè)計(jì)基礎(chǔ) 202291 26 ? 2．動(dòng)態(tài)數(shù)組的定義方式如下： ? array of 基類型 ? 例如： ? var ? a:array of Real。 ? // 一維數(shù)組 ? type TMatrix = array [1..10] of array [1..50] of Real。 南昌理工學(xué)院計(jì)算機(jī)系 Delphi 程序設(shè)計(jì)基礎(chǔ) 202291 25 數(shù)組類 型 ? 數(shù)組類型（ array）的數(shù)據(jù)為某一類相同類型的元素按一定的順序組成的序列，包括靜態(tài)數(shù)組和動(dòng)態(tài)數(shù)組兩種。 ? TSuit = set of （ Club, Diamond, Heart, Spade） 。 // 基本類型為有序類型 ? TIntSet = set of TSomeInts。 南昌理工學(xué)院計(jì)算機(jī)系 Delphi 程序設(shè)計(jì)基礎(chǔ) 202291 24 集合類 型 ? 集合類型（ set）由有序類型的一些數(shù)值組成。 ? 其中 TMyColors包括了 Green、 Yellow、 Orange、Purple和 White。例如開始定義了一個(gè)表示顏色的枚舉類型： ? type ? TColors = （ Red, Blue,Green,Yellow,Orange,Purple,White,Black） 。同一個(gè)枚舉元素不能出現(xiàn)在兩個(gè)或兩個(gè)以上的枚舉類型定義中。 ? 枚舉元素只能是標(biāo)識(shí)符，而不能是數(shù)值常量或字符常量。 ? 通過預(yù)定義列出所有值的標(biāo)識(shí)符來定義一個(gè)有序集合，這些值的次序和枚舉類型說明中的標(biāo)識(shí)符的次序識(shí)一致的。一般的 Ch