Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Цикл

Серый © (2006-10-01 13:28:00)
Нужно посчитать значение
arth(x)=x+(x^3/3)+(x^5/5)+..Главная пролема заключается в организации цикла

d:=x;
i:=3;
x2:=x*x;
while (fabs(d)>eps) do
begin
d:=d*x2/(i);
i:=i+2;
end;
А именно ошибка в числителе выражения d:=d*x2/(i).
Что это за ошибка?

Думкин (2006-10-02 05:43:00) [1]
> guav © (01.10.06 18:59) [4]

Некоторые типа иногда учатся.

guav (2006-10-01 18:59:00) [2]
А зачем вообще через ряд находить, когда есть простая формула в Math.ArcTanh ?

Думкин (2006-10-01 18:18:00) [3]

> MBo © (01.10.06 13:35) [2]
> dd:=x;
> arth := x;
> i:=1;
> x2:=x*x;
> while (abs(d)>eps) do
> begin
> dd:=dd*x2;
> i:=i+2;
> d := dd/i;
> arth := arth + d;
> end;
>
> P.S. ряд сходится медленно, если x не очень мало...

Если больше 1, то вообще расходится.

MBo (2006-10-01 13:35:00) [4]
dd:=x;
arth := x;
i:=1;
x2:=x*x;
while (abs(d)>eps) do
begin
dd:=dd*x2;
i:=i+2;
d := dd/i;
arth := arth + d;
end;

P.S. ряд сходится медленно, если x не очень мало...

Kolan (2006-10-01 13:32:00) [5]

> Что это за ошибка?

Так что за ошибка?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »