Случайные числа в паскале

Если вы знакомы с языком программирования паскаль , то наверняка сталкивались с вопросом о том , как создавать случайные числа.

Даже если вы ещё плохо знакомы со структурой языка , вам будет полезно просмотреть данную статью.

Как создаются случайные числа ? Специально для выполнения данной задачи , в языке pascal существует функция random().

Random() :

Как работает random() ? Эта функция возвращает случайное число от 0 до того числа , которое находится в скобках - 1.

Например нам нужно получить любое число от 0 до 7 , тогда функция random() будет выглядеть так :
Случайные числа от 0 до 7

Проще говоря , функция random() возвращает столько случайных чисел сколько написано в скобках , начиная с 0. То есть , если в скобках написано число 8 , то функция возвращает любое из 8 чисел от 0 до 7.

0 ; 1 ; 2 ; 3 ; 4 ; 5 ; 6 ; 7

Но что если нам нужны числа от -10 до 10 ? Для этого нам понадобится немного изменить данную функцию , а точнее дополнить.

Теперь мы будем заносить значение в переменную , назовем её X. Для того , чтобы занести в переменную X любое число от -10 до +10 понадобится сделать так :

program mypascal;
uses
crt;
var
x:integer;
begin

  randomize;
  x:= random(21)-10;
  writeln(x);

end.

Заметьте , что для использования функции random() нам понадобится подключить дополнительный модуль crt. Модуль crt подключается так : uses crt;

Для получения случайных чисел , также требуется использовать функцию randomize.

А теперь о переменной x. Для того чтобы получить случайное число от -10 до 10 мы записали такую строчку : x:= random(21)-10;.

Чтобы понять как это работает , нужно понять какое минимально число можно получить в random(21). Минимально число 0 , а максимальное 20. Но при любом числе из него будут вычитать 10. Проще говоря , минимальное число будет 0-10 ( -10 ) ,а максимальное 20-10 ( 10 ).
А значит любое число в промежутке от -10 до 10.

Вывод :

Для получения случайного числа , мы используем функцию random.

Для её использования требуется подключать модуль crt;

Random() :

Вывод :

Навигация

Поиск

Популярные

Обсуждаемые

Скачать паскаль

Решение задач

Опрос