02 семестр / Лабораторные работы / РГР и Лабы разных вариантов / лабы / Zadanie_2

Задание 2

Вариант 6

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

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

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

Вычислить значение функции при заданных значениях по одной из заданных формул.

Дано: a, b, c, d.

Найти: Z, n.

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

начало

Блок-схема алгоритма решения задачи

(1)Z=LOG(a+b/c)-SQR(c*d)

ввод

a, b, c, d

(2)Z=EXP(a)+Sin(a+b/c)*Sin(c^2*d^2)/Cos(a+b/c)

конец

вывод

Z, n

Z=(2)

n=2

n=1

Z=(1)

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

Dim a As Single, b As Single, c As Single, d As Single

Dim Z As Single, n As Integer

Private Sub Command1_Click()

a = Val(InputBox("введи a", "ввод"))

b = Val(InputBox("введи b", " ввод "))

c = Val(InputBox("введи c", " ввод "))

d = Val(InputBox("введи d", " ввод "))

If a + b / c > 0 Then

Z = Log(a + b / c) - Sqr(c * d)

n = 1

Else

Z = Exp(a) + Sin(a + b / c) * Sin(c ^ 2 * d ^ 2) / Cos(a + b / c)

n = 2

End If

MsgBox "Значение функции " & Z, 49, "Задача"

MsgBox "Порядковый номер формулы " & n, 49, "Задача"

End Sub