вычислить сумму ряда

[ANRJumper]

Препод по информатике дала задачи,если не решу,могу вылететь с универа((помогите пожалуйста,если не тяжело...

как она объяснила задание надо сделать следующее:


1)вычислить сумму ряда
S= 1 - 1/3 + 1/5 - 1/7 + 1/9 - ...

и рядом в кружке она написала "For" сделать надо с помощью этого алгоритма или там не знаю как это называется...

и 2) вычислить сумму ряда из задания №1 с заданной точностью "repeat"


очень прошу помочь,ибо послезавтра уже сдавать...

[Chudo4258]

Родину-матушку тоже кому-то надо защищать!!!

[Naive]

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

Родину-матушку тоже кому-то надо защищать!!!

1)вычислить сумму ряда
S= 1 - 1/3 + 1/5 - 1/7 + 1/9 - ...
for:

var n,i:integer;
s:real;
begin
writeln('Введи кол-во слагаемых:');
readln(n);
for i:=0 to n do
  s:=s+1/(1+2*n);
end.

repeat:

var n,i:integer;
s:real;
begin
writeln('Введи порядок точности:');
readln(n);
repeat
  i:=i+1;
  s:=s+1/(1+2*n);
until (i>=n);
end.

п.с. написал на паскале, т.к. язык не указан а задание простое...

[IT-man]

2Naive а знакопеременность кто будет учитывать????

[Naive]

ух, необратил внимание)))

[Naive]

s:=s-((-1)^i)*1/(-1+2*n);

правда, непомню, можно ли так возводить в степень в паскале, если нет, то:

if i mod 2 = 0 then 
  s:=s+1/(-1+2*n)
else
  s:=s-1/(-1+2*n);