Найти значение выражения

@Tidimw · Регистрация: 08.06.2016

Author24 — интернет-сервис помощи студентам

Дано вещественное число X и целое число N (> 0). Найти значение выражения 1 – X^2/(2!) + X^4/(4!) – … + (–1)^N·X^(2·N)/((2·N)!) (N! = 1·2·…·N). Полученное число является приближенным значением функции cos в точке X.
нужно рассчитать уравнение, с помощью написания класса в Делфи
(Прога на паскале)

Pascal

program for_24;
var
  factorial, sum_factorial, x: real;
  i, N, z: integer;
begin
  write('Введите N: ');
  readln(N);
  write('Введите x: ');
  readln(x);
  factorial := 1;
  sum_factorial := 1; 
  z := 1;
  for i := 1 to 2 * N do 
  begin
    factorial := factorial * i;
    if i mod 2 = 0 then 
    begin
      z := -z; 
      x := x * x;
      sum_factorial := sum_factorial + z * (x / factorial);
    end;
  end;
  writeln('Сумма факториалов = ', sum_factorial, ' = ', cos(x)); 
end.

@mss · 08.06.2016, 16:55

Не по теме:

мало времени, а я тупой

"заостриться" за "мало времени" все равно не удастся

@mss
	08.06.2016, 16:55 Найти значение выражения #2
	Не по теме: мало времени, а я тупой "заостриться" за "мало времени" все равно не удастся 0