Найти произведение 12-ти членов ряда , общий член которого an=1/(3n-2)(3n+1) - Free Pascal

Узнай цену своей работы

Формулировка задачи:

Написать код на языке Паскаль Найти произведение 12-ти членов ряда , общий член которого an=1/(3n-2)(3n+1)

Решение задачи: «Найти произведение 12-ти членов ряда , общий член которого an=1/(3n-2)(3n+1)»

textual
Листинг программы
const n=12;
var
  i, d: Integer;
  p: Real;
begin
  p:=1; d:=1;
  for i:=1 to n do begin
    p:=p/d/(d+3); Inc(d,3);
  end;
  Write('P=',p);
end.

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

В данном коде решается задача нахождения произведения 12-ти членов последовательности, общий член которой задан формулой an=1/(3n-2)(3n+1). Список действий:

  1. Задается значение переменной n, которая равна 12.
  2. Создаются три переменные: i, d и p. i - используется как счетчик в цикле. d - используется для хранения значений, которые в итоге должны быть перемножены. p - используется для хранения произведения.
  3. Переменная p инициализируется единицей, а переменная d - единицей.
  4. Запускается цикл, который выполняется 12 раз.
  5. Внутри цикла значение переменной p обновляется путем деления на значение переменной d, которое равно сумме d и 3.
  6. После каждой итерации значение переменной d увеличивается на 3.
  7. После завершения цикла выводится значение переменной p, которое является произведением 12-ти членов последовательности. Вот как это выглядит в виде списка с номерами по порядку не больше 20 элементов:
  8. Задается значение переменной n (12).
  9. Создаются три переменные (i, d, p).
  10. Переменная p инициализируется единицей, а переменная d - единицей.
  11. Запускается цикл, который выполняется 12 раз.
  12. Внутри цикла значение переменной p обновляется путем деления на значение переменной d, которое равно сумме d и 3.
  13. После каждой итерации значение переменной d увеличивается на 3.
  14. После завершения цикла выводится значение переменной p.

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

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