Паскаль. Вычислить цепную дробь. Не получается закончить программу. Подскажите в чем проблема

[Temka3791]

2018-03-18.png

uses crt;
var x,s:real;
    n,i:integer;
begin
clrscr;
repeat
writeln('введите кол-во эл-ов цепной дроби >0 n=');
readln(n);
until n>0;
write('x=');

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[Alex11223]

end.

[Temka3791]

Сообщение от Alex11223

end.

Может что-то не добвил???

[Temka3791]

сама дробь не вычисляется

[digitalis]

Вот ведь мерзавка какая - САМА не вычисляется !
А если сама не вычисляется, придется нам ее попробовать вычислить приблизно так (для простоты чтоб не сбиться распилим ее ее части ):

  Readln (K) ;
  s := K + 1/(99+1/(101+1/103)) ;
  s := 1/(1+1/(3+1/(5+1/s)))

;

[Temka3791]

function rec(integer k): double
begin
if (k == 103) then
rec:=1/103;
else then
rec:=rec(k+2)
end

[digitalis]

И что это было?
Я расписал, как вычислить эту смешную цепную дробь без всяких if'ов и не пытаясь отыскать в ней закономерности и рекурентности, которых в ней нет. Надо вычислить дробь - вычислили дробь. Или еще чего ? Если бы не было этих K, 99, 101 - можно было бы попытаться состряпать рекурентную формулу и вычислять в цикле, но чого нэма - того нэма. Задание, видимо, состояло в том, чтобы написать сложное выражение и не запутаться при этом в количестве и месторасположении скобок. Isn't it ?

[Аватар]

Типо так?

function rec(k: Integer): double;
begin
  if k=103 then rec:=1/103 else rec:=1/(k+rec(k+2));
end;
....
x:=rec(1);

[digitalis]

Все понятно - там перед K + должно стоять многоточие, обозначающее "и так далее в том же духе вплоть до К=103 включительно". Я бы это делал без рекурсии (если это не навязано эаданием), а в цикле.

[Аватар]

ТС же рекурсию хотел. И согласен - цикл в общем случае лучше рекурсии