Question

Запишите функцию для получения случайного числа x из промежутка: [0; 15) [0; 15] [-15; 15) [10; 15)

Answer 1

function Random_Range(x, y : Integer) : Integer;
begin
    Random_Range := Random(y) - x;
end;

 

var
   i : Integer;
begin

   Randomize;

 

   Writeln( Random_Range(0, 15) ); // [0; 15)
   Writeln( Random_Range(0, 16) ); //[0; 15] 
   Writeln( Random_Range(15, 30) ); //[-15; 15) 
   Writeln( Random_Range(-10, 5) ); //[10; 15)

   ReadLn; 
end.