Главная / Разработка алгоритмов / Алгоритм ограничения случайных чисел

Алгоритм ограничения случайных чисел

---

Задание. Разработать программу для генерации случайного числа Х в интервале [0÷100]. Необходимо фиксировать значение этого числа, если оно превышает допустимое значение (Хдоп=80). В противном случае необходимо формировать сообщение "В норме".

Для решения задачи будем использовать разветвляющийся алгоритм с полной альтернативой (рис.1).

Рисунок 1 – Блок-схема алгоритма

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

Private Sub CommandButton1_Click()

Range("b4").Value = "Xmin"

Range("b5").Value = "Xmax"

Range("b6").Value = "Xдоп"

Range("b8").Value = "Значение числа Х"

Range("b10").Value = "Результат"

End Sub

Вторая процедура предназначена для генерации случайного числа, сравнения его с допустимым значение, формирования и представления необходимых сообщений на рабочем листе табличного процессора Excel.

Private Sub CommandButton2_Click()

Xmin = Range("c4").Value

Xmax = Range("c5").Value

Xдоп = Range("c6").Value

Randomize

p = Rnd

X = Xmin + (Xmax - Xmin) * p

Range("c8").Value = X

If X > Xдоп Then

Range("c10").Value = X

Else

Range("c10").Value = "В норме"

End If

End Sub

Рисунок 2 – Рабочий лист Excel с исходными данными и результатами функционирования алгоритма: зафиксировано значение случайного числа, превышающее допустимое значение.

Рисунок 3 – Рабочий лист Excel с исходными данными и результатами функционирования алгоритма: зафиксировано сообщение о том, что случайное число находится в допустимом диапазоне.

---