Лабораторная работа. Программирование алгоритмов линейной и разветвляющейся структуры

Линейная программа

Пример

Вычислить значение функции для любых a и x.

Текст программы:

Sub линейная_программа1()

Dim a As Double, x As Double

a = Val(InputBox("Введите а")) 'ввод значения переменной a

x = Val(InputBox("Введите x")) 'ввод значения переменной x

b = 1 / (x) ^ (1 / 2) 'вычисляем значение b

c = Sin(a ^ 2 + b ^ 2) 'вычисляем значение C

MsgBox ("Ответ=" + Str(c))

End Sub

Программа разветвляющейся структуры

Использование процедуры If…Then

Пример

Вычислить значение функции в зависимости от значения аргумента.

Sub Макрос_Если()

Dim x, y As Double

x = Val(InputBox("Введите x")) 'ввод значения переменной x

If x > 0 Then y = Sin(x) Else y = 2 * x ' вычисление у в зависимости от х

MsgBox ("Значение y=" + Str(y)) ' вывод значения у на экран

End Sub

Использование процедуры Select Case

Пример

По введенному числу определить день недели. Текст программы:

Sub Days()

Dim x As Single

x = Val(InputBox("Введите номер дня недели"))

Select Case x

Case 1

MsgBox ("Понедельник")

Case 2

MsgBox ("Вторник")

Case 3

MsgBox ("Среда")

Case 4

MsgBox ("Четверг")

Case 5

MsgBox ("Пятница")

Case 6

MsgBox ("Суббота")

Case 7

MsgBox ("Воскресенье")

Case Else

MsgBox ("Такого дня не существует")

End Select

End Sub

Проверьте работу программы. Добавьте соответствующие комментарии.