Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | ||
|
Dim y As Single, a As Single, x As Single
a = Val(InputBox("Введіть а"))
x = Val(InputBox("Введіть x"))
y = (max(3.5, x + a) + max(x, a)) / max(x ^ 2, 120)
MsgBox "y=" & y
End Sub
Private Function max(b As Single, c As Single) As Single
If b > c Then max = b Else max = c
End Function
Приклад 2. Обчислити C = , де n>m. Визначення факторіала виконати в процедурі Function.
Private Sub pp2()
Dim n As Integer, m As Integer, c As Single
n = Val(InputBox("Введіть n"))
m = Val(InputBox("Введіть m"))
c = fact(n) / (fact(m) * fact(n - m))
MsgBox "c=" & c
Дата публикования: 2014-11-04; Прочитано: 265 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!