Сумма ряда Опции

[Clane]

Ищется решения для такой задачи : Вычислить сумму ряда: S=X+(x(в пятой степени)/5)+......(x(в степени4n+1)/4n+1)  
0.1<=x<=0.8 n=30! шаг равен h=0.07

[Clane]

Код

program rad;
var x,a,y,s:real;
n:integer;
begin
x:=0.1;
n:=0.07;
while x<=0.8 do
begin
n:=0;
a:=x;
s:=x;
while n<30 do
begin
a:=(sqr(sqr(x))*a)/(4*n+5));
s:=s+a;
n:=n+1;
end;
y:= 1/2*(ln((1+x)/(1-x))-1/4*(arctan(x))));
x:=x+h;
writeln(x,s,y);
end;
end.

Вроде бы нигде не наврал !!!
ЧИТАЕМ ПРАВИЛА! И не забываем включать код в соответствующие теги!

Сообщение отредактировано: APAL - 21.10.2004 17:11