Найти первый член последовательности, для которого выполняется условие - Pascal ABC
Формулировка задачи:
Дано положительное число E, и последовательность а1, а2, а3 ..., образованная по следующему закону:
Найти первый член последовательности, для которого выполняется условие: abs(an-an-1)<E. Вывести на экран an и n.
закон: (1-1/2),(1-1/3)...(1-/(1+i))
Решение задачи: «Найти первый член последовательности, для которого выполняется условие»
textual
Листинг программы
var
a, b, E:real;
n:integer;
begin
writeln('Введите Е');
readln(E);
n := 3;
b := 1/2;
a := 2/3;
while abs(a - b) >= E do
begin
b := a;
inc(n);
a := 1 - 1/n;
end;
writeln('n = ', n - 1, 'an = ', a);
end.
Объяснение кода листинга программы
- В начале объявляются переменные: a, b, E и n, которые будут использоваться в коде.
- Затем происходит чтение значения переменной E с помощью функции readln.
- Переменная n инициализируется значением 3.
- Далее присваиваются значения переменным b и a: b = 1/2 и a = 2/3.
- Затем начинается цикл while, который будет выполняться до тех пор, пока абсолютное значение разности переменных a и b не превысит значение переменной E.
- Внутри цикла переменная b присваивается значению переменной a, а переменная n увеличивается на 1.
- Значение переменной a обновляется: a = 1 - 1/n.
- После выхода из цикла переменные a и b будут содержать значения, удовлетворяющие условию.
- Выводится значение переменной n и значение переменной a.