0 голосов
65 просмотров
от (17 баллов) в категории Информатика

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

1 Ответ

0 голосов
от Одаренный (1.1k баллов)

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.

...