Написать рекурсивную функцию вычисляющую цепную дробь - VB
Формулировка задачи:
Написать рекурсивную функцию вычисляющую цепную дробь
1/(1+1/(3+1/(5+1/(…+1/(101+1/103)))))
Решение задачи: «Написать рекурсивную функцию вычисляющую цепную дробь»
textual
Листинг программы
If i < 103 Then rOnlyFor103 = 1 / (i + rOnlyFor103(i + 2)) Else rOnlyFor103 = 1 / 103 End If