Вычислить цепную дробь по формуле - VB

Узнай цену своей работы

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

Здравствуйте, пожалуйста, помогите составить программы, которые считали бы данные выражения. Соответственно, 1ое просто вывод ответа, а вторая с запросом X не равное 0, заранее спасибо.

Решение задачи: «Вычислить цепную дробь по формуле»

textual
Листинг программы
Function ichpu1#(Optional i& = 1)
If i < 103 Then ichpu1 = 1 / (i + ichpu1(i + 2)) Else ichpu1 = i
End Function
 
Function ichpu2#(x2#, Optional i& = 1)
If i < 256 Then ichpu2 = i / (x2 + ichpu2(x2, i * 2)) Else ichpu2 = i / x2
End Function

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

5   голосов , оценка 4.4 из 5
Похожие ответы