关闭

一躺快速排序法

570人阅读 评论(0) 收藏 举报

一躺快速排序法


佚名

 

 

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

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.

 

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:7796次
    • 积分:95
    • 等级:
    • 排名:千里之外
    • 原创:2篇
    • 转载:4篇
    • 译文:0篇
    • 评论:2条
    文章分类
    文章存档
    最新评论