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

Pascal/Delphi Source File | 1991-04-29 | 86 b | 5 lines

FUNCTION expdev(VAR idum: integer): real;
BEGIN
   expdev := -ln(ran3(idum))
END;