Stack Overflow Error Опции

[Unconnected]

function y(i:byte):real;
begin
  y:=(y(i-1)+1)/(y(i-1)+2);
end;

var i:byte;
begin
  repeat
    inc(i);
  until (y(i)-y(i-1))<0.00001;
  writeln('Iskomoe chislo - ',i);
  readln;
end.

Этот код компилируется с ошибкой Stack Overflow Error. TP7.
Задание в оригинале:

2...Пусть Y(0)=0; Y(i)=(Y(i-1)+1)/(Y(i-1)+2), i=1,2,3,... Найти первый член Y(n), для которого Y(n)-Y(n-1)<0.00001.

Сообщение отредактировано: Unconnected - 14.01.2009 21:34

[Unconnected]

Где условие выхода из рекурсии? У тебя ж в задании написано, что Y(0) = 0, почему ты это не сказал своей фунции?

Немного тупой вопрос...А как это нужно было сказать? Как я понимаю, условие выхода из рекурсии -

until (y(i)-y(i-1))<0.00001;

, разве не так?