Найти сумму ряда с точностью до 0.0001 и перевод формулы n-ого члена

[ivil19]

Всем доброго времени суток!!

Прошу помочь с решением задачи по теме "Циклические алгоритмы". Проблема даже скорее заключается не в сути решения, а в правильном переводе алгебраической формулы в Pascal.

Текст задачи: Найти сумму ряда с точностью e=10^(-4) [десять в минус 4 степени], общий член которого an=1/((3n-2)(3n+1)).

Есть решение подобной задачи: найти сумму ряда с точностью e=10^(-4), общий член которого an=n!/n^n.

Исходник решения:

********************
program lab6;
var
sum,an:real;
n:integer;
begin
clrscr; {очистка экрана}
sum:=0; {сначала обнулим сумму}
an:=1; {очередной (первый) элемент равен единице}
n:=1; {номер элемента}
while an>0.0001 do {запускаем цикл с предусловием}
begin
sum:=sum+an; {считаем сумму}
n:=n+1; {изменяем номер элемента}
an:=an*(exp(n*(ln(n/(n+1))))); {изменяем элемент}
end;
writeln('Сумма ',n,' элементов равна =',sum:7:6);
end.
********************

Проблема в следующем: что мне написать вместо выделенной жирным шифтом строки? И что, может быть, необходимо включить в код помимо этого?

[Базиля]

Ну во первых, приведенная задача решена не правильно, ибо там факториал числа n, не вижу чтобы он где-то вычислялся.
Вместо черного подставляй:

an=an*(1/((3n-2)*(3n+1)))

Вот только что-то мне кажется задачка то по другому решается... ну да ладно...

[ivil19]

тут перед кодом вступление:
Решение.
При определении суммы членов ряда следует использовать рекуррентную формулу, в нашем случае рекуррентная формула имеет вид: an+1=an*(n/(n+1))n При составлении программы считать, что точность достигнута, если аn<10^-4

[ivil19]

Сообщение от Базиля

Ну во первых, приведенная задача решена не правильно, ибо там факториал числа n, не вижу чтобы он где-то вычислялся.
Вместо черного подставляй:

an=an*(1/((3n-2)*(3n+1)))

Вот только что-то мне кажется задачка то по другому решается... ну да ладно...

Это точно? Просто всегда был с паскалем в товарищах, а этот пример решения меня поставил в ступор

[Базиля]

то точно? Просто всегда был с паскалем в товарищах, а этот пример решения меня поставил в ступор

Что именно поставило в ступор?
Я щас тут подумал, наверное будет сложение, а не умножение т.е:

an:=an+(1/((3n-2)*(3n+1)))

[Google2010]

наверное будет сложение, а не умножение т.е

я бы сказал не будет ни того не другого будет просто

an:=(1/((3n-2)*(3n+1)))