delphi課程設計(編輯修改稿)

　

【文章內容簡介】 Var myArray:TMyArray。 可以用 myArray[2,8]或 myArray[2][8]的方式訪問數組中的元素。 Delphi程序設計 靜態數組 （ 3）靜態數組的整體賦值 Type TMyArray＝ array[1..10] of real。 Var array1,array2:TMyArray。 array3:TMyArray。 array4,array5: array[1..10] of real。 array6: array[1..10] of real。 可以用 array1:=array2這條語句將 array2每個元素的值都賦給 array1。 同理， array1:=array3。array4:=array5。 那么， array4:=array6是否合法 ? array4:=array6是不合法的，系統認為是兩種不同類型，容易產生類 型相容問題。但是可以通過逐個元素的賦值使得數組類型一致，因為它們 的基類是賦值相容的。 Delphi程序設計 動態數組 ? 動態數組可以使用不確定的數組長度，而在程序中動態地分配數組的存儲空間，以便更靈活地使用數組的特性。定義一個動態數組的語法如下： 數組類型名稱： array of 數據類型 ? 這里可以看到，動態數組沒有給定好的長度。取而代之的是，向動態數組賦值或把動態數組傳遞給 SetLength過程時，動態數組的內存被重新分配。其語法如下： SetLength(數組名，數組元素個數 ) Delphi程序設計 動態數組 ? （ 1）一維動態數組 Type TmyArray= array of Real。 Var myArray: TmyArray 。 等價于： Var myArray:array of Real。 如要為數組分配內存，則 SetLength(myArray,50)。 它要求系統在內存中分配一個擁有 50個實數類型元素的空間，此 數組的索引為 0～ 49。 Delphi程序設計 動態數組 ? 動態數組變量是一個隱式的指針。例如： Var A,B: array of integer。 Begin SetLengeth(A,1)。 A[0]:=1。 B:=A。 B[0]:=2。 End。 如果 A和 B是同一動態數組類型的變量，那么 B:=A執行的操作是 把 A指向與 B相同的數組（不需要在執行操作之前為 B分配內存）。 此例中 A[0]的值為 2。 如果 A和 B為靜態數組，那么此時 A[0]的值為 1。 Delphi程序設計 動態數組 ? （ 2）多維動態數組 Type TmyArray= array of array of integer 。 Var myArray: TmyArray 。 等價于 Var myArray: array of array of integer 。 這里聲明了一個動態二維數組，用 SetLength(myArray,6,8)來 初始化數組，相當于一個 6*8的矩陣。 其中 myArray[0,0]表示數組第一個元素， myArray[5,7]表示該 數組的最后一個元素。 Delphi程序設計 排序 由于數組中存有同一數據類型的數據，而有時為了更有效地使用數組，就需要對數組中的元素進行排序，使其按一定的順序排列好，比如按關鍵字的值從小到大排序。前面我們講過，排序算法有很多，如：冒泡排序、選擇排序、插入排序、快速排序、合并排序、希爾（ Shell）排序、堆排序等。在這里僅討論一維數組的冒泡排序和快速排序這兩個算法，以便重點掌握這兩個排序算法的基本原理與實現方法。 Delphi程序設計 排序 1. 冒泡排序 冒泡法是最簡單的排序方法。這種方法的基本思想是，將待排序的元素看作是豎著排列的“ 氣泡 ” ，較小的元素比較輕，從而要往上浮。在冒泡排序算法中我們要對這個 “ 氣泡 ” 序列處理若干遍。 Delphi程序設計 1. 冒泡排序的 Delphi實現 ? type ? Arraytype=array[1..10] of integer。 ? procedure BubbleSort(var BubbleArray:Arraytype)。 //冒泡排序過程 ? var ? i,j,temp:integer。 ? begin ? for i:= low(BubbleArray) to high(BubbleArray)1 do //總共排的輪數 ? for j:= low(BubbleArray) to high(BubbleArray)i do //每輪的比較次數 ? if BubbleArray[j]BubbleArray[j+1] then //前面的數小，則交換順序 ? begin ? temp:= BubbleArray[j]。 ? BubbleArray[j]:= BubbleArray[j+1]。 ? BubbleArray[j+1]:=temp。 ? end。 ? end。 ? procedure (Sender: TObject)。 ? var ? a:Arraytype。 //a=(2,5,3,8,7,6,9,10,49,25)。 ? begin ? a[1]:=2。 a[2]:=5。 a[3]:=3。 a[4]:=8。 a[5]:=7。 ? a[6]:=6。 a[7]:=9。 a[8]:=10。a[9]:=49。a[10]:=25。 ? BubbleSort(a)。 ? showmessage(39。經冒泡排序后最后的順序為： 39。+inttostr(a[1])+ ? 39。 39。+inttostr(a[2])+39。 39。+inttostr(a[3])+39。 39。+inttostr(a[4]) ? +39。 39。+inttostr(a[5])+39。 39。+inttostr(a[6])+39。 39。+inttostr(a[7]) ? +39。 39。+inttostr(a[8])+39。 39。+inttostr(a[9])+39。 39。+inttostr(a[10]))。 ? end。 end. Delphi程序設計 排序 5 2 3 8 7 6 9 10 49 25 2 5 3 8 7 6 9 10 49 25 2 5 3 8 7 6 9 10 49 25 第一次比較 第二次比較 最后一次比較 比較 交換 比較 交換 比較 交換 ... ... 冒泡排序第一輪比較和交換的過程演示 Delphi程序設計 排序 2. 快速排序 由著名計算機科學家霍爾（ ）設計的快速排序是對冒泡排序的一種改進。它（這次以升序排列為例）的基本思想是：首先選取某個元素 u，通過一趟排序將待排序的數組元素分割成獨立的兩部分，其中前一部分元素的均比 u小，而后一部分元素均比 u大，然后再分別對這兩部分元素繼續進行排序，被分成的兩個部分以后不用再歸并，最終