# RandomNumbers

For details on this algorithm take a look at Park S.K. and Miller K.W. (1988). "Random number generators, good ones are hard to find". Communications of the ACM, 31, 1192-1201.

Procedure Summary
GetSeed(VAR LONGINT) Returns the currently used seed value.
PutSeed(LONGINT) Set seed as the new seed value.
RND(LONGINT): LONGINT Calculates a new number.
Random(): REAL Calculates a number ``x`' with ``0.0 <= x < 1.0`'.

Constant Summary
modulo

Procedure Detail

### GetSeed

    PROCEDURE GetSeed(VAR seed: LONGINT)

> Returns the currently used seed value.

### PutSeed

    PROCEDURE PutSeed(seed: LONGINT)

> Set seed as the new seed value. Any values for seed are allowed, but values beyond the intervall ``[1..2^31-2]`' will be mapped into this range.

### RND

    PROCEDURE RND(range: LONGINT): LONGINT

> Calculates a new number. range has to be in the intervall ``[1..2^31-2]`'. Result is a number from ``0,1,..,range-1`'.

### Random

    PROCEDURE Random(): REAL

> Calculates a number ``x`' with ``0.0 <= x < 1.0`'.

Constant Detail

### modulo

    CONST modulo