Question

How to generate random floating point numbers in Pascal

Answer 1

program RandomNumbersProgram;

const
  N = 10;
  Lower = 0.0;
  Upper = 3.0;

type
  TDoubleArray = array[1..N] of Real;

function GenerateRandomNumbers: TDoubleArray;
var
  i: Integer;
begin
  Randomize;
  for i := 1 to N do
    GenerateRandomNumbers[i] := Random * (Upper - Lower) + Lower;
end;

var
  RandomNumbers: TDoubleArray;
  i: Integer;
begin
  RandomNumbers := GenerateRandomNumbers;
  
  for i := 1 to N do
    Write(RandomNumbers[i]:0:6, ' ');
end.



(*
run:

1.162551 1.212829 1.194064 2.688364 0.827583 0.359914 2.741655 1.527474 0.642609 2.512924 

*)

 

70+ SQL courses for beginners and professionals