home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / PASCAL / NRPAS13.ZIP / LOCATE.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-04-29  |  434 b   |  19 lines
  1. PROCEDURE locate(xx: glnarray; n: integer;
  2.          x: real; VAR j: integer);
  3. (* Programs which use routine LOCATE must define the type
  4. TYPE
  5.    glnarray = ARRAY [1..n] OF real;
  6. in the main routine. *)
  7. VAR
  8.    ju,jm,jl: integer;
  9. BEGIN
  10.    jl := 0;
  11.    ju := n+1;
  12.    WHILE (ju-jl > 1) DO BEGIN
  13.       jm := (ju+jl) DIV 2;
  14.       IF ((xx[n] > xx[1]) = (x > xx[jm])) THEN jl := jm
  15.       ELSE ju := jm
  16.    END;
  17.    j := jl
  18. END;
  19.