Технический форум - Программирование циклов, управляемых условием. VB 2008 .NET

Технический форум (http://www.tehnari.ru/)

- Basic (http://www.tehnari.ru/f127/)

- - Программирование циклов, управляемых условием. VB 2008 .NET (http://www.tehnari.ru/f127/t45657/)

Alex0161

16.01.2011 12:57

Программирование циклов, управляемых условием. VB 2008 .NET

Вычислить с точностью Е=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=????:tehnari_ru_837:

Alex0161

17.01.2011 19:28

нужна рекуррентная формула под u

Часовой пояс GMT +4, время: 06:45.