Вычисление функции

[spectrum988]

Помогите пожалуйста с составлением кода,по которому считалась бы данная функцияБезымянный.png

[Streletz]

Простите, а с чём помогать? Где код?
Какой язык программирования?

[spectrum988]

Извиняюсь ,забыл указать Delphi.Мне нужно,буквально часть кода по которому высчитывалась бы данная функция!

[Vanta11a]

while (i<n) do
s:=s + pow(-1,i)*pow(x,2*i)/fract(2*i);

где fract - факториал.

[Streletz]

Сообщение от Vanta11a

while (i<n) do
s:=s + pow(-1,i)*pow(x,2*i)/fract(2*i);

где fract - факториал.

Простите, но в Delphi возведение в степень осуществляется с помощью функции Power из модуля Math.pas.

s:=s + power(-1,i)*power(x,2*i)/fract(2*i);

[spectrum988]

Сообщение от Vanta11a

while (i<n) do
s:=s + pow(-1,i)*pow(x,2*i)/fract(2*i);

где fract - факториал.

Не ужели оно так,ведь это как простое выражение,где же тут факториал считается?
А fract ? есть такая функция ?

[Streletz]

где же тут факториал считается?
А fract ? есть такая функция ?

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

[Stilet]

Не ужели оно так,ведь это как простое выражение

http://www.programmersforum.ru/showp...1&postcount=35

[Аватар]

s:=1; t:=1;
for i:=2 to n do begin
  t:=-t*x*x/(2*i-1)/(2*i);
  s:=s+t;
end;

Все и не надо ни каких факториалов

[spectrum988]

Сообщение от Аватар

s:=1; t:=1;
for i:=2 to n do begin
  t:=-t*x*x/(2*i-1)/(2*i);
  s:=s+t;
end;

Все и не надо ни каких факториалов

Вот вот.Cпасибо большое,попробую разобраться,я в начале пробовал так,но чего то у меня не получилось.Еще раз большое спасибо,помогли.