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

@workautik · Регистрация: 22.01.2013

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

Для данного вещественного X и натурального N вычислить цепную дробь:

x/(1+x/2(+x/(3+x/(.../(N+x))...);

@Puporev · 29.01.2013, 10:27

Непонятно какой последний член, с чего начинать?

Добавлено через 1 минуту
n-1+x/(n+1)?

Добавлено через 14 минут
Вроде так

Pascal

uses crt;
var x,s:real;
    n,i:integer;
begin
clrscr;
write('x=');
readln(x);
repeat
write('n>0 n=');
readln(n);
until n>0;
s:=n+x;
for i:=n-1 downto 0 do
s:=i+x/s;
write('s=',s:0:4);
readln
end.

@workautik · 29.01.2013, 11:58 **[ТС]**

Спасибо, но я забыл сказать, нужно через рекурентность

@Puporev · 29.01.2013, 12:33

Вроде так

Pascal

Uses crt;
Function drb(x:real;n,k:integer):real;
begin
  if k=n then drb:=x/(n+x)
  else drb:=x/(k+drb(x,n,k+1));
end;
Var x:real;
   n:integer;
begin
clrscr;
write('x=');
readln(x);
repeat
write('n>0 n=');
readln(n);
until n>0;
writeln(drb(x,n,1):0:4);
readln
end.

@workautik 25 / 24 / 15 Регистрация: 22.01.2013 Сообщений: 93 Записей в блоге: 1
		1
	Вычислить цепную дробь 29.01.2013, 09:16. Показов 2455. Ответов 3 Метки нет (Все метки) Для данного вещественного X и натурального N вычислить цепную дробь: x/(1+x/2(+x/(3+x/(.../(N+x))...); 0

@workautik 25 / 24 / 15 Регистрация: 22.01.2013 Сообщений: 93 Записей в блоге: 1
	29.01.2013, 11:58 [ТС]	3
	Спасибо, но я забыл сказать, нужно через рекурентность 0

	29.01.2013, 12:33