Вычислить с точностью Е=0.5 значение функции
y= √(3+√(6+√(9+⋯)) )
Програмный код
Код:
Public Sub rr(ByRef s As Single)
Dim u, p As Double
Dim i As Integer = 1
Dim n As Integer = 0
ek = CSng(InputBox("Введите точность е"))
p = 1
Do While Math.Abs(p - u) > e
p = u
u = Pow(3 * i, (1 / (2 * i)))
sk += CSng(u)
i += 1
Loop
End Sub
правильна формула под u=????
