while(paskal)

[Артл]

найти сумму тез членов ряда ,, которые по модулю больше или равне e

подскажите нужно делать отдельно числитель и знаменатель?

[alex_fcsm]

у вас числитель всегда +-1 в зависимости от четности n, здесь считать ничего не надо. Задача 100500 раз обсуждалась на форуме ищите в поиске

[Артл]

ну такой точно не нашел, а можно числитель тоже с циклом, мне так хочется?

 var k,n,b:integer; var s,a,e:real;
 begin
 readln(e);
 k:=-1;
 n:=0;
 b:=1;
 s:=0;
while a>=e do
begin
n:=n+1;
k:=k*-1;
b:=b*2*n;
a:=k/b;
s:=s+a;
end;
writeln(s);
end.

укажите пожалуйста ошибку, не могу понять где(

[Mad_Cat]

перед while вставь

a:=1;

[Артл]

я не понял , почему надо a:=1 если в цикле a:=k/b , где этот 1 будет использоваться
ведь в a подставл. знач k и b

[Mad_Cat]

почему надо a:=1

потому что для того чтобы цикл начал работать нужно чтобы а было больше чем e
а так как у тебя она вообще не проинициализирована т.е у нее нет никакого значения
то в цикл твоя прога не заходит
и так как ты изменяешь a в теле цикла до суммирования то напиши a:=1 - на расчеты это не повлияет

[Артл]

все равно не правильно считает(

[Mad_Cat]

сколько ты вводишь e
и исправь

while a>=e do

на

while abs(a)>=e do

[Артл]

я исправил, например ввожу e = 0.4 тогда получается должен считаться 1 член a=0,5, т.к следующий -1/8=0.125 это уже меньше е , а сумма выводится 0.375

[Mad_Cat]

потому что у тя сначала прибавляет a к сумме а потом проверяет a больше e или нет