Запишите функцию для получения случайного числа х из указанного промежутка...

Question

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

Comments

случайного целого или вещественного?

Answer 1

Function get_random(min,max:integer;n,x:boolean):integer;
begin
  if n then min:=min+1;
  if x then max:=max-1;
  get_random := random(min,max);
end;

вызов фунциии:


[0;15),
get_random(0,15,false,true);

[0;15],
get_random(0,15,false,false);

[-15;15],
get_random(-15,15,false,false);

[10;15)
get_random(10,15,false,true);