Найти массив сумм S элементов ряда для каждого значения заданной последовательности Х (с использованием оператора for). Каждую сумму искать с точностью до e.
S=x^3/3-x^5/15+...+((-1)^(n+1))*(x^(2n+1))/(4n^2-1)
x=0.1...1.3, hx=0.3, e=10e-3
Вот текст, который я попыталась составить:
PROGRAM Lab_7_2;
USES
Crt;
CONST
m = 5; {Количество Х}
xn = 0.1; {Начальное знеачение Х}
xk = 1.3; {Конечное значение Х}
hx = 0.3; {Шаг по Х}
eps = 1e-3; {Коэффициент точности}
VAR
s : array [1..m] of real; {Массив сумм}
q : real; {Коэффициент рекурентности}
i : integer; {Счетчик элементов ряда}
x : real; {Текущий Х}
k : integer; {Счетчик Х}
BEGIN
ClrScr;
x:=xn; {Начальный Х}
k:=1;
WHILE x<=xk+eps DO
Begin
i:=0;
REPEAT {Цикл поиска k-ой суммы}
q:=exp((2*i+1)*ln(x))/((4*sqr(i))-1);
if odd(i)=false then q:=-q;
s[k]:=s[k]+q;
i:=i+1;
UNTIL abs(q)<eps; {Условие точности}
Writeln('k = ',k,' x = ',x:3:1,' S = ',s[k]:6:4);
k:=k+1;
x:=x+hx; {Переход на следующий Х}
Readln;
End;
END.
Помогите составить правильную программу...