Найти первый член последовательности, для которого выполняется условие - 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.

Объяснение кода листинга программы

  1. В начале объявляются переменные: a, b, E и n, которые будут использоваться в коде.
  2. Затем происходит чтение значения переменной E с помощью функции readln.
  3. Переменная n инициализируется значением 3.
  4. Далее присваиваются значения переменным b и a: b = 1/2 и a = 2/3.
  5. Затем начинается цикл while, который будет выполняться до тех пор, пока абсолютное значение разности переменных a и b не превысит значение переменной E.
  6. Внутри цикла переменная b присваивается значению переменной a, а переменная n увеличивается на 1.
  7. Значение переменной a обновляется: a = 1 - 1/n.
  8. После выхода из цикла переменные a и b будут содержать значения, удовлетворяющие условию.
  9. Выводится значение переменной n и значение переменной a.

Оцени полезность:

13   голосов , оценка 3.692 из 5
Похожие ответы