Задача на последовательность в паскале

[maxwel6064]

Добрый день. Нужна помощь с решением задачи на паскале:

Вычислить последовательности an, где n=1,2.. предел с точностью е = 0.00001, где
an= n/корень квадратный из n^2+1+ корень из n^2-1.

искомый предел будет an+1, если |an+1-an|<e

вывести на экран предел и при каком n он был получен.

[SoldierOfFortune]

если я все правильно понял, то так:

program test;
const
	e = 0.00001;
var
	n : integer;
	a, b : real;
	
begin
	cls();
  
	n := 0;
	
	repeat
	begin
		inc(n);
		b := a;
		a := n / sqrt(sqr(n + 1) + sqr(n - 1));
	end
	until abs(a - b) < e;
		
	writeln('Предел: ', a : 8 : 5, ' получен при n = ', n);
end.

[Poma][a]

Наконец-то человек с кол-вом сообщений < 100, показывает код с структурными отступами! Где четко видны инициализация, основной блок, вывод. Где есть "система вложенности". Вообщем +1.

P.S. Сори за оффтоп

[maxwel6064]

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

если я все правильно понял, то так:

program test;
const
	e = 0.00001;
var
	n : integer;
	a, b : real;
	
begin
	cls();
  
	n := 0;
	
	repeat
	begin
		inc(n);
		b := a;
		a := n / sqrt(sqr(n + 1) + sqr(n - 1));
	end
	until abs(a - b) < e;
		
	writeln('Предел: ', a : 8 : 5, ' получен при n = ', n);
end.

Огромное спасибо за решение данной задачи, но нельзя как-нибудь сделать, чтобы программа мне выводила абсолютно все значения, а не только 1?

[Poma][a]

program test;
const
	e = 0.00001;
var
	n : integer;
	a, b : real;
	
begin
	cls();
  
	n := 0;
	
	repeat
	begin
		inc(n);
		b := a;
		a := n / sqrt(sqr(n + 1) + sqr(n - 1));
                      writeLn (a : 8 : 5);
	end
	until abs(a - b) < e;
		
	writeln('Предел: ', a : 8 : 5, ' получен при n = ', n);
end.