delphi課程設計(完整版)

　　

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