|
<![CDATA[
procedure insert( new : ArrayEntry; var r : RecordArray );
var i, j : integer;
flag : boolean;
begin
n := n+1;
j := n;
flag := true;
while flag and (j>1) do begin
i := j div 2;
if r[i].k >= new.k then flag := false
else begin r[j] := r[i]; j := i end
end;
r[j] := new
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 (513.ins.c) 