查詢一些快速排序的 pascal 經典示例

註冊後即可答疑解惑，有專業的測評體系。 房東也是oier，他和同齡人一起散步。

你可以在這裡檢視。

使用者名稱： 999999

密碼：999999

需要 Internet Explorer 6 或更高版本。

有乙個有序的資料序列，它要求在這個已經排列好的資料序列中插入乙個數字，但是插入後資料序列仍然是有序的，這時使用了一種新的排序方法——插入排序方法，插入排序的基本操作是將乙個資料插入到已經排序好的有序資料中， 為了得到新的數加一階資料，該演算法適用於少量資料的排序，時間複雜度為o（n 2）。是一種穩定的排序方法。 插入演算法將要排序的陣列分為兩部分：

第一部分包含陣列的所有元素，但最後乙個元素除外，第二部分僅包含這乙個元素。 對第一部分進行排序後，插入排序將按公升序排序。

procedure insertsort(var r : filetype);

至 r[1..n]、r[0] 是監視哨

beginfor i ：= 2 到 n do insert r[2]， .，r[n]//

beginr[0] := r[i]; j := i - 1;

while r[0] beginr[j+1] := r[j];向後移動大於 r[i] 的元素。

j := j - 1

endr[j + 1] := r[0] ;插入 r[i]。

endend;InsertSort 將最後乙個元素插入到訂單的第一部分。

就是構建乙個陣列，每次讀取乙個數字，都會從陣列的第一位到最後一位進行搜尋，並插入到適當的位置。

例如，2 5 3 7 4

A**（直接插入排序）：

vara:array[1..1000] of integer;

i,j,k,n,m:integer;

beginreadln(n);

read(a[1]);

for i:=2 to n do

beginread(k);

j:=1;while (k>a[j])and(j<=n) do j:=j+1;

for m:=n downto j do a[m+1]:=a[m];

a[j]:=k;

end;for i:=1 to n do write(a[i],' ');

readln;readln;

end.