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

lefok · 25.11.2015, 19:08

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

Vladimir_S · 25.11.2015, 19:44

Цитата:

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

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

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

Код:

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.

lefok · 25.11.2015, 20:28

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.

25.11.2015, 19:08	#1 (permalink)
lefok Новичок Регистрация: 25.11.2015 Сообщений: 2 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Номер элемента последовательности Вычисляет и распечатывает наименьший номер элемента последовательности, заданной рекуррентной формулой, для которого выполняется указанное условие. Решить через оператор цикла repeat. В ответе должно выдавать n=18. Заранее премного благодарен) Миниатюры

25.11.2015, 20:28	#3 (permalink)
lefok Новичок Регистрация: 25.11.2015 Сообщений: 2 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	где в моем коде ошибка? он выдает 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.

Опции темы
Версия для печати Отправить по электронной почте
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070