Вычисления произведения

[wanty]

Delphi: Задание: составить программу вычисления произведения, и закинуть получившееся число в файл, вот два первых члена(n-ый член представлен в самой программе): (1/2-cos|x|)(2/3-cos^2|x|)... (^2 я представил вам степень косинуса).Произведение бесконечное. Вот то что я надумал:

var
n,i:integer;
x,s:double;
f:textfile;

procedure t(var x,s:double;n,i:integer);

begin
s:=1;
for i:=1 to n do
x:=i/(i+1)-exp(i*ln(cos(abs(x))));
s:=s*x;
end;
begin
n:=strtoint(edit1.text);
x:=strtofloat(edit2.text);
assignfile(f,'data.txt');
rewrite(F);
t(x,s,n,i);
writeln(f,s);
closefile(F);
end;

программа работает, но неправильно, например при умножении первых трёх членов друг на друга он выдаёт не правильно число, а при четырёх выдаёт отрицательное число, при том что оно должно быть положительное ! Подскажите что делать, не могу понять, может у меня не правильно составлен код последовательного умножения??? n я в программе заменил на i ! если по заданию то n-ый член выглядит так:
n/(n+1)-exp(n*ln(cos(abs(x))));

 

[nayke]

s:=1;
for i:=1 to n do
x:=i/(i+1)-exp(i*ln(cos(abs(x))));
s:=s*x;

а надо

s:=1;
for i:=1 to n do
begin
x:=i/(i+1)-exp(i*ln(cos(abs(x))));
s:=s*x;
end;

Это из того что бросилось в глаза.
P.S. такие ошибки легко отлавливаются дебаггером

 

[wanty]

бросилось в глаза то да ! то считает он не правильно !я пробовал делить на калькуляторе !

 

[nayke]

x:=i/(i+1)-exp(i*ln(cos(abs(x))));

в этой строке на каждой итерации x-меняется, т.е. меняется аргумент у косинуса не уверен что так должно быть, попробуйте

s:=1;
for i:=1 to n do
begin
y:=i/(i+1)-exp(i*ln(cos(abs(x))));
s:=s*y;
end;

p.s. В функцию cos аргумент(угол) надо передавать в радианах, ну так на всякий случай.

 

[wanty]

Спс ! я уже всё сделал ! Операторные скобки не нужны, и надо было написать не так:
y:=i/(i+1)-exp(i*ln(cos(abs(x))));
s:=s*y;
а так:s:=s*(i/(i+1)-exp(i*ln(cos(abs(x)))));(извините подправил)

 

[nayke]

Спс ! я уже всё сделал ! Операторные скобки не нужны, и надо было написать не так:
y:=i/(i+1)-exp(i*ln(cos(abs(x))));
s:=s*y;
а так:s:=s*i/(i+1)-exp(i*ln(cos(abs(x))));

А разница?))
И что-то я не вижу где у вас скобок меньше стало.