Помогите найти сумму....

[malova]

Помогите добить задачку....что то не выходит...выдает математическую ошибку при проверке...

найти сумму n элементов бесконечного ряда с
y=-4+8-16+32-64.....
вот код:
var i,j,zn,n:integer;
s:real;
begin
clrscr;
writeln;
writeln('naiti summy elementov riada: y=-4+8-16+32-64...');
writeln('');
writeln('vvedite kolichestvo elementov ryada');
write('N=');
readln(n);
s:=1;
for i:=1 to n do begin
zn:=1;
for j:=1 to i+1 do begin
zn:=zn*(-1);
end;
s:=s+(-zn*(exp(1+i)*ln(2)));
end;
writeln('summa ryada s=',s:3:0);
readln;
end.

[Sazary]

Зачем вам два цикла? Зачем что-то в степень возводите?

uses crt;
var i,j,n:integer;
s:real;
begin
clrscr;
writeln;
writeln('naiti summy elementov riada: y=-4+8-16+32-64...');
writeln('');
writeln('vvedite kolichestvo elementov ryada');
write('N=');
readln(n);
s:=0;
j := -4;
for i:=1 to n do
 begin
 s := s + j;
 j := j*(-2);
 end;
writeln('summa ryada s=',s:3:0);
readln;
end.

А можно просто посчитать как сумму членов геометрической прогрессии:

uses crt;
var i,n:integer;
s,j:real;
begin
clrscr;
writeln;
writeln('naiti summy elementov riada: y=-4+8-16+32-64...');
writeln('');
writeln('vvedite kolichestvo elementov ryada');
write('N=');
readln(n);

j := exp(n*ln(2));
if odd(n) then j := -j;
s := (-4)*(j-1)/(-3);

writeln('summa ryada s=',s:3:0);
readln;
end.

[malova]

Спасибо за быстрый ответ.....

Подскажите пожалуйста, а если ряд:у=-(1/2-2/5)+(2/3+4/10)-(3/4-8/15), то ка в данном случае организовать работу цикла?

[Sazary]

uses crt;
var i,n:integer;
s,a,b:real;
zn : integer;
begin
clrscr;
writeln;
writeln('naiti summy elementov riada: y=-(1/2-2/5)+(2/3+4/10)-(3/4-8/15)...');
writeln('');
writeln('vvedite kolichestvo elementov ryada');
write('N=');
readln(n);

s := 0;
a := -2;
b := 5;
zn := -1;
for i:=1 to n do
 begin
 s := s + zn*(i/(i+1)+(a/b));
 zn := zn*(-1);
 a := a*(-2);
 b := b+5;
 end;

writeln('summa ryada s=',s:7:4);
readln;
end.

[malova]

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

uses crt;
var i,n:integer;
s,a,b:real;
zn : integer;
begin
clrscr;
writeln;
writeln('naiti summy elementov riada: y=-(1/2-2/5)+(2/3+4/10)-(3/4-8/15)...');
writeln('');
writeln('vvedite kolichestvo elementov ryada');
write('N=');
readln(n);

s := 0;
a := -2;
b := 5;
zn := -1;
for i:=1 to n do
 begin
 s := s + zn*(i/(i+1)+(a/b));
 zn := zn*(-1);
 a := a*(-2);
 b := b+5;
 end;

writeln('summa ryada s=',s:7:4);
readln;
end.

а как сделать чтоб задача была с помощью repeat...until?
заранее благодарю....

[Gapro]

Тоже самое, только поменять цикл:

i:=1;
repeat
 s := s + zn*(i/(i+1)+(a/b));
 zn := zn*(-1);
 a := a*(-2);
 b := b+5;
 i:=i+1;
 until i:=n

[Gapro]

упс, не так, а вот так:

i:=1;
repeat
 s := s + zn*(i/(i+1)+(a/b));
 zn := zn*(-1);
 a := a*(-2);
 b := b+5;
 i:=i+1;
 until i=n;

[malova]

Благодарю! спасибо за помощь!!!!

[malova]

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

упс, не так, а вот так:

i:=1;
repeat
 s := s + zn*(i/(i+1)+(a/b));
 zn := zn*(-1);
 a := a*(-2);
 b := b+5;
 i:=i+1;
 until i=n;

Почему то выдает ошибку при n=1?
И ответы выдает не правильные???

[havok]

вот так попробуйте

i:=1;
repeat
 s := s + zn*(i/(i+1)+(a/b));
 zn := zn*(-1);
 a := a*(-2);
 b := b+5;
 i:=i+1;
 until i>n;