Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.86/7: Рейтинг темы: голосов - 7, средняя оценка - 4.86
0 / 0 / 0
Регистрация: 14.11.2019
Сообщений: 77

Вычислить и распечатать наименьший номер элемента последовательности

17.12.2019, 11:58. Показов 1471. Ответов 3
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Вычислить и распечатать наименьший номер элемента последовательности, заданной рекуррентной формулой при выполнении указанного условия.

An+1=e-nAn+enAn-1, A0=A1=1, An>104, n=7

Pascal
1
2
3
4
5
6
7
8
9
10
var
  n: integer;
  a, an, a0: real;
 
begin
  a0 := an;
  writeln('A[ 0] = ', ak:0:12);
  an := 1;
  writeln('A[ 1] = ', an:0:12);
  n := 2;
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
17.12.2019, 11:58
Ответы с готовыми решениями:

Найти наименьший номер элемента последовательности
Найти наименьший номер элемента последовательности, для которого выполняется условие |an-an-1|<e. Вывести на экран этот номер и все...

Найти наименьший номер элемента последовательности, для которого выполняется условие
Здравствуйте. Читаю самоучитель, в процессе появились задачи, которые я так и не смог написать. Прошу помочь с решением. Найти...

Найти наименьший номер элемента последовательности, для которого выполняется условие
Найти наименьший номер элемента последовательности, для которого выполняется условие \left|{a}_{n} - {a}_{n-1}\right|<\varepsilon. ...

3
Модератор
Эксперт Pascal/DelphiЭксперт NIX
 Аватар для bormant
7816 / 4635 / 2837
Регистрация: 22.11.2013
Сообщений: 13,159
Записей в блоге: 1
17.12.2019, 13:55
Лучший ответ Сообщение было отмечено QwertyASD13 как решение

Решение

Pascal
1
2
3
4
  p:=1; q:=1; n:=2;
  repeat a:=Exp(-n)*p+Exp(n)*q; Inc(n); q:=p; p:=a;
  until a>1e4;
  WriteLn(n);
1
0 / 0 / 0
Регистрация: 14.11.2019
Сообщений: 77
20.12.2019, 17:06  [ТС]
а как математически проверить правильность?
0
Модератор
10445 / 5737 / 3406
Регистрация: 17.08.2012
Сообщений: 17,455
26.12.2019, 13:16
Поскольку элементы этой последовательности могут быть вычислены только рекуррентно, то проверки, принципиально отличающейся от приведённой bormantом программы, не существует. Если желаете, можете для проверки выполнить действия, указанные в программе, с помощью калькулятора. Можно, кстати, и без калькулятора, поскольку 2.718281828459045... нужно возводить только в целую степень.
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
26.12.2019, 13:16
Помогаю со студенческими работами здесь

Найти наименьший номер элемента последовательности, для которого выполняется заданное условие
С коментариями в коде желательно. Найти наименьший номер элемента последовательности, для которого выполняется условие |an-an-1|<Е....

Найти наименьший номер элемента последовательности
Условие задачи в файле

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

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

Найти наименьший номер элемента последовательности
Дано начальное значение а0=x и рекуррентная формула ai=x/(2*a^2(i-1)) . Найти наименьший номер элемента последовательности, для которого...


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

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
Модель здравоСохранения: работники работают быстрее после её введения.
anaschu 23.03.2026
geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .
1С: Контроль уникальности заводского номера
Maks 23.03.2026
Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью. Данные берутся из регистра сведений, по которому настроено. . .
Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения
anaschu 22.03.2026
e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git
1С: Программный отбор элементов справочника по группе
Maks 22.03.2026
Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .
Как я обхитрил таблицу Word
Alexander-7 21.03.2026
Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .
Krabik - рыболовный бот для WoW 3.3.5a
AmbA 21.03.2026
без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .
1С: Программный отбор элементов справочника по значению перечисления
Maks 21.03.2026
Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит значение перечислений. / / Событие "НачалоВыбора" реквизита на форме. . .
Переходник USB-CAN-GPIO
Eddy_Em 20.03.2026
Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru