Programmer 7500/MAX_PROGRAMMERS.iso/INFO/PASCAL/PAS_ENG.ZIP/RANDOM.LIB

Text File | 1985-04-03 | 384 b | 20 lines

function random(dummy: integer): real;    { --> 29}
{ random number 0-1 }
        { DEFINE SEED=4.0 AS GLOBAL !!!!!!!! }
{ adapted from HP-35 applications programs }

const
 pi    = 3.14159;

var
 x    : real;
 i    : integer;

begin    { RANDOM }
 x:=seed+pi;
 x:=exp(5.0*ln(x));
 seed:=x-trunc(x);
 random:=seed
end;        { RANDOM }