Вычислить выражение при заданных параметрах - VB

Формулировка задачи:

при n = 45 x = 2,4 помогите пожалуйста составить текст программы, и объясните что значит знак Заранее спасибо.

Код к задаче: «Вычислить выражение при заданных параметрах - VB»

textual
Private Sub Command1_Click()
    Dim x As Single, n As Integer, a As Integer
    a = 3: n = 45: x = 2.4
    MsgBox Y(a, n, x), vbInformation, "Y = "
End Sub
 
Function Y(a As Integer, n As Integer, x As Single) As Double
  Dim p As Double, i As Integer
    p = 1
    For i = a To n
        p = p * (1 + (Log(2 + Cos(0.05 * i))) / i)
    Next
    Y = 4 * x + p
End Function

13   голосов, оценка 4.231 из 5


СОХРАНИТЬ ССЫЛКУ