Insertion for arrays
procedure insert( key : typekey; var r : dataarray ); begin if n>=m then Error {*** Table is full ***} else begin n := n+1; r[n].k := key end end;
C
source (311.ins.c)
Pascal
source (311.ins.p)
©
Addison-Wesley
Publishing Co. Inc.
![[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 (311.ins.c) 