|
<![CDATA[
procedure sort( var r : ArrayToSort; lo, up : integer );
var i, j : integer;
tempr : ArrayEntry;
begin
r[up+1].k := MaximumKey;
for i:=up-1 downto lo do begin
tempr := r[i];
j := i+1;
while tempr.k > r[j].k do begin
r[j-1] := r[j];
j := j+1
end;
r[j-1] := tempr
end
end;
]]> |
![[Home]](../../images/home_g.gif)
![[Chapter]](../../images/chapter_g.gif)
![[Contents]](../../images/contents_g.gif)
![[Previous Algorithm]](../../images/prevalg_g.gif)
![[Next Algorithm]](../../images/nextalg_g.gif)
C source (412b.sort.c) 