四、排序算法A.快速排序：procedure qsort(l,r:integer);var i,j,mid:integer;

题目

四、排序算法

A.快速排序：

procedure qsort(l,r:integer);

var i,j,mid:integer;

相似考题

1.●试题一阅读下列算法说明和算法，将应填入(n)处的语句写在答题纸的对应栏内。【说明】为了减少直接插入排序关键字的比较次数，本算法使用了二分(折半)插入法对一个无序数组R［1..n］进行排序。排序思想是对一个待插入元素，先通过二分法(折半)找到插入位置，后移元素后将该元素插入到恰当位置(假设R［］中的元素互不相同)。【算法】1．变量声明X：DataTypei，j，low，high，mid，R0..n2．每循环一次插入一个R［i］循环：i以1为步长，从2到n，反复执行①准备X<-R［i］； (1) ；high<-i-1；②找插入位置循环：当 (2) 时，反复执行(3)若X．key<R［mid］．key则high<-mid-1否则 (4)③后移循环：j以-1为步长，从 (5) ，反复执行R［j+1］<-R［j］④插入R［low］<-X3．算法结束

2.最小生成树A.Prim算法：procedure prim(v0:integer);varlowcost,closest:array[1..maxn] of integer;i,j,k,min:integer;

3.B.插入排序：思路：当前a[1]..a[i-1]已排好序了，现要插入a[i]使a[1]..a[i]有序。procedure insert_sort;var i,j:integer;

4.阅读下列算法说明和算法，将应填入(n)处的语句写在对应栏内。【说明】为了减少直接插入排序关键字的比较次数，本算法使用了二分(折半)插入法对一个无序数组R[1..n]进行排序。排序思想是对一个待插入元素，先通过二分法(折半)找到插入位置，后移元素后将该元素插入到恰当位置。(假设R[]中的元素互不相同)[算法]1．变量声明X: Data Typei,j,low, high,mid,r:0..n2．每循环一次插入一个R[i]循环：i以1为步长，从2到n，反复执行。(1)准备X←R[i];(1); high←i-1;(2)找插入位置循环：当(2)时，反复执行。(3)若X.key＜R[mid].key则high←mid-1;否则 (4)(3)后移循环：j以-1为步长，从(5)，反复执行。R[j+1]←R[j](4)插入R[low]←X3．算法结束

更多“四、排序算法 A.快速排序: procedure qsort(l,r:integer);var i,j,mid:integer; ”相关问题

  • 第1题：

    C.选择排序：

    procedure sort;

    var i,j,k:integer;


    正确答案：

     

    begin
    for i:=1 to n-1 do
    for j:=i+1 to n do
    if a[i]>a[j] then swap(a[i],a[j]);
    end;

  • 第2题：

    E.堆排序：

    procedure sift(i,m:integer);{调整以i为根的子树成为堆,m为结点总数}

    var k:integer;


    正确答案：

     

    begin
    a[0]:=a[i]; k:=2*i;{在完全二叉树中结点i的左孩子为2*i,右孩子为2*i+1}
    while k<=m do begin
    if (k<m) and (a[k]<a[k+1]) then inc(k);{找出a[k]与a[k+1]中较大值}
    if a[0]<a[k] then begin a[i]:=a[k];i:=k;k:=2*i; end
    else k:=m+1;
    end;
    a[i]:=a[0]; {将根放在合适的位置}
    end;

    procedure heapsort;
    var
    j:integer;
    begin
    for j:=n div 2 downto 1 do sift(j,n);
    for j:=n downto 2 do begin
    swap(a[1],a[j]);
    sift(1,j-1);
    end;
    end;

  • 第3题：

    链表的定位函数

    loc(I:integer):pointer; {寻找链表中的第I个结点的指针}

    procedure loc(L:linklist; I:integer):pointer;

    var p:pointer;

    j:integer;


    正确答案：

     

    begin
    p:=L.head; j:=0;
    if (I>=1) and (I<=L.len) then
    while j<I do begin p:=p^.next; inc(j); end;
    loc:=p;
    end;

  • 第4题：

    D. 冒泡排序

    procedure bubble_sort;

    var i,j,k:integer;


    正确答案：

     

    begin
    for i:=1 to n-1 do
    for j:=n downto i+1 do
    if a[j]<a[j-1] then swap( a[j],a[j-1]); {每次比较相邻元素的关系}
    end;

  • 第5题：

    F. 归并排序

    {a为序列表，tmp为辅助数组}

    procedure merge(var a:listtype; p,q,r:integer);

    {将已排序好的子序列a[p..q]与a[q+1..r]合并为有序的tmp[p..r]}

    var I,j,t:integer;

    tmp:listtype;


    正确答案：

     

    begin
    t:=p;i:=p;j:=q+1;{t为tmp指针，I,j分别为左右子序列的指针}
    while (t<=r) do begin
    if (i<=q){左序列有剩余} and ((j>r) or (a[i]<=a[j])) {满足取左边序列当前元素的要求}
    then begin
    tmp[t]:=a[i]; inc(i);
    end
    else begin
    tmp[t]:=a[j];inc(j);
    end;
    inc(t);
    end;
    for i:=p to r do a[i]:=tmp[i];
    end;{merge}

    procedure merge_sort(var a:listtype; p,r: integer); {合并排序a[p..r]}
    var q:integer;
    begin
    if p<>r then begin
    q:=(p+r-1) div 2;
    merge_sort (a,p,q);
    merge_sort (a,q+1,r);
    merge (a,p,q,r);
    end;
    end;
    {main}
    begin
    merge_sort(a,1,n);
    end.

相关内容