Question

Напишите код на Паскале для вывода на экран 15 случайных чисел в диапазоне от –150 до 120.

Answer 1

Ответ:

Код и результат работы на фото.

Answer 2

Для генерации случайных чисел в Паскале можно использовать функцию `Random`. Однако, эта функция генерирует числа в диапазоне от 0 до `MaxInt` (максимальное значение целого числа в Паскале). Поэтому, чтобы получить случайные числа в заданном диапазоне, нужно выполнить некоторые преобразования.

Вот шаги, которые нужно выполнить:

1. Инициализируйте генератор случайных чисел с помощью функции `Randomize`. Это необходимо для получения разных последовательностей случайных чисел при каждом запуске программы.

2. Используйте функцию `Random` для генерации случайного числа.

3. Преобразуйте полученное число в желаемый диапазон, вычитая `MinValue` (минимальное значение в заданном диапазоне) из результата и делив на `(MaxValue - MinValue + 1)`.

4. Повторите шаги 2 и 3 15 раз для получения 15 случайных чисел.

Вот пример кода на Паскале, который выполняет эти шаги:

program RandomNumbers;
var
 i: integer;
 r: real;
begin
 Randomize;
 for i := 1 to 15 do
 begin
   r := Random;
   r := r * (120 - (-150) + 1) + (-150);
   writeln('Случайное число: ', r:0:2);
 end;
end.

В этом коде `Randomize` инициализирует генератор случайных чисел, цикл `for` выполняется 15 раз, и каждый раз генерируется новое случайное число в диапазоне от -150 до 120. Затем полученное число выводится на экран с точностью до двух знаков после запятой.

Обратите внимание, что функция `Random` генерирует вещественные числа, поэтому мы используем оператор `:` для форматирования вывода и ограничиваем количество знаков после запятой двумя.