docs/Heapsort.htm

   1 <HEAD>
   2 <TITLE>Heapsort
   3 </TITLE>
   4 <BODY>
   5 <H2>
   6 <H3>
   7 <A HREF="../../images/handbook.gif"><IMG SRC="../../images/handbook2.gif" align=left></A>
   8 <A HREF="../../hbook.html">
   9 <IMG SRC="../../images/home_g.gif" hspace = 15 vspace = 4 ALT = "[Home]"></A><BR>
  10 <A HREF="../../sort_a.html">
  11 <IMG SRC="../../images/chapter_g.gif" hspace = 15 vspace = 4 ALT = "[Chapter]"></A><BR>
  12 <A HREF="../../expand.html">
  13 <IMG SRC="../../images/contents_g.gif" hspace = 15 vspace = 4 ALT = "[Contents]"></A><BR>
  14 <A HREF="415.sort.c.html">
  15 </A>
  16 <A HREF="415.sort.c.html">
  17 <IMG SRC="../../images/prevalg_g.gif" hspace = 15 vspace = 4 ALT = "[Previous Algorithm]"></A><BR>
  18 <A HREF="416.sort.c.html">
  19 <IMG SRC="../../images/nextalg_g.gif" hspace = 15 vspace = 4 ALT = "[Next Algorithm]"></A><BR>
  20 <BR></H2>
  21 <HR>
  22 <H2><B>Heapsort
  23 </B></H2><BR>
  24 <CENTER>
  25 <TABLE BORDER>
  26 <TR>
  27 <TD COLSPAN = 1>
  28 <TD rowspan = 1>
  29 <TR><TD>
  30 <XMP>
  31      procedure sort( var r : ArrayToSort; lo, up : integer );
  32
  33      var  i : integer;
  34           tempr : ArrayEntry;
  35      begin
  36      {*** construct heap ***}
  37      for i := (up div 2) downto 2 do    siftup(r,i,up);
  38      {*** repeatedly extract maximum ***}
  39      for i := up downto 2 do begin
  40           siftup(r,1,i);
  41           tempr := r[1];
  42           r[1] := r[i];
  43           r[i] := tempr
  44           end
  45      end;
  46 </XMP></TD></TR></TABLE>
  47 <BR>
  48 <H3><A HREF="ftp://sunsite.dcc.uchile.cl/pub/users/rbaeza/handbook/algs/4/415.sort.c"><IMG SRC="../../images/ftp.xbm" hspace=10>C</A> source (415.sort.c)  <A HREF="ftp://sunsite.dcc.uchile.cl/pub/users/rbaeza/handbook/algs/4/415.sort.p"><IMG SRC="../../images/ftp.xbm" hspace=10>Pascal</A> source (415.sort.p)
  49 </H3></CENTER>
  50 <HR><H4>
  51 <IMG SRC="../../images/aw3.gif" align=left><H5><BR>
  52 &copy <A HREF="http://aw.com">Addison-Wesley </A>Publishing Co. Inc.
  53 </H5></H4><HR>
  54 </BODY>