расхождения в вычислениях факториала

[повстанец]

почему возникают расхождения при высчитывании факториала в Маткаде и Паскале?
Необходимо вычислить сумму

1-x^2/3!+x^4/5!-x^6/7!+...

написал код:

program labfivetwo;
var a,x, b,f:real;
n,i:integer;
s:extended;
begin
write('введите x=');
read(x);
write('введите n>=1. n=');
read(n);
f:=1;
for i:=1 to n do
begin
if odd(i) then a:=-1
else a:=1;
b:=exp(-1*ln(i))*exp((2*i)*ln(x))/(2*i+1);
s:=f+a*b;
end;
writeln('summa',s:8:5);
end.

Прога считает сумму, но ответ не сходится с Маткадом до десятых. Может, ошибка в коде?

[C_O_D_E]

1) Чем закрывается последовательность?
2)не совсем верное вычисление факториала. проще посмотреть в разделе "Алгоритмы"

[MOTOCoder]

Последовательность как я понял закрывается членом
+(-)x^(2+2n)/(3+2n)!
+- в зависимости от четности n, хотя здесь это не принципиально.
А вот метод вычисления факториала действительно какой-то странный.

Я, например, считаю факториалы так:
[syntax='Delphi']
function Factor(N:integer):Integer;
var
F:integer;
begin
while N>0 do
begin
F:=Factor(N-1);
Factor:=F*N;
end;
end;
[/syntax]

[somewhere]

Вы о чем? здесь вообще не нужно считать факториал, если присмотрется. На это и ориентирвано задание - не решать задачу "в лоб"

[MOTOCoder]

здесь вообще не нужно считать факториал, если присмотрется.

А как же без него?
Даже интересно стало.

[повстанец]

Да! здесь нельзя использовать F:=Factor(N-1);
Factor:=F*N;

[somewhere]

Ну вы, блин, даете - очень просто:

Код: Выделить всё

var
s, x, xn : real;
t : integer;

begin
s := 1; x := 3; xn := 1; 
For t := 1 to 10 do
    begin
    xn := -xn*x*x / (t*2) / (t*2+1);
    s := s + xn;
    end;
Writeln(s:5:9);
end.

[sasha3050]

Пожалуйста помогите очень нужно!!!!!!!!!Написать программу на Paskal, которая вычисляет среднюю длину слов в файле, который содержит текст.В данном случае будет считатьтся любая строка символов, которая начинается и заканчивается одним с следующих елеметов: пробел, запятая, точка, начало строки и конец строки.В программе должна быть обозначена функция, которая получает в качестве аргумента поток ввода с файла.