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

Alex0161 · 16.01.2011, 12:57

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

Alex0161 · 17.01.2011, 19:28

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

16.01.2011, 12:57	#1 (permalink)
Alex0161 Member Регистрация: 07.11.2010 Сообщений: 12 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Программирование циклов, управляемых условием. 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=????

Опции темы
Версия для печати Отправить по электронной почте
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

16.01.2011, 12:57
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Люди посещающие форум уже создавали что то подобное Программирование Цикл с условием, Паскаль Цикл с условием, Паскаль

17.01.2011, 19:28	#2 (permalink)
Alex0161 Member Регистрация: 07.11.2010 Сообщений: 12 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	нужна рекуррентная формула под u

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070