Pascal [Задачи]

[Konteeks]

Привет всем Нужно решить одну задачу:

Найти член ряд a a[n]=2+ 1/a[n-1], a[1]=2 удовлетворяет условию |a[n]-a[n-1]| <eps (eps=1/1000)

[Stilet]

var an,a:double;
begin
 a=2;
 repeat
  an=a; write(an:5:2);
  a=2+1/an;
 until abs(a-an)<(0.0001);
 writeln('Искомое: ',a:5:2);
end.

Идея ясна?

[Konteeks]

Не совсем.

Как сделать чтобы вводить значение?

[Stilet]

Как сделать чтобы вводить значение?

Используй Readln(Имя переменки куда вводится значение)

[Konteeks]

Выдает постоянно какую либо ошибку...
В готовом в виде может кто выложить?

[Вадим Мошев]

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

Выдает постоянно какую либо ошибку...

Ну, тогда попробуйте какое-либо решение...
Показывайте, что у вас там за ошибка