Вычислить бесконечную сумму

[MrDindows]

Чуть выше вы писали, что вам надо написать программу в паскале,а сами мучаете Си....оговорились?

[evgenrpo]

Результат.
0,00999966666666666 1E-16
Для продолжения нажмите любую клавишу . . .

сменил в коде

double e = 0.001;
            double x = 0.01;
            double n = 1;
            double x2, x4, sum, c;

            x2 = x;
            x4 = x;
            sum = e;
            c = +(-1);
            while (Math.Abs(sum) <= e)
            {
                
                for (int i = 0; i < 7; i++)
                {
                    x2 *= x;
                    
                }
                
                sum = x - x2 / 8;
                for (int i = 0; i < (2 * n); i++)
                {
                    c *= c;
                    x4 *= x;
                }
                sum = sum - c * (x4 / (2 * n + 1));
                Console.WriteLine(sum.ToString() + "    " + x2.ToString()); 
                  n++;
            }

Результат не тот?

-- Чт дек 30, 2010 00:30:14 --

MrDindows в сообщении #393596 писал(а):

Чуть выше вы писали, что вам надо написать программу в паскале,а сами мучаете Си....оговорились?

Просто в шарпе отладка. Потом перевиду на паскаль.

[Gortaur]

Слушайте, да оставьте Вы только последний кусок кода с $c$ и $x4$ - только $x4$ нужно каждый раз умножать на $x^2$ а не просто на $x$. Я честно даже не догадываюсь откуда у Вас $\frac{x^8}{8}$ вылез.

[Null]

Что делает ваша программа:
1. Присвоение переменных. $sum$ - что означает эта переменная?
2. Пока $|sum|<e$ {странное ограничение, нам нужно считать сумму пока очерендное слагаемое больше $e$, в вашей прграмме цикл выполняется 1 раз}
a) $x2:=x2*x^7$ -зачем?
{$x2=x^{1+7n}$ на n том шаге}
б) $sum:=x-x2/8$
{$sum=x-\frac{x^{1+7n}}{8}$ - зачем это нужно? $sum$ не зависит от предыдущих шагов}
в) после цикла $c=1${вы его в квадрат возводили}
$x4:=x4*x^{2n}$
{$x4=x^{n^2+n+1$- зачем?}
г) $sum=x-\frac{x^{1+7n}}{8}-\frac{x^{n^2+n+1}}{2n+1}$
д) Выдать $sum=0.01-\frac{0.01^{8}}{8}-\frac{0.01^3}{3}$ - ровно то что вам выдало.

[ewert]

Стандартный код:

var  x,s,y,yn,eps: extended;    n: integer;
. . . . . . . . . . . . . . . . . .
s:=0;
y:=x;
yn:=y;
xx:=-sqr(x);
nn1:=1;

while abs(yn)>eps do begin
    s:=s+yn;
    inc(nn1, 2);
    y:=y*xx;
    yn:=y/nn1;
end;

(чего-то я невнимателен)