Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
Асус
0 / 0 / 0
Регистрация: 18.10.2015
Сообщений: 2
1

Найти наименьший номер n, для которого выполняется условие |an – an-1|<0,1 , если последовательность an имеет вид an+1= an+ 2/an.a1=1

23.01.2013, 07:52. Просмотров 1054. Ответов 1
Метки нет (Все метки)

помогите пожайлуста
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.01.2013, 07:52
Ответы с готовыми решениями:

Алгоритм Нарайаны - Найти такой наибольший j для которого выполняется условие
Алгоритм Нарайаны Шаг 1. Найти такой наибольший j для которого aj&lt;=aj+1; Шаг...

Найти наименьший номер последовательности, для которого выполняется условие
Найти наименьший номер последовательности, для которого выполняется условие : ...

Найти наименьший номер последовательности, для которого выполняется условие
Найти наименьший номер последовательности, для которого выполняется условие М....

Найти наименьший номер последовательности, для которого выполняется условие
Найти наименьший номер последовательности, для которого выполняется условие an...

Найти наименьший номер последовательности, для которого выполняется условие
Найти наименьший номер последовательности, для выполняется условие |а-a|&lt;E....

1
Одиночка
3933 / 1858 / 337
Регистрация: 16.03.2012
Сообщений: 3,869
23.01.2013, 15:11 2
Лучший ответ Сообщение было отмечено как решение

Решение

Поскольку по вашей записи толком не поймёшь, предполагаю, что формулы такие:
http://www.cyberforum.ru/cgi-bin/latex.cgi?{a}_{n+1}=\frac{{a}_{n}+2}{{a}_{n}}, http://www.cyberforum.ru/cgi-bin/latex.cgi?{a}_{1}=1

Условие: http://www.cyberforum.ru/cgi-bin/latex.cgi?\left|{a}_{n}-{a}_{n-1} \right|<0.1

И тогда поиск n будет таким:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Var
  i : Integer;
  an,an1 : Real;
begin
  an:=1;
  For i:=2 To 1000 Do
  Begin
    an1:=(an+2)/an;
    If Abs(an1-an)<0.1 Then
    Begin
      WriteLn(i:3,an:10:5,an1:10:5,(an1-an):10:5);
      Break;
    End;
    an:=an1;
  End;
  ReadLn;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.01.2013, 15:11

Найти наименьший номер члена последовательности, для которого выполняется условие
Найти наименьший номер члена последовательности, для которого выполняется...

Найти наименьший номер члена последовательности, для которого выполняется условие
Найти наименьший номер члена последовательности, для которого выполняется...

Найти наименьший номер элемента последовательности, для которого выполняется условие М
Найти наименьший номер элемента последовательности, для которого выполняется...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru