d_10_1.dpr

来自「本光盘是《Delphi 7应用教程》一书的配套光盘」· DPR 代码 · 共 55 行

library D_10_1;

uses
  SysUtils,
  Classes;

{$R *.res}
Procedure  Revert(VAR a:array of integer;n:integer);stdcall;
var
  i,j,t:integer;
begin
  i:=0;j:=n-1;
  while(i<j) do
     begin
       t:=a[i];a[i]:=a[j];a[j]:=t;
       i:=i+1;j:=j-1;
     end;
end;
Procedure SortSel(Var a:array of integer;Const n:integer);stdcall;
  var
    i,j,t,min_i:integer;
begin
   for i:=0 to n-2 do
      begin
         min_i:=i;
         for j:=i+1 to n-1 do
              if(a[j]<a[min_i]) then
                  min_i:=j;
         if(min_i<>i)  then
            begin
               t:=a[min_i];a[min_i]:=a[i];a[i]:=t;
            end;
     end;
end;

Procedure SortBub(Var a:array of integer;Const n:integer);stdcall;
  var
    i,j,t:integer;
begin
   for i:=0 to n-2 do
      For j:=0 to n-i-2 do
              if(a[j]>a[j+1]) then
                 begin
                    t:=a[j];a[j]:=a[j+1];a[j+1]:=t;
                 end;
end;



Exports
  Revert,SortSel,SortBub;

begin
end.