【正文】 clude(T1, ‘2’)。在檢查一個值是否屬于一個特定集合時，集合類型非常有用。)。 {$APPTYPE CONSOLE} Uses SysUtils。 outCome:=FIB(strtoint(x))。 result:=F[Num]。 function FIB(Num:integer):integer。 Delphi程序設(shè)計 算法復雜性分析 * 1. 時間復雜性 時間復雜性描述了算法在計算機上執(zhí)行時，所占用的計算機時間資源的情況。順序查找可以在任何列表中查找，折半查找則需要列表是有序的。這類算法在程序中應(yīng)用非常普遍，如：累加求和、累乘求積、求最大和最小值等。用以提高程序的設(shè)計、制造、檢查、維護等的生產(chǎn)效率。使用偽代碼的目的是為了使被描述的算法可以容易地以任何一種編程語言（如 Delphi、 C、Java等）實現(xiàn)。因此，偽代碼必須結(jié)構(gòu)清晰，代碼簡單，可讀性好，并且類似自然語言。 PAD使用二維樹型結(jié)構(gòu)圖描述程序的邏輯，它的控制構(gòu)造主要是基于 Pascal的。 Delphi程序設(shè)計 常用算法 2. 排序算法 ? 排序算法根據(jù)數(shù)據(jù)的值對它們進行排列。 Delphi程序設(shè)計 常用算法 4. 迭代和遞歸算法 迭代和遞歸是用于編寫解決問題的算法的兩種途徑。它是一種抽象的描述方式，并不是指與算法實現(xiàn)效率有關(guān)的算法執(zhí)行時間，而是指理論上與問題規(guī)模、算法輸入及算法本身相關(guān)的某些操作次數(shù)的總和，通常記為 T(n)。 var F:array of integer。 end。 writeln(39。 function FIB(N:integer):integer。 readln(x)。集合類型的定義方法： set of BaseType Delphi程序設(shè)計 集合 例： type Tint=0..100。 //在集合中增加 2 。//刪除 39。、 39。根據(jù)索引類型的個數(shù)，又可以將數(shù)組分為一維數(shù)組和多維數(shù)組。 上述聲明等價于： Type TMyArray＝ array[1..10,1..10] of real。 可以用 array1:=array2這條語句將 array2每個元素的值都賦給 array1。其語法如下： SetLength(數(shù)組名，數(shù)組元素個數(shù) ) Delphi程序設(shè)計 動態(tài)數(shù)組 ? （ 1）一維動態(tài)數(shù)組 Type TmyArray= array of Real。 A[0]:=1。 Var myArray: TmyArray 。這種方法的基本思想是，將待排序的元素看作是豎著排列的“ 氣泡 ” ，較小的元素比較輕，從而要往上浮。 ? end。 a[4]:=8。 ? showmessage(39。+inttostr(a[4]) ? +39。+inttostr(a[8])+39。我們稱這種重新整理叫做劃分， u稱為劃分元素。這人聽后知道他們在開玩笑，全是假話。因此，在調(diào)用這個過程或函數(shù)時，可以傳遞不同長度的數(shù)組作為實參。用戶使用抽象數(shù)據(jù)類型時不需要知道數(shù)據(jù)結(jié)構(gòu)。線性列表可以通過鏈表來實現(xiàn)。 TList所存儲的是指針，并且函數(shù)的參數(shù)也聲明為 Pointer數(shù)據(jù)類型，因此 TList用于管理其他數(shù)據(jù)類型時需要轉(zhuǎn)換為指針。棧的順序存儲結(jié)構(gòu)是利用一組地址連續(xù)的存儲單元依次存放自棧底到棧頂?shù)臄?shù)據(jù)元素，同時設(shè)指針 top指示棧頂元素的當前位置。回溯，即回到（或恢復到）前面的數(shù)據(jù)，在計算機游戲、決策分析和專家系統(tǒng)等應(yīng)用程序中經(jīng)常見到。 ? 偽代碼是一種算法描述語言。 ? 基本算法大都比較簡單，是其他算法的基礎(chǔ)。迭代就是反復替換的意思，它通過使用一個中間變量保存中間結(jié)果，不斷反復計算求解最終值。 Delphi程序設(shè)計 ? 使用標準函數(shù) Low和 High可分別返回數(shù)組中第一個索引類型其范圍的最低和最高值。折半查找是從一個列表的中間的元素來測試的，這將能夠判別出目標在列表里的前半部還是后半部分。它將數(shù)據(jù)和操作封裝起來，用戶可通過操作接口對數(shù)據(jù)進行操作。 本章小結(jié) Delphi程序設(shè)計 ? 隊列是線性列表的一種特殊情況，其所有的插入均限定在表的一端進行，而所有的刪除則限定在表的另一端進行。隊列又稱為先進先出（ FIFO）線性表 . ? 對列主要應(yīng)用于排隊處理用戶請求、任務(wù)和指令。 本章小結(jié) Delphi程序設(shè)計 ? 在 Delphi的 VCL中，有一些現(xiàn)成的可以當作鏈表使用的抽象數(shù)據(jù)類型，如： TList、 TStrings和TCollection。如果在后半部分，就不需要查找前半部分。 ? 冒泡法的基本思想是，將待排序的元素看作是豎著排列的 “ 氣泡 ” ，較小的元素比較輕，從而要往上浮。 ? 算法的復雜性是指在執(zhí)行時，算法所需要計算機資源的量。 ? 排序算法根據(jù)數(shù)據(jù)的值對它們進行排列。 Delphi程序設(shè)計 本章小結(jié) ? 程序設(shè)計中，能夠用來表示算法的圖主要有： PAD圖、 N\S盒圖、流程圖。允許插入的一端稱隊尾，允許刪除的一端稱隊頭。棧的鏈式存儲結(jié)構(gòu)由其棧頂?shù)闹羔樜ㄒ淮_定。（以上具體見 TList使用的演示程序） Delphi程序設(shè)計 棧 ? 棧是限定僅在一端進行插入或刪除操作的線性表。單鏈表關(guān)系的實現(xiàn)可以通過指針來描述。本節(jié)將重點討論的抽象數(shù)據(jù)類型，包括：鏈表、棧、對列。要定義含有開放數(shù)組參數(shù)的例程，需要在參數(shù)聲明中使用語法 array of type（優(yōu)于 array[X..Y] of type）。 Delphi程序設(shè)計 窮舉法 例：三對情侶參加婚禮，三個新郞為 A、 B、 C，三個新娘為 X、 Y、 Z。查找問題的一般提法是：設(shè)一數(shù)組有 n個元素，每個元素由一個稱為關(guān)鍵字的數(shù)據(jù)項和若干相關(guān)數(shù)據(jù)項的值組成，對給定值 K，要查找出這 n個數(shù)組元素中是否存在關(guān)鍵字等于 K的某個元素。+inttostr(a[9])+39。+inttostr(a[5])+39。+inttostr(a[1])+ ? 39。 ? a[6]:=6。 ? procedure (Sender: TObject)。 Delphi程序設(shè)計 1. 冒泡排序的 Delphi實現(xiàn) ? type ? Arraytype=array[1..10] of integer。 這里聲明了一個動態(tài)二維數(shù)組，用 SetLength(myArray,6,8)來 初始化數(shù)組，相當于一個 6*8的矩陣。 B[0]:=2。 等價于： Var myArray:array of Real。array4:=array5。 可以用 myArray[2,8]或 myArray[2][8]的方式訪問數(shù)組中的元素。 Delphi程序設(shè)計 靜態(tài)數(shù)組 （ 1）一維靜態(tài)數(shù)組： Type TMyArray＝ array[1..100] of integer。這幾個元素： if [‘a(chǎn)’, ‘b’, ‘c’] * CharSet = [‘a(chǎn)’, ‘b’, ‘c’] then DoSomeThing //繼續(xù)程序 Delphi程序設(shè)計 數(shù)組 ? 靜態(tài)數(shù)組