|
<![CDATA[
procedure insert( key : typekey; var r : dataarray );
label 999;
var i : integer;
begin
i := n;
if n>=m then Error {*** Table full ***}
else begin
n := n+1;
while i>0 do
if r[i].k > key then begin
r[i+1] := r[i];
i := i-1
end
else goto 999; {*** break ***}
{*** Insert new record ***}
999:
r[i+1].k := key
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 (321.ins.c) 