End Sub. Dim n As Integer, m As Integer, c As Single

Dim n As Integer, m As Integer, c As Single

End Function

Private Function max(b As Single, c As Single) As Single

End Sub

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

If b > c Then max = b Else max = c

Приклад 2. Обчислити C = , де n>m. Визначення факторіала виконати в процедурі Function.

Private Sub pp2()

n = Val(InputBox("Введіть n"))

m = Val(InputBox("Введіть m"))

c = fact(n) / (fact(m) * fact(n - m))

MsgBox "c=" & c

Дата добавления: 2014-01-07