Примеры разветвляющихся алгоритмов

Пример1. Генерируется случайное число Х в интервале [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

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

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 с результатами решения: а) – зафиксировано значение случайного числа, превышающее допустимое значение; б) – зафиксировано сообщение о том, что случайное число находится в допустимом диапазоне.