Найти в Дзене

Операторы random и randomize на Pascal

Оглавление
Пример рандома
Пример рандома

Добрый день, товарищи! Настал тот момент, когда мы наконец можем написать свою программу - рандомайзер, выполняющую роль, например, сайта Random.org, функцию подкидывания монетки и всего прочего, связанного со случайным выбором.

Если вы вдруг не видели предыдущие статьи, то советую посмотреть их для лучшего понимания материала.

Начнем.

1. Вводим переменные

На этот раз понадобятся сразу 5
На этот раз понадобятся сразу 5

Нам понадобится 5 переменных: Минимальное число, максимальное число, переменная - счетчик цикла, количество требующихся нам чисел и сама переменная для этих чисел.

Сразу применим процедуру randomize для того, чтобы рандомные значения не повторялись.

2. Создаем переменные max, min и klv

-3

Минимальное число отвечает за стартовую точку диапазона наших случайных значений, максимальное, соответственно - за конечную.

Количество необходимых нам чисел говорит само за себя. Какому-то пользователю нужно будет лишь одно рандомное число, а иному - набор из десяти рандомных чисел.

3. Пишем цикл For

Так выглядит наша конструкция цикла
Так выглядит наша конструкция цикла

Смотрим, как это работает. klv - наше значение, которое определяет количество необходимых нам чисел. Если вы задали 1 - будет один проход цикла, ну а если 0 - не будет у вас рандомных чисел. Ну и так далее.

Поэтому, в проходе цикла переменной Num присваивается рандомное значение в диапазоне от min до max. И сразу же выводится. Предлагаю посмотреть работу программы на примере:

Это галерея, поэтому промотайте ее до конца ->

4. Код программы

Наш код
Наш код

Вот так выглядит весь код программы. и занимает всего 15 строк. Как видите ничего сложного в генераторе рандомных чисел нет. На этом я хочу закончить и попрощаться. Спасибо что прочитали эту публикацию.

-7

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

По возможности я попросил бы подписаться. Сейчас это критически важно для развития канала. Так то!

Доброго вам всем здоровьица в эти трудные времена!

Наука
7 млн интересуются