【正文】 。 end. 2．二分查找 二分查找的 基本思想 :首先將結(jié)點(diǎn)按關(guān)鍵字排序 ,其次將查找值與中間位 置的值比較 ,相等 ,查找成功 。no39。,place)。,x1:5,39。writeln(39。yes39。 search(a,n,x1,b,place)。)。 write(39。 for i:=1 to n do read(a[i])。Enter array:39。 end。found:=false。var p:integer)。m,x:integer。 place:integer。 a:arr。 type arr=array[1..n] of integer。 end. 三、查找算法 查找 是 在數(shù)據(jù)結(jié)構(gòu)中查找指定值的結(jié)點(diǎn) 。 for i:=1 to n do write(a[i]:6)。output data:39。 end。 a[i+d]:=t。i:=id。i:=jd。 while d1 do begin d:=d div 2。 writeln。)。 begin write(39。 i,j,t,d:integer。 type arr=array[1..n] of integer。 程序 1:(子序列是插入排序 ) program xepx。在排序過程中，逐次減小這個(gè)增量，最后當(dāng) h減到 1時(shí)，進(jìn)行一次插入排序或冒泡排序，排序就完成。 end. 4． 希爾排序 基本思想：將整個(gè)無序序列分割成若干小的子序列分別進(jìn)行插入排序或冒泡排序。 for i:= 1 to n do write(a[i]:6)。output data:39。a[j]:=t end。 for i:=1 to n 1 do for j:=n downto i+1 do if a[j1]a[j] then begin t:=a[j1]。)。 begin write(39。 var a:array[1..n] of integer。 例 :輸入序列數(shù)據(jù)按非減順序輸出。 writeln。)。 write(39。 a[j+1]:=k。 while (ka[j]) and (j0) do begin a[j+1]:=a[j]。 for i:=2 to n do begin k:=a[i]。 for i:= 1 to n do read(a[i])。Enter date:39。 i,j,k,t:integer。 例： 輸入序列數(shù)據(jù)按非減順序輸出 . 程序 : const n=7。 end. 插入排序的基本思想 :經(jīng)過 i1遍處理后 ,L[1..i1]己排好序。 for i:= 1 to n do write(a[i]:6)。output data:39。 end。a[k]:=t。 if ki then begin t:=a[i]。 for i:=1 to n1 do begin k:=i。 for i:= 1 to n do read(a[i])。Enter date:39。 i,j,k,t:integer。 const n=7。這樣，經(jīng)過 i遍處理之后，前 i個(gè)記錄的位置就已經(jīng)按從小到大的順序排列好了。 二、排序算法 排序 就是將雜亂無章的數(shù)據(jù)元素，通過一定的方法按關(guān)鍵字順序排列的過程。 end. 小結(jié) 枚舉就是在全集中的元素一個(gè)一個(gè)拿出來試，有點(diǎn)象小孩數(shù)糖果，由于它的運(yùn)算量相對較大，所以，我們應(yīng)該注意盡可能地限制一些無謂運(yùn)算的出現(xiàn)，這是搜索所要求的最重要的技巧，以后我們還會陸續(xù)地介紹其他一些減少運(yùn)算量的方法。 end。 while (j=k) and (i mod j0) do j:=j+1。 for i:=3 to n do begin j:=2。 {假設(shè) n 為 8，其它的值也一樣 } var i,j,k:integer。 [程序清單 ]： program meiju。 這樣，我們就把這個(gè)問題的算法，優(yōu)化了不少，下面給出了第二種情況的程序，自己寫出其它兩種情況相關(guān)的程序。所以，我們又得出了一個(gè)結(jié)論。 如果從 2 到 n 的算術(shù)平方根取整后得到的整數(shù)（這個(gè)整數(shù)用 Pascal表達(dá)式描述為 trunc (sqrt(n))，注意用的是 trunc 函數(shù)而不是 int 函數(shù)）之間有一個(gè)數(shù)能整除 n，那我們對 n 的判斷就應(yīng)該結(jié)束了，而沒必要再判斷下面的數(shù)。下面是對枚舉范圍的逐步縮?。? 比 n 的平方根還大的整數(shù)，當(dāng)然不能整除 n。懂了嗎？上面那個(gè)方法，確實(shí)有許多可以偷懶的地方，編程的一個(gè)大原則就是能有多懶就要多懶（當(dāng)然是要在正確的前提下了。所以除了 1和 n 之外，其它的從 2 到 n1 之間的整數(shù)，都必須不能整除 n。 例 7． 2 求出給定的一個(gè)自然數(shù) n 以內(nèi)的素?cái)?shù)。 如果你要再大一點(diǎn)，可以用 longint 類型的 } if i mod 2=0 then write (i:8)。 var i:integer。其次，枚舉擁有天下第一全面性，因?yàn)樗菍λ蟹桨傅娜嫠阉鳎?，它能夠得出所有的解。枚舉擁有很多優(yōu)點(diǎn)，以致于他能夠活到現(xiàn)在而不被淘汰。 1 什么都不是， 2 是素?cái)?shù)， 3是， 4 不是， 5 是??，如此把所有的自然數(shù)（當(dāng)然是不可能的，只能盡量多）都找一遍，就能 找出所有的素?cái)?shù) (如果可能的話 )。應(yīng)用到程序中，枚舉有許多表現(xià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．見《變量及參數(shù)實(shí)例》一文 2．輸入 5個(gè)正整數(shù)求它們的最大公約數(shù)（用過程和函數(shù)實(shí)現(xiàn)） ：不小于 6的偶 數(shù)可以分解成二個(gè)素?cái)?shù)之和（ 10000以內(nèi)） 。,c)。,b:2,39。,a:2,39。 writeln(39。,c)。,b:2,39。,a:2,39。 writeln(39。,c)。,b:2,39。,a:2,39。 writeln(39。b:=4。 end。z=39。y=39。sub:x=39。z:=x+y。 begin x:=x+1。 procedure sub(x,y:integer。 program li3_10。 變量形參 —— 傳地址：調(diào)用時(shí)必須用變量代替行參變量，改變實(shí)在參數(shù)的值。 當(dāng)刪除本語句時(shí)。 readln。j in main=39。,i)。 writeln(39。,k)。 writeln(39。i in main=39。k:=9。 end。k in sub=39。,i)。 writeln(39。 var i,j:integer。 var i,k:integer。 例 4：全局變量和局部 變量。全局變量作用域是整個(gè)程序；局部變量作用域是定義該變量的子程序。因?yàn)樗皇沁M(jìn)行相關(guān)的運(yùn)算或處理并返回一個(gè)值，不能跟一般的語句等同而單獨(dú)使用，因此必須出現(xiàn)在表達(dá)式中。 、函數(shù)及其調(diào)用 1．函數(shù)說明 function 函數(shù)標(biāo)識符 [（形式參數(shù)表） ]：結(jié)果類型； [說明部分； ] begin 語句部分； {其中一般都有：“函數(shù)標(biāo)識符： =表達(dá)式” 這樣的賦值 語句 } end。而變量參數(shù)一定是變量來調(diào)用，并且過程的處理過程中對變量值的改變能帶回調(diào)用它的上級程序。 形式參數(shù)表形如： 形式參數(shù)段 {；形式參數(shù)段 } 其中形式參數(shù)段列舉每個(gè)形式參數(shù)的性質(zhì)、名字和類型，可為： 形式參數(shù) {，形式參數(shù) }：類型 值參數(shù) 或者： var 形式參數(shù) {，形式參數(shù) }：類型 變量參數(shù) 第一種稱為值參數(shù)，它與調(diào)用的程序之間傳遞的是值，第二種稱為變量參數(shù)，它與調(diào)用程序間傳遞的地址。 1．過程的說明： procedure 過程 標(biāo)識符 [（形式參數(shù)表） ]； [說明部分； ] begin 語句部分； end。我們也希望自己能夠編寫類似的語句或函數(shù)。 從結(jié)構(gòu)化程序設(shè)計(jì)的要求來看，我們有必要將程序模塊化，而過程與函數(shù)是模塊化好的實(shí)現(xiàn)方法。自己寫的程序過一段時(shí)間后再看可能也有許多看不懂的地方。 第六講 過程和函數(shù) 主要內(nèi)容： 子程序的定義、調(diào)用和參數(shù)的傳遞； 理解并掌握標(biāo)識符的作用域； 理解并掌握值參、變參的含義； 理解并掌握子程序的嵌套； 掌握遞歸和遞推； 在程序設(shè)計(jì)中，對于較簡單規(guī)模較小的問題，可以直接編寫程序。 B)或先初始化一個(gè)集合，然后通過并運(yùn)算向集合中逐步加入各個(gè)元素 . (5)集合元素是無序的，所以 ord， pred和 succ函數(shù)不能用于集合類型的變量。 (4)集合類型變量不能進(jìn)行算術(shù)運(yùn)算，了不允許用讀 /寫語句直接輸入 /輸出集合。 (3)Turbo Pascal規(guī)定集合的元素個(gè)數(shù)不超過 256個(gè) (當(dāng)實(shí)際問題所需的元素個(gè)數(shù)大于 256時(shí)， 可采用布爾數(shù)組代替集合類型 )。 可寫成： if ch in [20..50] then ...。y39。Y39。t39。T39。y39。Y39。t39。T39。]－－有四個(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á)式來描述復(fù)雜的測試。,39。,39。,39。如： [A,B,C,D]－－有四個(gè)枚舉量的集合 [39。 或 var n: set of char。 集合 1．集合的定義： type 類型名 =set of 基類型 例如： type num=set of char。 end。saturday39。)。 friday:write(39。thursday39。)。 wednesday:write(39。tuesday39。)。 monday:write(39。sunday39。若是才能賦給枚舉變量，否則就會出錯(cuò)。 Turbo Pascal不允許直接讀寫枚舉值，所以枚舉值的輸出常用 case語句間接的輸出。根據(jù)定義類型時(shí)各枚舉元素的排列順序確定它們的序列，序列號從 0開始。 可以將枚舉類型的定義和變量的定義結(jié)合在一起。例如以下的定義是錯(cuò)誤的： type daytype1=(monday,tuesday)。) 枚舉元素是標(biāo)識符，不要把作為枚舉元素的標(biāo)識符視作變量名，它不能被賦值。,39。,39。,39。,39。,39。,39。例如以下的定義是錯(cuò)誤的： type daystype=(39。 枚舉類型 : 通過預(yù)定義列出所有值的標(biāo)識符來定義一個(gè)有序集合，這些值的次序和枚舉類型說明中的標(biāo)識符的次序是一致的。..39。 ch1:39。 也可以直接定義 : day： 1..31。 var day:riqi。..39。 zimu=39。 類型定義的語法格式： type 標(biāo)識符 1=類型 1； 標(biāo)識符 2=類型 2； ?? 標(biāo)識符 n=類型 n； : 當(dāng)某些變量的取值范圍很具體時(shí) ,可用子界類型 ,它更符合實(shí)際、便于查錯(cuò)和節(jié)省內(nèi)存。 第五講 子界、枚舉與集合類型 主要內(nèi)容： 掌握子界、枚舉、集合類型的特點(diǎn)和定義； 能根據(jù)不同的實(shí)際問題來選擇使用不同的數(shù)據(jù)類型； 熟練掌握與這三種數(shù)據(jù)類型相關(guān)的典型例題如篩選法、萬年歷等； 掌握集合的各種運(yùn)算。 4． 輸入 n 個(gè)整數(shù)，請找出最小數(shù)所在的位置，并把它與第一個(gè)數(shù) 對調(diào)。（所謂 “相反處理 ”是：原來開著的門關(guān)上，原來關(guān)上的門打開。第一個(gè)服務(wù)員把所有的房間門都打開了，第二個(gè)服務(wù)員把