[Overview][Constants][Types][Classes][Procedures and functions][Variables][Index] | Reference for unit 'System' (#rtl)

# Random

Generate random number

## Declaration

Source position: systemh.inc line 841

`function Random(`
`l: LongInt`
`):LongInt; function Random(`
`l: Int64`
`):Int64; function Random: extended;`

## Description

Random returns a random number larger or equal to 0 and strictly less than L. For negative values of L the behaviour is undefined. If the argument L is omitted, a Real number between 0 and 1 is returned (0 included, 1 excluded).

Remark: | The Free Pascal implementation of the Random routine uses a Mersenne Twister algorithm to simulate randomness. This implementation has a better statistical distribution than for example a Linear Congruential generator algorithm, but is considerably slower than the latter. If speed is an issue, then alternate random number generators should be considered. Note that the fact that a Mersenne Twister is used is an implementation detail, which can be changed at any point. The only guarantee Random() offers is that setting randseed to particular value will result in the same sequence of random numbers in a particular version the RTL. A newer version of the RTL may result in a different sequence for the same randseed.

## Errors

None.

## See also

Randomize |  | Initialize random number generator

## Example

    Program Example49;

    { Program to demonstrate the Random and Randomize functions. }

    Var I,Count,guess : Longint;
        R : Real;

    begin
      Randomize; { This way we generate a new sequence every time
                   the program is run}
      Count:=0;
      For i:=1 to 1000 do
        If Random>0.5 then inc(Count);
      Writeln ('Generated ',Count,' numbers > 0.5');
      Writeln ('out of 1000 generated numbers.');
      count:=0;
      For i:=1 to 5 do
        begin
        write ('Guess a number between 1 and 5 : ');
        readln(Guess);
        If Guess=Random(5)+1 then inc(count);
        end;
      Writeln ('You guessed ',Count,' out of 5 correct.');
    end.

Documentation generated on: May 14 2021