ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng)/ProfitPress-MegaCDROM2.B6I/PROG/PASCAL/NRPAS13.ZIP/ERFC.PAS

Pascal/Delphi Source File | 1991-04-29 | 173 b | 9 lines

FUNCTION erfc(VAR x: real): real;
BEGIN
   IF (x < 0.0) THEN BEGIN
      erfc := 1.0+gammp(0.5,sqr(x))
   END ELSE BEGIN
      erfc := gammq(0.5,sqr(x))
   END
END;