Сумма числового ряда. Найдите ошибку

[NamYola]

Сумма числового ряда. Найдите ошибку

Добрый день всем!)

Вычичлить: 2*(3/4)-4*(5/6)+6*(7/8)....


1)Вот вывел формулы её вычисления: S=(-1)*((2n+2)*(2n+3))/(2n+4)

2)написал програмку:

uses
crt;
var
S,elem,z:real;
n,i:integer;
begin
clrscr;
write('Vvedite kolichestvo elementov=');
readln;
S:=1.5;
z:=1;
elem:=1.5;
For i:=1 to n do
z:=-z;
elem:=z*(((2*n+2)*(2*n+3))/(2*n+4));
S:=S+elem;

writeln;
writeln(' [ S=', S:5:3,' ]');
readln;
End.


Вот,знакопеременную правильно записать не могу,поэтому и вычисление неправильно выводит..


Как будет выглядить правильная форма?Помогитее,пжлуйста)

 

[ww01031977]

Вычичлить: 2*(3/4)-4*(5/6)+6*(7/8)....


в строке выше + и -
или только + ?????

 

[Vladimir_S]

Нет, это же надо, чтобы в такой маленький фрагментик:

For i:=1 to n do
z:=-z;
elem:=z*(((2*n+2)*(2*n+3))/(2*n+4));
S:=S+elem;

да столько ошибок! Тут надо так:

For i:=1 to n do
 [COLOR=Red][B]begin[/B][/COLOR]
        z:=-z;
        elem:=z*(((2*[COLOR=Red][B]i[/B][/COLOR]+2)*(2*[B][COLOR=Red]i[/COLOR][/B]+3))/(2*[B][COLOR=Red]i[/COLOR][/B]+4));
        S:=S+elem;
 [COLOR=Red][B]end;[/B][/COLOR]

В остальном вроде всё правильно.

 

[NamYola]

пасиб,прога работает)