知识大全极快的正整数排序函数

Posted 2022-07-22 函数

篇首语：人生处万类,知识最为贤。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全极快的正整数排序函数相关的知识，希望对你有一定的参考价值。

　　实现原理对比二进制位

　　unit　Unit ;

　　interface

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

　　type　TForm 　=　class(TForm)　　Button :　TButton;　　Memo :　TMemo;　　procedure　Button Click(Sender:　TObject);　　procedure　FormCreate(Sender:　TObject);　end;

　　var　Form :　TForm ;

　　implementation

　　$R　* dfm

　　type　TIntArr　=　array　of　Integer;

　　极快的正整数排序函数procedure　IntSort(arr:TIntArr;　low:Integer= ;　high:Integer= ;　k:Cardinal=$ ;　c:Cardinal= );var　i j x:　Integer;begin　if　high　=　　then　high　:=　Length(arr)　 ;　i　:=　low;　j　:=　high;　while　(i　<　j)　do　begin　　while　(arr[j]　and　k　<>　 )　and　(i　<　j)　do　Dec(j);　　while　(arr[i]　and　k　=　 )　and　(i　<　j)　do　Inc(i);　　if　i　<　j　then　　begin　　　x　:=　arr[j];　　　arr[j]　:=　arr[i];　　　arr[i]　:=　x;　　end　else　begin　　　if　arr[j]　and　k　<>　　then　Dec(i)　else　Inc(j);　　　Break;　　end;　end;　if　k　>　c　then　begin　　if　low　<　i　then　IntSort(arr 　low 　i 　k　div　 );　　if　j　<　high　then　IntSort(arr 　j 　high 　k　div　 );　end;end;

　　测试procedure　TForm Button Click(Sender:　TObject);var　MyArr:　TIntArr;　i:　Integer;　t:　Int ;begin　SetLength(MyArr 　MAXWORD);　for　i　:=　Low(MyArr)　to　High(MyArr)　do　MyArr[i]　:=　Random(MaxInt);　　t　:=　GetTickCount;　　IntSort(MyArr);　//调用排序函数　　Text　:=　IntToStr(GetTickCount　　t);

　　Memo Clear;　for　i　:=　　to　Length(MyArr) 　do　begin　　if　i　mod　　=　　then　　　Memo Lines Add(IntToStr(MyArr[i]));　end;end;

cha138/Article/program/Delphi/201311/8435

知识大全 极快的正整数排序函数

知识大全极快的正整数排序函数