Вычисление значения цепной дроби - VB

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

Здравствуйте господа программисты. Возникла проблема с решением задачи в Visual Basic, а курсовую необходимо сдавать через неделю. В общем проблема заключается в решении цепной дроби, вот собственно она: Если кто сталкивался с такими задачами или может хоть чем то помочь прошу не молчите...

Решение задачи: «Вычисление значения цепной дроби»

textual
                            Листинг программы 
                        

                            Sub FrazioneContinuaRecurs()
   MsgBox f(1)
End Sub
 
Function f(n As Integer) As Double
   Const nMax As Integer = 111
   
   If n = nMax Then f = 1 / nMax: Exit Function
   f = 1 / (n + f(n + 2))
End Function
                        

Оцени полезность:

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

Похожие ответы