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

[inomarka]

из операторов могу использовать while. (until и остальные еще "не проходили"...) Если что, простите мою неграмотность, касающууся информатики и языка паскаля, у нас учебников нет, только листочки с программами и задачами раздают - и все... типа примера хватит, хотя в примерах многого нет...

Задача:Получить сумму ряда 1/2 - 1/4 + 1/8 - 1/16+ ... Суммировать до тех пор, пока разность модулей предыдущего и текущего слагаемого больше 0.0001 Вывести на экран значение суммы, последнего и предпоследнего слагаемого и ИХ НОМЕРА.

И еще ,может, дадите ссылку на какие-то материалы по этой теме?
Заранее сбасибо....

[volvo]

Что программа делает - разберешься?

var
  i, z: integer;
  delta, prev, next, s: real;

begin
  delta := 1;
  z := 2;

  while delta > 0.0001 do begin
    prev := 1 / z;
    next := - 1 / (2 * z);

    delta := abs(abs(prev) - abs(next));
    s := s + prev;

    z := - 2 * z;
    i := i + 1;
  end;

  writeln('prev #', i - 1, ' = ', prev:10:6);
  writeln('last #', i    , ' = ', next:10:6);

  writeln('s = ', s:10:6);
end.

Будут вопросы - задавай...