Для заданных значений аргумента Х вычислить значения суммы S и функцию Z

[Infinity11]

Много всего перечитала, пробывала составлять программы,нет такого результата какой нужен.
Помогите пожалуйста!!!

Для заданных значений аргумента Х вычислить значеня суммы S и функцию Z
S=⅀(-1)^n*((x^2n+1)/(2n+1))
P.S. над знаком суммы бесконечность, под знаком n=1

Z=arctg x

0,2<=x<=0,6
дельта х=0,05
E=10^(-15) (погрешность)

[Stilet]

пробывала составлять программы

Код в студию )

[Infinity11]

Сообщение от Stilet

Код в студию )

program lab2;
var
dx,x,s,so,z:real;
n:longint;
const
e=0.00001;
begin
dx:=0.05;
x:=0.2;
while x<=0.6 do
begin
z:=arctan(x);
write('x=',x:10:15,z:10:15);
s:=0;
n:=1;
repeat
so:=(-1)(exp(ln(x)*(2*n+1)))/(2*n+1);
s:=s+so;
n:=n+1
until abs(so)<e;
writeln ('s=');
x:=x+dx;
end;
readln;
end.

[Stilet]

so:=(-1)*(exp(ln(x)*(2*n+1)))/(2*n+1);

Увидела недочет?
Это как минимум. Потом проверяй результаты работы программы.

[Infinity11]

Сообщение от Stilet

so:=(-1)*(exp(ln(x)*(2*n+1)))/(2*n+1);

Увидела недочет?
Это как минимум. Потом проверяй результаты работы программы.

вот этот недочет исправила и степеь там еще поставила..но все равно не выводит те данные что нужно я уже голову сломала...

[Orakul89]

so:=(-1)*(exp(ln(x)*(2*n+1)))/(2*n+1);

судя по этому коду s0 у тебя постоянно отрицательное.
so:=exp(-1*ln(n))*(exp(ln(x)*(2*n+1)))/(2*n+1);

[Anatole]

Попробуй вычисление суммы сделать так

s:=0;
n:=1;
z := x;
repeat
z:= -z*x*x;
so:=z/(2*n+1);
s:=s+so;
n:=n+1
until abs(so)<e;

[Infinity11]

Вот, я составила программу, ответ выдает, но не знаю правильный ли...кто может проверьте ошибки, пожалуйста...вот условие еще раз))
S=⅀(-1)^n*((x^2n+1)/(2n+1))
P.S. над знаком суммы бесконечность, под знаком n=1

Z=arctg x

0,2<=x<=0,6
дельта х=0,05
E=10^(-15) (погрешность)

Код программы:

program lab2;
var z,s,x,dx,e,so:real;
n:integer;
begin
dx:=0.05;
x:=0.2;
e:=0.00001;
writeln('x             z             summa');
while x<=0.6 do
begin
s:=1;
z:=arctan(x);
so:=1;
n:=1;
while abs(so)>e do
begin
so:=so*((-2*x*n-x)/(2*n+2));
s:=s+so;
end;
writeln(x:7:15,' ',z:7:15,' ',s:7:15);
x:=x+dx;
end;
readln;
end.

Как выполнить проверку в этой программе??

[Stilet]

Как выполнить проверку в этой программе??

Ну обычно на бумаге считают, после сверяют с результом программы.
Так что калькулятор и карандаш тебе в помошь )