VPF::Как вычислить - Форум программистов

sadisasha

Дата 29.3.2009, 23:20 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 36
Регистрация: 15.12.2006

Репутация: нет
Всего: нет

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

dvamaster

Дата 30.3.2009, 10:55 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 559
Регистрация: 30.6.2004
Где: Россия : Курган

Репутация: нет
Всего: 10

Код


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.

--------------------

Хорошую информацию трудно добыть. Сделать с ней что-нибудь - еще труднее. /L. Skywalker/

Что же я сделал не так? /Король Лир/

Я делаю это для твоего же блага! /Любой родитель и палач/

PKUNZIP.ZIP /неизвестный/

volvo877

Дата 30.3.2009, 14:16 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

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

baldina

Дата 30.3.2009, 14:47 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 3433
Регистрация: 5.12.2007
Где: Москва

Репутация: нет
Всего: 101

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

hot_man

Дата 30.3.2009, 20:01 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 31
Регистрация: 5.12.2007
Где: Россия, Тольятти

Репутация: нет
Всего: нет

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;

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »