[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.

 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 : ');