7. Исследуйте работу функции random, запустив многократно на выполнение программу: program n 8; var x, n: integer; begin writeln ('Исследование функции random'); randomize (*для генерации различных случайных чисел при каждом запуске программы*); write ('Введите х>>'); readln (x); write ('Введите п>>'); readln (n); writeln ('random(', x, ')=', random(x)); writeln ('random(', x, ')+', n, '=', random(x)+n) end.

Для исследования работы функции random, нужно запустить данную программу несколько раз и проанализировать результаты.

Описание программы

Программа выполняет следующие действия:

1. Выводит сообщение «Исследование функции random».
2. Инициализирует генератор случайных чисел с помощью randomize.
3. Запрашивает у пользователя два целых числа: x и n.
4. Выводит результат вызова функции random(x).
5. Выводит результат выражения random(x) + n.

Что исследовать

Нужно обратить внимание на следующие моменты:

• Как меняются результаты работы функции random(x) при разных значениях x и n.
• Какова закономерность в последовательности случайных чисел, генерируемых функцией random.
• Как влияет инициализация генератора случайных чисел (randomize) на результаты работы программы.

Замечание: Результаты работы функции random зависят от конкретной реализации Pascal и могут отличаться на разных компиляторах.