Разветвляющийся алгоритм

Задание 1. Разработать программу для вычисления значения составной функции и вывода его на экран. Аргументы вводить с клавиатуры:

Выполнение. Значение функции следует рассчитывать по одной из трех формул в зависимости от того, в какой интервал попадает значение аргумента – x. Если x < -2, то используется формула y = x + 2. Если -2 < x < 0, то y = 0. В остальных случаях y = 2^x.

Программа

1    Sub Raszvetv_1() 'Начало подпрограммы (макроса)

2    x = Val(InputBox("Введите x:")) 'Ввод параметра x с клавиатуры

3     

4    If x < -2 Then 'Проверка, является ли x < -2

5    y = x + 2 'если является, то используется формула 1

6    Else 'иначе

7    If x < 0 Then 'проверка, является ли x < 0, с учетом того, что он уже не меньше -2

8    y = 0 'если является, то используется формула 2

9    Else 'иначе оба неравенства не выполняются, а значит x >= 0

10  y = 2 ^ x 'используется формула 3

11  End If 'конец действий, относящихся к else-части второй проверки, т.е. if x < 0

12  End If 'конец действий, относящихся к else-части первой проверки, т.е. if x < -2

13   

14  Debug.Print "Результат ="; y 'Вывод результата на экран

15  End Sub 'Окончание подпрограммы

Словесное описание программы

После ввода неизвестного параметра x (с. 2) осуществляется проверка, является ли x < -2 (с. 4). Если является, то следует рассчитывать y по первой формуле (с. 5). Иначе возможны 2 варианта: либо формула 2, либо формула 3. Проверяем, является ли x < 0 (с. 7). Если является, то используем формулу 2 (с. 8), иначе формулу 3 (с. 10). В с. 14 выводим результат вычислений, по какой бы формуле он ни был посчитан.

Блок-схема

Скачано с www.znanio.ru