Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
alexblack37
0 / 0 / 0
Регистрация: 16.12.2015
Сообщений: 7
#1

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

24.10.2017, 21:02. Просмотров 151. Ответов 2
Метки нет (Все метки)

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

http://www.cyberforum.ru/cgi-bin/latex.cgi?<br />
a_n=2+\frac{1}{a_{n-1}},\ \ a_1=2<br />
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.10.2017, 21:02
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Найти наименьший номер члена последовательности, для которого выполняется заданное условие (Turbo Pascal):

Найти наименьший номер члена последовательности, для которого выполняется условие - Turbo Pascal
ДАНЫ числовой ряд и некоторое число g . Найти наименьший номер члена последовательности, для которого выполняется условие |An-An-1|&lt;g....

Найти наименьший номер последовательности, для которого выполняется условие - Turbo Pascal
Найти наименьший номер последовательности, для которого выполняется условие : a=2 , b=(2+a*a)/(2*a) |b-a|&lt;e . e-эпсил ...

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

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

Найти наименьший номер последовательности, заданной рекуррентной формулой, для которого выполняется условие - Turbo Pascal
Найти наименьший номер последовательности, заданной рекуррентной формулой, для которого выполняется условие |an - an-1l &lt; e. Здесь e -...

Найти для указанных последовательностей наименьший номер, для которого выполняется условие - Turbo Pascal
Найти для указанных последовательностей наименьший номер, для которого выполняется условие (An-An-1)&lt;E , и вывести на экран этот номер и...

2
Cyborg Drone
Модератор
5491 / 3100 / 1287
Регистрация: 17.08.2012
Сообщений: 10,020
25.10.2017, 01:16 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var i: integer;
    ak, ai, e: real;
begin
  repeat
    write('eps > 0;  eps = ');
    readln(e)
  until e > 0;
  ai := 2;
  i := 1;
  writeln('a', i, ' = ', ai);
  repeat
    inc(i);
    ak := ai;
    ai := 2 + 1 / ak;
    writeln('a', i, ' = ', ai:0:12)
  until abs(ai - ak) < e;
  writeln('n = ', i);
  readln
end.
0
alexblack37
0 / 0 / 0
Регистрация: 16.12.2015
Сообщений: 7
25.10.2017, 01:20  [ТС] #3
спасибо
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.10.2017, 01:20
Привет! Вот еще темы с ответами:

Найти первый элемент последовательности, для которого выполняется условие - Turbo Pascal
помогите с лабораторной работой,задание во вложении. буду очень благодарен и отблагодарю спасибками.

Найти первый член последовательности, для которого выполняется условие - Turbo Pascal
Дано положительное число E. Последовательность а1,а2,а3 (1, 2, 3 - индексы)образована по следующему закону: аi (i - индекс)...

Найти первый член последовательности, для которого выполняется условие - Turbo Pascal
Помогите решить задачу Дана последовательность An=(1-(1/2))*(1-(1/3))*(1-(1/(n+1))) и eps&gt;0 . Найти первый член последовательности An,...

Найти первый член последовательности, для которого выполняется условие - Turbo Pascal
написать программу с условными операторами 11. Даны действительные числа x, ε (ε&gt;0). Последовательность a1, a2, … образована по...


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

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

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