02 семестр / Лабораторные работы / РГР и Лабы разных вариантов / РГР все 2 вариант / РГР№2 / РГР№2word

РАСЧЕТНО-ГРАФИЧЕСКАЯ РАБОТА №2

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

1.Постановка задачи.

Составить алгоритм и программу для вычисления значения функции Z по одной из заданных формул при заданных значениях a, b, c, d.

Исходные данные ввести через окно ввода InputBox. Вычислить значения функции Z, а также порядковый номер формулы, при котором вычисляется значение Z через окно вывода MsgBox.

2.Математическая модель.

z = Exp(a * Sqr(b)) + a * b * (a ^ (1 / 3) / Cos(c))

z = a * b / 2 * Log(Abs(d - Cos(c)))

z = a * b * c * d * Cos(c)

z = a * b / d * Cos(c)

3.Создание формы.

4.Блок-схема.

5.Прогграмный код.

Private Sub Command1_Click()

a = Val(InputBox("a=", "Ввод данных"))

b = Val(InputBox("b=", "Ввод данных"))

c = Val(InputBox("c=", "Ввод данных"))

d = Val(InputBox("d=", "Ввод данных"))

End Sub

Private Sub Command2_Click()

If a = b And d = c Then

f = 1

z = Exp(a * Sqr(b)) + a * b * (a ^ (1 / 3) / Cos(c))

End If

If a = b And d <> c Then

f = 2

z = a * b / 2 * Log(Abs(d - Cos(c)))

End If

If a <> b And d <> c Then

f = 3

z = a * b * c * d * Cos(c)

End If

If a <> b And d = c Then

f = 4

z = a * b / d * Cos(c)

End If

MsgBox "Расчет по формуле " + Str(f), vbOKOnly, "Результат"

MsgBox "Z= " + Str(z), vbOKOnly, "Результат"

End Sub

Private Sub Command3_Click()

End

End Sub