Работа с числовыми последовательностями в Pacsal

Posted by obzor under Delphi

Найти наименьший номер элемента последовательности, для которого выполняется условие: |a[n]-a[n-1]|<e. Вывести на экран этот номер и все элементы a, где i=1,2,…,n.
a[n]=1/((3n-2)(3n+1))

min@y™

procedure fuck_it(const e: extended);
var
  idx: LongWord;
  last: extended;
begin
  a:= 0.25; { a[1] }
  idx:= 2;

  repeat
    last:= a;
    a:= 1 / (9 * idx * idx - 3 * idx - 2);
    WriteLn(' i = ', i: 5, ' | a[ i] = ', a: 3: 6);
    inc(idx);
  until abs(a - last) < e;
end;

тема на форуме

Похожие статьи

• Способы передачи параметров в подпрограммы в Delphi
• Описать функцию Pi(eps), вычисляющую значение числа Пи по формуле
• Вычислить методом касательных (Pascal)
• Ввести номер одного из друзей и вывести его имя (задача на записи)
• Найти сумму элементов массива, стоящих после последнего нулевого элемента
• Вычисление формулы с произведениями
• Можно ли среди чисел массива найти две разных пары чисел, суммы которых одинаковы?
• Определить, является ли массив «магическим квадратом»
• Создать таблицу умножения
• Обработка строк (Pascal)