Power-Programmierung/CD1.mdf/pascal/library/dos/nrpas/expdev.pas

Pascal/Delphi Source File | 1994-04-11 | 86 b | 5 lines

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