8класс
Страницы 168-173 параграф 4 3 вопрос / задание 7, ГДЗ по информатике за 8 класс к учебнику Босовой просвещение
Номер 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)?
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) - random(x-1)+1;
б) (0,x] - random(x)+1;
в) (n, x+n) - random (x)+n.
Для проверки результатов используйте программу, заменяя выражение с random:
(имейте ввиду, n больше х)
var
n, x, i: integer;
begin
read(x, n);
randomize;
for i := 1 to 10 do
write(random(x-1)+1, ' ')
end.
