Организация итерационных циклов

[МихХха]

Помогите пожалуйста с задачей!
Используя, оператор цикла, найти сумму элементов.
Вот задача

[Sazary]

Чем помочь?
И, кстати, при чем тут циклы? И о какой сумме идет речь?

[МихХха]

Мне нужна помощ в решении задачи)
Тут надо найти сумму членов этого ряда.
Как я понял это надо делать через рекуррентные соотношения,т.е выражать последующий член ряда через предыдущий член.
Я пытался ее решить, но почемуто она вылетает при запуске?...
Вот код
___________________________________ __________________________
program Project3_2;

{$APPTYPE CONSOLE}

uses
SysUtils;

VAR
N: INTEGER;
AN, SUMMA,x,y: REAL;
CONST
E=0.1E-3;
BEGIN
AN := 1/(exp(1/3*ln(0.7)))-ln(1);
writeln(an); {первый член ряда}
SUMMA := 0; {первоначальное значение суммы}
N := 1; {порядковый номер элемента ряда}
WHILE abs(AN)>E DO

BEGIN

SUMMA := SUMMA+AN; {накопление суммы}
N := N+1; {увеличиваем порядковый номер ряда}

x:=ln(sqr(n)+0.7); {вычисляем следующий член ря-да}
x:=(exp(1/3*x))*sin(n)-ln(n+1)-n;
y:=ln(sqr(n+1)+0.7);
y:=(exp(1/3*y))*sin(n+1)-ln(n+2)-n+1;
AN:=AN*(x/y);
END;

WRITELN (SUMMA, AN);
readln;
END.
___________________________________ ____________________
может я че ни так сделал.........

[Sazary]

У вас программа зацикливается (а потом вылетает с арифметической ошибкой) . Это хорошо видно, если добавить в цикл вывод чего-нибудь.
Вы можете показать полное условие?

[МихХха]

Это и есть все условия.(

[Sazary]

Это и есть все условия.(

Я вижу картинку с выражением. Там одно неизвестное - x.
Нахождение суммы ряда предполагает наличие каких-то границ и дополнительных условий, когда нужно остановиться.
Как вы писали программу, не имея этих данных?

[МихХха]

Тут предполагается что точность вычисления E=0.1E-3;

[Sazary]

Тут предполагается что точность вычисления E=0.1E-3;

Точность чего? Куда ее применить?
У вас есть некоторое выражение, зависимое от x.
Как изменяется x? Чему равен первый x?

[ponchikpk]

Как я понял, нужно суммировать члены ряда пока разница между предыдущим и данным не будет меньше E=0.1E-3... а вот как зависит суммируемое слагаемое от его номера я не понял..

[Sazary]

ponchikpk
Глядя на первый пост, я бы обозначил задание так: "Вычислить значение выражения". Никаких намеков на какие-то циклы. Поэтому и прошу автора выложить полный текст.
МихХха, вы можете выложить фото/скрин задания?