7. Исследуйте работу функции random, запустив многократно на выполнение программу:
var
x, y, n: integer;
begin
writeln (‘Исследование функции random’);
write (‘Введите x>>’);
read (x);
write (‘Введите n>>’);
read (n);
y := random (x);
writeln (‘random(‘, x,’)=’, y);
write (‘random(‘, x,’)+’, n, ‘=’, y + n)
end.
Как можно получить случайное число из интервала (0, x)? Как можно получить случайное число из полуинтервала (0, x]? Как можно получить случайное число из интервала (n, x+ n)?
Ответ
Для получения случайного числа из интервала (0, x) можно использовать следующий код:
y := random(x-1) + 1;
Для получения случайного числа из полуинтервала (0, x] можно использовать следующий код:
y := random(x) + 1;
Для получения случайного числа из интервала (n, x+ n) можно использовать следующий код:
y := random(x-n+1) + n;
Примечание: Функция random(x) возвращает случайное число в диапазоне от 0 до x-1. Поэтому для получения случайного числа из интервала (n, x) нужно использовать x-n+1.