Технический форум - Номер элемента последовательности

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

Номер элемента последовательности

Вычисляет и распечатывает наименьший номер элемента последовательности, заданной рекуррентной формулой, для которого выполняется указанное условие. Решить через оператор цикла repeat. В ответе должно выдавать n=18. Заранее премного благодарен)

Цитата:

Сообщение от lefok (Сообщение 1181766)

Да ну... скучища школьная!

Код:

Var

 A0,A1,A2,D:Real;

 n:Byte;



Begin

 A0:=0;

 A1:=1;

 n:=1;

 Repeat

  A2:=Exp(-(A0+A1));

  D:=Abs(A1-A0);

  A0:=A1;

  A1:=A2;

  Inc(n);

 Until D<1E-4;

 Writeln('n = ',(n-1));

 Readln

End.

где в моем коде ошибка? он выдает n=17

var
A0,A1,A2:real;
n:integer;
begin
A1:=1;
A2:=Power(E,(-1));
n:=1;
repeat
n:=n+1;
A0:=A1;
A1:=A2;
A2:=Power(E,(-(A1+A0)));
until abs(A2-A1)<0.0001;
writeln(' Nmin= ',n);
end.