直接插入排序算法

unit SortUnit;

interface

const n = 8; //待排序的记录数

type   //定义记录(数据元素)的结构：关键字为数据域key   rcdtype = record key: integer; name: string;             end;   //定义待排序的序列：有n个记录   listtype = array[0..n] of rcdtype;

procedure straipass ( var r: listtype; i: integer );

procedure straisort ( var r: listtype ); procedure straisort1 ( var r: listtype );

implementation

//一趟直接插入排序的算法

procedure straipass ( var r: listtype; i: integer );

var j: integer;

begin      

r[0]:= r[i];      

j:=i-1;      

  while r[j].key > r[0].key do

  begin           

    r[j+1]:= r[j];           

    j:= j-1;      

  end;     

   r[j+1]:= r[0];

end;

//整个排序过程为进行n-1趟插入

procedure straisort ( var r: listtype );

var i: integer;

begin      

    for i:= 2 to n do            

      straipass(r,i);

 end;

//将上面两个过程合并为一个的直接插入排序的算法

procedure straisort1 ( var r: listtype );

var i,j: integer;

begin      

       for i:= 2 to n do

       begin  //从第2个记录逐个进行插入            

            r[0]:= r[i];   //r[0]为监视哨，存放待插入的记录r[i]            

            j:=i-1;        //从i-1起往前搜索            

           while r[j].key > r[0].key do

           begin                  

               r[j+1]:= r[j];  //后移第i-1,i-2,...个记录,直到某个r[j]的关键字小于r[i]                  

              j:= j-1;        //向前取下一个记录            

               end;            

              r[j+1]:= r[0];  //以r[i]的值替换当前比较的r[j]后面那个记录r[j+1]的值     

        end;

       end;

end.

//======================================================

//上面算法的具体调用例子：用Delphi 2005实现的控制台程序，编译后为first.exe

program first;

{$APPTYPE CONSOLE}

uses       SysUtils,       SortUnit in 'SortUnit.pas';

var      

r: listtype;      

i: integer;

begin      

       Writeln('随机产生'+IntToStr(n)+'组值:');      

        Randomize();      

         for i:= 1 to n do begin            

             r[i].key := Random(100);            

             Write(r[i].key,' ');      

         end;      

           Writeln('');      

          straisort1(r);     

            Writeln('直接插入排序后得到：');     

            for i:= 1 to n do           

         Write( r[i].key,' ' );

end.

//============================================

//下面是例子的输出结果

C:\Delphi2005\first>first.exe 随机产生8组值: 4 47 93 89 87 88 6 90 直接插入排序后得到： 4 6 47 87 88 89 90 93 C:\Delphi2005\first>