一躺快速排序法

原创 2006年06月09日 16:58:00

一躺快速排序法


佚名

 

 

{快速排序法的一躺排序程序}

program kuaisu(input,output);

type

 arr=array[1..7] of integer;

var

  a:arr;

  i,j,k:integer;

 

  procedure sort(var a:arr;var m,n:integer);

  var

    x,p,q:integer;

  begin

    x:=a[m];

    repeat

      while ((m<n) and (a[n]>x)) do n:=n-1;

      p:=a[m];a[m]:=a[n];a[n]:=p;

      while ((m<n) and (a[m]<x)) do m:=m+1;

      p:=a[m];a[m]:=a[n];a[n]:=p

    until m=n

  end;

 

begin

   writeln('input 10 integer num:');

   i:=1;j:=1;k:=7;

   repeat

      read(a[i]);

      i:=i+1;

   until i>7;

   sort(a,j,k);

   for i:=1 to 7 do

      write(a[i]:4);

   writeln('j=',j:4,'k:',k:4)

end.

 

典型快速排序法(C语言)

  • 2017年05月25日 00:53
  • 2KB
  • 下载

快速排序法

  • 2014年04月24日 16:09
  • 631B
  • 下载

[Algorithm_Learn_04]分治法之快速排序

代码实现可到此处下载:http://download.csdn.net/detail/elcarim/6542567 当前代码工程中包含了 堆排序、快速排序,后面会持续更新。 在归并排序中我们已...
  • elcarim
  • elcarim
  • 2013年11月12日 23:37
  • 628

Java版快速排序法

  • 2012年01月05日 12:20
  • 1KB
  • 下载

C++ 快速排序法

  • 2012年08月11日 19:11
  • 1.05MB
  • 下载

【分治法】快速排序及C++代码

一、一趟快速排序的算法是:1)设置两个变量i、j,排序开始的时候:i=0,j=N-1;2)以第一个数组元素作为关键数据,赋值给key,即key=A[0];3)从j开始向前搜索,即由后开始向前搜索(j–...
  • ZY_cat
  • ZY_cat
  • 2017年11月05日 18:27
  • 59

分治法快速排序算法QuickSort C++

  • 2013年11月04日 14:23
  • 12KB
  • 下载

分治法快速排序算法QuickSort

  • 2013年11月04日 14:28
  • 11KB
  • 下载

php四种基础算法:冒泡,选择,插入和快速排序法

$arr=array(1,43,54,62,21,66,32,78,36,76,39); function getpao($arr) { $len=count($arr); //设置一...

快速排序法

  • 2012年10月23日 09:57
  • 79KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:一躺快速排序法
举报原因:
原因补充:

(最多只允许输入30个字)