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

@ichpu · Регистрация: 04.05.2014

Author24 — интернет-сервис помощи студентам

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

@Казанский · 04.05.2014, 13:39

Visual Basic

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

Первую функцию надо просто вызвать, второй надо передать параметр х² и умножить результат на х.
Пример в окне Immediate для х=3

Код

?ichpu1
 0,761594155955765 
?ichpu2(9)*3
 0,32564270751148

@ichpu · 04.05.2014, 14:29 **[ТС]**

Спасибо. Если кому не сложно, составьте цельную программу, заранее благодарен.

@ichpu 0 / 0 / 0 Регистрация: 04.05.2014 Сообщений: 3
		1
	Вычислить цепную дробь по формуле 04.05.2014, 10:02. Показов 2072. Ответов 2 Метки нет (Все метки) Здравствуйте, пожалуйста, помогите составить программы, которые считали бы данные выражения. Соответственно, 1ое просто вывод ответа, а вторая с запросом X не равное 0, заранее спасибо. Миниатюры 0

@ichpu 0 / 0 / 0 Регистрация: 04.05.2014 Сообщений: 3
	04.05.2014, 14:29 [ТС]	3
	Спасибо. Если кому не сложно, составьте цельную программу, заранее благодарен. 0

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

Решение