Подскажите в правильном ли направлении идуВышла загвоздка с программой, Посмотрите, Вышла загвоздка с программой, я приняла n за 1, а может бы Опции

[TanyaH]

Найти значение суммы S, для которого формула слагаемого
an=(-1)n/nn Суммирование продолжать до тех пор, пока очередное слагаемое ai>ε Использовать цикл While-Go

program p3;
user crt;
var
n: integer;
s;a:real;
begin
   ClrScr;
s:=0;
n:=1;
a:= Exp(n * Ln(((-1)/n));
While a>? do begin
S:= s+ Exp(n * Ln(((-1)/n));
a:= Exp(n * Ln(((-1)/n));
n:= n+1;
end;
write('сумма слагаемых ');
write(s);
end.

Сообщение отредактировано: volvo - 13.01.2006 9:50

[volvo]

var
  a, eps, s: real;
  n: integer;
begin

  s := 0; n := 1;
  eps := 0.0001;

  a := -1;
  While abs(a) > eps do begin
    s := s + a;
    a := - a / exp(n * ln(n));
    n := n + 1;
  end;
  writeln('s = ', s:10:6);

end.

Пользуйся поиском, в конце концов !!! Ежедневно этот вопрос задают по 10 раз... По той же ссылке, что я дал - в самом низу темы есть 4 разложения в ряды, там нельзя было посмотреть???