home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / PASCAL / NRPAS13.ZIP / SORT3.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-04-29  |  718 b   |  31 lines
  1. PROCEDURE sort3(n: integer; VAR ra,rb,rc,wksp: glsarray;
  2.       VAR iwksp: gliarray);
  3. (* Programs using routine SORT3 must define the types
  4. TYPE
  5.    glsarray = ARRAY [1..np] OF real;
  6.    gliarray = ARRAY [1..np] OF integer;
  7. in the main routine, with np >= n.   *)
  8. VAR
  9.    j: integer;
  10. BEGIN
  11.    indexx(n,ra,iwksp);
  12.    FOR j := 1 TO n DO BEGIN
  13.       wksp[j] := ra[j]
  14.    END;
  15.    FOR j := 1 TO n DO BEGIN
  16.       ra[j] := wksp[iwksp[j]]
  17.    END;
  18.    FOR j := 1 TO n DO BEGIN
  19.       wksp[j] := rb[j]
  20.    END;
  21.    FOR j := 1 TO n DO BEGIN
  22.       rb[j] := wksp[iwksp[j]]
  23.    END;
  24.    FOR j := 1 TO n DO BEGIN
  25.       wksp[j] := rc[j]
  26.    END;
  27.    FOR j := 1 TO n DO BEGIN
  28.       rc[j] := wksp[iwksp[j]]
  29.    END
  30. END;
  31.