Задачи на паскале нужно помочь разобраться,конкретней дальше

[Cadalex]

что значить-вычисления производить пока значения слагаемого остается больше введенного числа e

1. S= 1/5-6/25+11/125-16/625+...
2. S= 1+ (1+3)/1*3+(1+3+5)/1*3*5+(1+3+5+7)/1*3*5*7+...
3. S= 1+1*3/(1+3)+1*3*5/(1+3+5)+1*3*5*7/1+3+5+7

[Niro]

это значит находить сумму ряда до тех пор пока значение очередного слагаемого не будет меньше заданной точности е.
А теперь в поиск или же конкретные вопросы.

[Prime123]

Таких задач тут решалось 5E1000000 штук,на форуме есть коды

[Cadalex]

это где в помощи студентам да? а то я просто тут первйы раз,раздел нужно искать в помощи студентам?

вот что надо добавить к этой задаче чтобы было как надо

{2.4 S= 1/5- 6/25+11/125 - 16/625...}

var
  a, b, s: real;
  i: integer;

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

помогите кто-нить мне выходить скоро и сдавать надо сегодня я ток именно это доконца понять не могу и тему похожую найти тоже не могу..на примере хотя бы одной покажите код я дал,что к нему добавить

[Stilet]

что надо добавить к этой задаче

Я проверил - этот код решает правильно.
S становится равным 0.0277769216

[Prime123]

Так правильно,если вы точно знаете сколько членов ряда нужно сложить,но у вас есть погрешность e,значит нужно использовать цикл while условие таково,что модуль разности предыдущего и текущего членов ряда меньше точности e-это будет условием выхода из цикла
И всё
Если точность не принципиальна,то всё верно

[Stilet]

Вот загляни сюда:http://www.programmersforum.ru/showthread.php?t=81206
eoln очень показательный пример дал.

[Niro]

Вообще-то в задании дан знакопеременный ряд, а в приведенном коде от первого члена ряда постоянно отнимаются последующие члены...

[Cadalex]

{2.4 S= 1/5- 6/25+11/125 - 16/625...}

var
  a, b, s: real;
  i: integer;

begin
  a := 1;
  b := 5;
  s := 0;
  for i := 1 to 10 do
  while abs(s-s + (a / b))>=e do
 begin
    s := s + (a / b);
    a := a + 5;
    b := -b * 5;
    
  end;
   write('s=',s);
  readln
end.

так..?если нет подправьте пожалуйста у меня простоток час остался вот.

[Prime123]

Похоже на правду