Question

How to generate random float in specific range with Pascal

Answer 1

program RandomFloatInRange;

function RandomFloatInRange(Lower, Upper: Double): Double;
begin
  RandomFloatInRange := Lower + Random * (Upper - Lower);
end;

var
  LowerBound, UpperBound, RandomValue: Double;
begin
  Randomize;  // Initialize the random number generator
  
  LowerBound := 1.5;
  UpperBound := 4.5;
  
  RandomValue := RandomFloatInRange(LowerBound, UpperBound);
  
  WriteLn('Random float between ', LowerBound:0:2, ' and ', UpperBound:0:2, ': ', RandomValue:0:4);
end.


(*
run:

Random float between 1.50 and 4.50: 2.5105

*)

 

70+ SQL courses for beginners and professionals