home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / PASCAL / NRPAS13.ZIP / PIKSRT.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-04-29  |  466 b   |  21 lines
  1. PROCEDURE piksrt(n: integer; VAR arr: glsarray);
  2. (* Programs using routine PIKSRT must define the type
  3. TYPE
  4.    glsarray = ARRAY [1..np] OF real;
  5. in the main routine, with np >= n.   *)
  6. LABEL 10;
  7. VAR
  8.    j,i: integer;
  9.    a: real;
  10. BEGIN
  11.    FOR j := 2 TO n DO BEGIN
  12.       a := arr[j];
  13.       FOR i := j-1 DOWNTO 1 DO BEGIN
  14.          IF (arr[i] <= a) THEN GOTO 10;
  15.          arr[i+1] := arr[i]
  16.       END;
  17.       i := 0;
  18. 10:      arr[i+1] := a
  19.    END
  20. END;
  21.