Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Object Pascal: кроссплатформенные технологии > Как вычислить

Автор: sadisasha 29.3.2009, 23:20

как вычислить m=1-1/2+1/3-1/4...((-1)^(n+1))*(1/n)

Автор: dvamaster 30.3.2009, 10:55

Код


var
  r: Real; {результат}
  i, n, sign: Integer;
begin
  {.......}
  r := 0;
  sign := 1;
  for i := 1 to n do
    begin
      r := r + sign / n;
      sign := -sign;
    end;
  {.......}
end.

Автор: volvo877 30.3.2009, 14:16

dvamaster, неправда... Делить на i надо, а не на n в цикле...

Автор: baldina 30.3.2009, 14:47

А n большое? Этот ряд сходится к ln(2) smile

Автор: hot_man 30.3.2009, 20:01

var
i, n:integer;
m:real;
begin
m:=1;
for i:=2 to n do
m:= m+pow(-1,i+1)*1/i;
write(m);
end;