Вычисление по формуле..

[stud3nt]

Всем доброго дня!
По данной формуле не получается сделать вычисление, не пойму где ошибся, вроде все верно написано в коде. Т.к. при n=5 а x=0.05, sin(x) считает не верно. Получается отрицательное число в Е степени. А по идее должно получиться положительное число, в примерном виде 0.04997916927067833
Надеюсь на вашу маленькую помощь

if ((n-1) mod 2)=0 then g:=1
                   else g:=-1;

fact:=1;
for i:= 2 to strtoint(edit7.Text) do
fact:=fact*(2*i-1);
s:=0;
for n := 1 to strtoint(edit7.Text) do
s:=s+(g*((exp((2*n-1)*ln(strtofloat(edit8.Text))))/(fact)));

g - икс

[Mad_Cat]

факториал вы не правильно считаете
i=1 fact = 1
i= 2 fact=3!=1*2*3 у вас же fact=1*3 (2-ка куда-то пропала)
и так далее
вот сюда гляньте

[mihali4]

Для "особо одаренных" и не желающих соблюдать наши правила.
Читаем правила этого раздела и думаем...
Причем не так, по диагонали, а вдумчиво читаем!
Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Подсказка - для вас персонально особо важен пункт 7.
Как вы понимаете - тема будет удалена.
Модератор