home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / PASCAL / NRPAS13.ZIP / MDIAN1.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-04-29  |  329 b   |  14 lines
  1. PROCEDURE mdian1(VAR x: narray; n: integer; VAR xmed: real);
  2. (* Program using routine MDIAN1 must define the type
  3. TYPE
  4.    narray = ARRAY [1..n] OF real;
  5. in the calling routine *)
  6. VAR
  7.    n2: integer;
  8. BEGIN
  9.    sort(n,x);
  10.    n2 := n DIV 2;
  11.    IF (2*n2 = n) THEN xmed := 0.5*(x[n2]+x[n2+1])
  12.    ELSE xmed := x[n2+1]
  13. END;
  14.