【正文】 3 do read(a[i,j])。 for i:=1 to 100 do a[i]:=random(1000)。 例： type class=string[10]。 4．字符串與字符 字符串變量和字符類(lèi)型 char 相兼容，可把 char 視作長(zhǎng)度為 1 的字符串類(lèi)型，因而它們?cè)谧址磉_(dá)式計(jì)值時(shí)可混合使用。如： 說(shuō)明了常數(shù) const pas=?pascal? 就可以有以下的字符串表達(dá)式： ?Turbo?+pas+? is better than ?+?standard ?+pas 字符串連接的結(jié)果還是字符串，如果串和長(zhǎng)度超過(guò) 255，則超過(guò)的字符將被截去。{s1 的值是 39。 Writeln(s)。123439。） 3． 隨機(jī)輸入一個(gè)長(zhǎng)度不超過(guò) 255 的字符串，將其倒置后輸出。A39。fri39。)。 saturday:write(39。D39。,39。 另外我們?cè)谑褂?TurboPascal 系統(tǒng)時(shí)，經(jīng)常是各種語(yǔ)句實(shí)現(xiàn)各自的功能，各種函數(shù)實(shí)現(xiàn)各自的運(yùn)算處理并返回一個(gè)值。 program local_global。,i)。 例 4：請(qǐng)看下列程序的運(yùn) 行結(jié)果。 begin a:=1。c=39。 可以這么說(shuō)，枚舉是最簡(jiǎn)單，最基礎(chǔ)，也是最沒(méi)效率的算法。所以，這一部分我們不用管它。 writeln。 for j:=i+1 to n do if a[j]a[k] then k:=j。 begin write(39。 end. 冒泡排序又稱(chēng)交換排序其基本思想是 :對(duì)待排序的記錄的關(guān)鍵字進(jìn)行兩兩比較 ,如發(fā)現(xiàn)兩個(gè) 記錄是反序的 ,則進(jìn)行交換 ,直到無(wú)反序的記錄為止。 writeln。 d:=n。 一般可以通過(guò)二種方法來(lái)實(shí)現(xiàn)：順序查找和折半查找： 1．順序查找 是： 將查找值順序逐個(gè)與結(jié)點(diǎn)值進(jìn)行比較 ,相等即為查找成功 ,否則查找失敗 . 程序如下： const n=7。)。 end else writeln(39。Place of39。 while(p=m) and not found do if r[p]=x then found:=true else p:=p+1。)。input data:39。 write(39。output data:39。第 i遍處理僅將 L[i]插入L[1..i1]的適當(dāng)位置 p，原來(lái) p后的元素一一向右移動(dòng)一個(gè)位置 ,使得 L[1..i]又是排好序的序列。)。 k:=trunc(sqrt(i))。那么我們就取一個(gè) n，造一個(gè)循環(huán)語(yǔ)句，判斷從 2 到 n1 之間的整數(shù)中，有沒(méi)有能整除 n 的，有的話(huà)，哪怕只有一個(gè)，那 n 都不是素?cái)?shù)。 5．利用遞歸求解 N！ 第七講 常用算法介紹 主要內(nèi)容： 理解算法的含義及其重要性； 熟練掌握本節(jié)中所列的常用算法及經(jīng)典例題； 通過(guò)常用算法的學(xué)習(xí)能舉一反三解決實(shí)際問(wèn)題； 一、 枚舉算法 枚舉就是一個(gè)一個(gè)地列舉。main:a=39。,y:2,39。 end. 上述程序運(yùn)行時(shí)將出現(xiàn) Unknown Identfier；因?yàn)樽兞?j在主程序中沒(méi)定義。 begin i:=2。 在子程序中定義的變量稱(chēng)為局部變量，在程序的一開(kāi)始定義的變量稱(chēng)為全局變量。但對(duì)于比較復(fù)雜的問(wèn)題，如不精心規(guī)劃，一上來(lái)就動(dòng)手寫(xiě)程序，就可能隨著語(yǔ)句數(shù)的增多和情況的復(fù)雜化而不知所措。,39。B39。)。枚舉值的輸入，則要一一判斷讀入字符是否是枚舉類(lèi)型的標(biāo)識(shí)符。wed39。 ch1:zimu。 分別用選擇排序法、冒泡排序法、插入排序法來(lái)解此題； 2． 旅館里有一百個(gè)房間，從 1 到 100 編了號(hào)。 i :=Pos(39。123439。 l:=length(s)。 SchoolName:string[4]=?NTZX?。在長(zhǎng)度字節(jié)中存放的是這樣一個(gè)字符：其相應(yīng)的 ASCII 序數(shù)值為該字符串變量的當(dāng)前實(shí)際長(zhǎng)度。 writeln。 [程序清單 ]： program maxdigit。 program p1。如累加第 4 行的數(shù)據(jù)。 {————數(shù)組元素清 0；最常用的數(shù)據(jù)初始化的方法 } for i:=1 to 10 do a[i]:=random(100)。如定義了數(shù)組 a，它的下標(biāo)可以從 1 到 100，那么就可以直接通過(guò) a[i]來(lái)指明第 i個(gè)量，如 i=10， a[i]指的是 a[10]?！? 對(duì)于每個(gè)湖的大小，每個(gè)學(xué)生僅答對(duì)一個(gè)，請(qǐng)編程確定四個(gè)湖的大小。 for i:=2 to 99 do begin k:=____(1)_____。 {輸出一行的右半部分 } writeln。 I:=I+1。只要布爾表達(dá)式成立時(shí)（即值為 TRUE 時(shí)）就執(zhí)行循環(huán)體，如此反復(fù)直到布爾表達(dá)式不成立（值為 FALSE）時(shí)停止。 2． 編寫(xiě)程序輸入年份和月份，輸出這個(gè)月的天數(shù)。 end。這時(shí)就要用到復(fù)合語(yǔ)句，用 begin 和 end 將多個(gè)語(yǔ)句結(jié)合在一起。 四、 writeln 跟 wirte 的區(qū)別 writeln 語(yǔ)句在輸出完指定內(nèi)容后另起一行， write 只管輸出除非真滿(mǎn)一行后才另起一行。 readln(a,b,c)。 begin write(?Enter integer a,b,c,d:?)。 {將 t 的值變?yōu)樵瓉?lái)的 a 后倍，常用類(lèi)似的語(yǔ)句來(lái)進(jìn)行累乘 } 例題 1：交換兩個(gè)數(shù)值型變量 a 和 b 的值 [分析與算法選擇 ]： 要交換兩個(gè)變量的值，可以聯(lián)想起現(xiàn)實(shí)世界中交換兩個(gè)容器 A和 B 中所裝的東西，一般要先引進(jìn)一個(gè) 空的容器 C，先將一個(gè)容器（如 A）里的倒入 C，再將另一個(gè)容器 B 的倒入A，最后將 C 的倒入 B，從而實(shí)現(xiàn) A、 B 容器內(nèi)容的互換。 {如原來(lái) a=3,b=5，執(zhí)行此語(yǔ)句后 a=8,b=5} b:=ab。 t:=t*c。 三、 write/writeln 輸出語(yǔ)句 語(yǔ)句功能：輸出指定表達(dá)式的值。write(2)。（思考這是為什么？） 1．條件的描述 在使用條件語(yǔ)句時(shí)主要的難點(diǎn)就是條件的描述和滿(mǎn)足條件或不滿(mǎn)足條件時(shí)要執(zhí)行的語(yǔ)句的描述。 end。 4． 編程輸入三角形的三條邊長(zhǎng)，輸出三角形的面積，如果不能構(gòu)成三角形輸出錯(cuò)誤信息。I:=1。變量標(biāo)識(shí)符在這里稱(chēng)作是控制變量，必須是離散（有序）數(shù)據(jù)類(lèi)型，如： for i:=1 to 100 do …. for ch:=?a? to ?z? do…. 3．示例 上面的例題我們可以用計(jì)數(shù)循環(huán)來(lái)實(shí)現(xiàn)： begin s:=0。 var i,j,h:integer。 end end?！?，現(xiàn)已知四人中三人說(shuō)的是真話(huà)，一人說(shuō)的是假話(huà)。 描述下標(biāo)范圍一般通過(guò)離散（有序）類(lèi)型，如從一個(gè)整數(shù)到另一個(gè)整數(shù)，或者從一個(gè)字符到另一個(gè)字符等。)。則固定列號(hào)為 4。 readln。 max:=a[1]。 name=string[20]。如‘ A’可看作是字符，也可視為 字符串。 可使用關(guān)系運(yùn)算符 =,=,=,比較任意兩個(gè)字符串的大小，這些運(yùn)算符的優(yōu)先級(jí)別比連接符“ +”號(hào)低，要注意這點(diǎn)，該加括號(hào)的地方要加括號(hào)。3456739。 { 39。 s2:=39。 4． 輸入 n 個(gè)整數(shù)，請(qǐng)找出最小數(shù)所在的位置，并把它與第一個(gè)數(shù) 對(duì)調(diào)。..39。,39。 monday:write(39。saturday39。]－－有四個(gè)字符的集合 [1..20]－－包含了 1到 20 中所有整數(shù)的集合 [0]－－只有一個(gè)元素 0的單元素集 []－－空集 ３ .集合的運(yùn)算： (1)并 (a+b):屬于 a或?qū)儆?b [0..7]+[0..4]的值為 [0..7] (2)交 (a*b):既屬于 a又屬于 b [0..7]*[0..4]的值為 [0..4] (3)差 (ab):屬于 a但不屬于 b [0..7][0..4]的值為 [5..7] (4)相等 (a=b):a,b的元素完全一樣 [0..7]=[0..4]的值為 false (5)不等 ():元素不一樣 [0..7][0..4]的值為 true (6)包含于 (=): [0..7]=[0..4]的值為 false (7)包含 (=): [0..7]=[0..4]的值為 true (8)成員 (in): 1 in [0..4]的值為 true ４ .注意事項(xiàng)： (1)集合運(yùn)算相當(dāng)快，在程序中常用集合表達(dá)式來(lái)描述復(fù)雜的測(cè)試。y39。我們也希望自己能夠編寫(xiě)類(lèi)似的語(yǔ)句或函數(shù)。 var i,k:integer。 writeln(39。 program li3_10。b:=4。,c)。枚舉擁有很多優(yōu)點(diǎn)，以致于他能夠活到現(xiàn)在而不被淘汰。 如果從 2 到 n 的算術(shù)平方根取整后得到的整數(shù)（這個(gè)整數(shù)用 Pascal表達(dá)式描述為 trunc (sqrt(n))，注意用的是 trunc 函數(shù)而不是 int 函數(shù)）之間有一個(gè)數(shù)能整除 n，那我們對(duì) n 的判斷就應(yīng)該結(jié)束了，而沒(méi)必要再判斷下面的數(shù)。 end. 小結(jié) 枚舉就是在全集中的元素一個(gè)一個(gè)拿出來(lái)試，有點(diǎn)象小孩數(shù)糖果，由于它的運(yùn)算量相對(duì)較大，所以，我們應(yīng)該注意盡可能地限制一些無(wú)謂運(yùn)算的出現(xiàn)，這是搜索所要求的最重要的技巧，以后我們還會(huì)陸續(xù)地介紹其他一些減少運(yùn)算量的方法。 if ki then begin t:=a[i]。Enter date:39。 例 :輸入序列數(shù)據(jù)按非減順序輸出。 end. 4． 希爾排序 基本思想：將整個(gè)無(wú)序序列分割成若干小的子序列分別進(jìn)行插入排序或冒泡排序。 while d1 do begin d:=d div 2。 type arr=array[1..n] of integer。 for i:=1 to n do read(a[i])。no39。writeln(39。found:=false。output data:39。 begin write(39。a[j]:=t end。 write(39。 end. 插入排序的基本思想 :經(jīng)過(guò) i1遍處理后 ,L[1..i1]己排好序。Enter date:39。 for i:=3 to n do begin j:=2。所以除了 1和 n 之外，其它的從 2 到 n1 之間的整數(shù)，都必須不能整除 n。 end. main： a＝ 1 b＝ 4 c＝ 9 sub： x＝ 2 y＝ 5 z＝ 7 main： a＝ 1 b＝ 4 c＝ 7 sub： x＝ 13 y＝ 17 z＝ 30 main： a＝ 30 b＝ 4 c＝ 7 [練習(xí)及作業(yè) ] 1．見(jiàn)《變量及參數(shù)實(shí)例》一文 2．輸入 5個(gè)正整數(shù)求它們的最大公約數(shù)（用過(guò)程和函數(shù)實(shí)現(xiàn)） ：不小于 6的偶 數(shù)可以分解成二個(gè)素?cái)?shù)之和（ 10000以?xún)?nèi)） 。 writeln(39。y=39。 readln。 end。因?yàn)樗皇沁M(jìn)行相關(guān)的運(yùn)算或處理并返回一個(gè)值，不能跟一般的語(yǔ)句等同而單獨(dú)使用，因此必須出現(xiàn)在表達(dá)式中。 第六講 過(guò)程和函數(shù) 主要內(nèi)容： 子程序的定義、調(diào)用和參數(shù)的傳遞； 理解并掌握標(biāo)識(shí)符的作用域； 理解并掌握值參、變參的含義； 理解并掌握子程序的嵌套； 掌握遞歸和遞推； 在程序設(shè)計(jì)中，對(duì)于較簡(jiǎn)單規(guī)模較小的問(wèn)題，可以直接編寫(xiě)程序。T39。,39。thursday39。 Turbo Pascal不允許直接讀寫(xiě)枚舉值，所以枚舉值的輸出常用 case語(yǔ)句間接的輸出。,39。 var day:riqi。 [練習(xí)及作業(yè) ]： 1. 輸入 10 個(gè)整數(shù)，把這 10 個(gè)數(shù)按從小到大的順序排列。 39。{s=39。12345678939。 FalseString:string[5]=?no?。 3．字符串長(zhǎng)度 為了記錄一個(gè)字符串的實(shí)際長(zhǎng)度即有效字符的長(zhǎng)度，系統(tǒng)在所有字符串變量前保留一個(gè)不可見(jiàn)字符，稱(chēng)它為長(zhǎng)度字節(jié)，因此 turbopascal編譯器為每一字符串變量在內(nèi)存中所分配的字節(jié)數(shù)（一個(gè)字符占一個(gè)字節(jié)）是其長(zhǎng)度加 1。 for i:=1 to 40 do if odd(a[i]) then write(a[i]:5)。選最大數(shù)時(shí)可用“擂臺(tái)比武”的思想，假設(shè)最大數(shù)放在變量 max里，如果 a[i]比 max大，則取而代之， i從 1 到 100 重復(fù)此操作。定義一個(gè) 20 個(gè)元素的一維數(shù)組來(lái)存放平均分。 對(duì)某一行進(jìn)行處理。 {————數(shù)組元素 a[1]到 a[10]的值分別為 1 到 10；數(shù)據(jù)賦初值 } for i:=1 to 10 do a[i]:=0。 數(shù)組其實(shí)是一組相同值類(lèi)型的變量的集合，這些變量共用一個(gè)名，彼此之間通過(guò)下標(biāo)來(lái)區(qū)別?！? ?。骸白畲筵蛾?yáng)湖，最小太湖，洪澤湖第二，洞庭湖第三。 begin n:=0。 {輸出一行的左半部分 } for ch:=pred(c) downto ?A? do write(