Рекурсия: вычисление цепной дроби

@mikheeva_ksu · Регистрация: 16.12.2012

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

Помогите плиз написать программу, используя рекурсию:

$https://www.cyberforum.ru/cgi-bin/latex.cgi?\huge y=\frac{x}{x^2+\frac{2}{x^2+\frac{4}{x^2+\frac{8}{\\ \, \\ \vdots \\ \,x^2+\frac{256}{x^2}}}}}$

@Jener · 20.05.2013, 04:40

Pascal

program recur1;
 uses
  crt;
var
  x : real;
function f(x : real; a : word) : real;
begin
  if a<>256 then f := sqr(x) + a/f(x,2*a)
  else f := 1 + 256/sqr(x);
end;  
begin
  clrscr;
  repeat
    write('Введите х<>0, x = '); readln(x);
  until x<>0;
  writeln('y = ',x/f(x,2):0:5);
  readln;
end.

@mikheeva_ksu 0 / 0 / 0 Регистрация: 16.12.2012 Сообщений: 8
		1
	Рекурсия: вычисление цепной дроби 20.05.2013, 00:30. Показов 2598. Ответов 1 Метки нет (Все метки) Помогите плиз написать программу, используя рекурсию: $https://www.cyberforum.ru/cgi-bin/latex.cgi?\huge y=\frac{x}{x^2+\frac{2}{x^2+\frac{4}{x^2+\frac{8}{\\ \, \\ \vdots \\ \,x^2+\frac{256}{x^2}}}}}$ 0

	20.05.2013, 04:40

Опции темы

Рекурсия: вычисление цепной дроби

Решение