• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    迪恩网络公众号
登陆 注册
描述文字

delphidynamicArray排序快速排序,选择排序,冒泡排序

原作者: [db:作者] 来自: [db:来源] 收藏 邀请
 
{
这段代码存在的目的不是在研究这3个排序的算法，
这段代码存在的目的是如何用这3个排序函数，并且选出一个排序速度最快的函数 面对实际应用
} 
 
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    Memo2: TMemo;
    Edit1: TEdit;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


{选择排序} 
procedure selectrank(var a:array of integer;maxtomin:boolean); 
var i,j,t:integer; 
begin 
   if maxtomin then                 //由大到小 
     begin 
       for i:=low(a) to high(a)-1 do 
         for j:=i+1 to high(a) do
             if a[i]<a[j] then 
                begin 
                   t:=a[i]; 
                   a[i]:=a[j]; 
                   a[j]:=t; 
                end; 
     end 
   else                     //由小到大 
    begin 
     for i:=low(a) to high(a)-1 do 
         for j:=i+1 to high(a) do 
             if a[i]>a[j] then    //关键区别是符号 
                begin 
                   t:=a[i]; 
                   a[i]:=a[j]; 
                   a[j]:=t; 
                end; 
     end; 
end; 

{快速排序} 
procedure speedrank(var a:array of integer;maxtomin:boolean); 
var i,j,t:integer; 
    flag:boolean; 
begin 
  if maxtomin then                  //由大到小 
     begin 
        i:=1; 
        repeat 
          flag:=true; 
          for j:=low(a) to high(a)-i do 
             if a[j]<a[j+1] then 
                begin 
                   t:=a[j]; 
                   a[j]:=a[j+1]; 
                   a[j+1]:=t; 
                   flag:=false;
                end; 
           i:=i+1; 
        until flag; 
     end//end if 
  else                        //由小到大 
    begin 
      i:=1; 
      repeat 
         flag:=true; 
         for j:=low(a) to high(a)-i do 
            if a[j]>a[j+1] then   //关键点是大于好还是小于号 
               begin 
               t:=a[j]; 
               a[j]:=a[j+1]; 
               a[j+1]:=t; 
               flag:=false; 
               end; 
               i:=i+1; 
      until flag; 
    end; 
end; 

{冒泡排序法}
procedure bublerank(var a:array of integer;maxtomin:boolean); 
var i,j,t:integer; 
begin 
  if maxtomin then             //由大到校排序 
    begin 
      for i:=low(a) to high(a)-1 do 
          for j:=low(a) to high(a)-i-1 do 
                  if a[j]<a[j+1] then 
                     begin 
                       t:=a[j]; 
                       a[j]:=a[j+1]; 
                       a[j+1]:=t; 
                     end; 
    end 
  else                         //由小到大排序 
   begin 
    for i:=low(a) to high(a)-1 do 
        for j:=low(a) to high(a)-i-1 do 
                if a[j]>a[j+1] then 
                   begin 
                     t:=a[j]; 
                     a[j]:=a[j+1]; 
                     a[j+1]:=t; 
                   end; 
   end; 
end; 


var A:  Array of Integer;{共有部分}
{1/2产生13个随机数组}
procedure TForm1.Button1Click(Sender: TObject);
var  i:integer;{1/2产生随机数并给数组赋值}
begin
   Memo1.Clear;
  SetLength(A,StrToInt(Edit1.Text));//动态数组的长度
  for i:=Low(A) to High(A) do
   begin
      Randomize; 
      a[i]:=Random(100);
      Memo1.Lines.Add(IntToStr(a[i]));{}
   end; 
end; 

 {2/2排序}
procedure TForm1.Button2Click(Sender: TObject);
var  i:integer; {2/2重小到大排序->取最小值}
begin
  Memo2.Clear; //
  for i:=Low(A) to High(A) do
   begin
      speedrank(a,False); {排序}
      Memo2.Lines.Add(Format('%d',[a[i]])); {显示结果}
   end;
   if A<>nil then  Button2.caption:=Format('min=%d',[a[0]]);{取出最小值:从小到大排序的最终结果 最小值就是第1位}
   A:=nil;{排完序后立即释放动态数组}
end;


end.




附件列表

     

    鲜花
    握手
    雷人
    路过
    鸡蛋
    该文章已有0人参与评论

    请发表评论

    全部评论

    专题导读
    More+
    上一篇：
    Slip打包与解包及MATLAB程序发布时间：2022-07-18
    下一篇：
    C#中调用Matlab人工神经网络算法实现手写数字识别发布时间：2022-07-18
    热门推荐
    More+
    热门话题
    More+
    阅读排行榜

    扫描微信二维码

    查看手机版网站

    随时了解更新最新资讯

    139-2527-9053

    在线客服（服务时间 9:00～18:00）

    在线QQ客服
    地址：深圳市南山区西丽大学城创智工业园
    电邮：jeky_zhao#qq.com
    移动电话：139-2527-9053

    Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap