Найти сумму ряда - Pascal (80881)

Формулировка задачи:

Найти сумму Ряда. Граница вычислений вводится с клавиатуры. Факториалы и возведение в степень оформить в виде функции. s=1-(x^2/3!)+(x^4/5!)-(x^6/7!)+... abs(x)<∞ я хз как решать,ребят

Решение задачи: «Найти сумму ряда»

Листинг программы

var n1,i,r,nn:integer;
    s,x:real;
function fact(n1:integer):integer;
var i,n:integer;
begin
n:=1;
for i:=1 to n1 do  
n:=n*i;
fact:=n;
end;
begin
writeln('Введите границу числом [n1]');
readln(n1);
writeln('Введите x , который [x<Бесконечность]');
readln(x);
s:=1;
r:=1;
nn:=n1;
for i:=3 to nn do 
if i mod 2 <> 0 then
if r mod 2 = 0 then 
begin
n1:=i;
r:=r+1;
s:=s+(power(x,i-1)/fact(n1));
end
else
s:=s-(power(x,i-1)/fact(n1));
writeln('Результат : ',s:5:2);
end.

Объяснение кода листинга программы

Объявление переменных:
- n1: целочисленная переменная для границы ряда
- i: целочисленная переменная для циклов
- r: целочисленная переменная для управления циклом
- nn: целочисленная переменная для хранения значения n1
- s: вещественная переменная для хранения суммы ряда
- x: вещественная переменная для ввода значения x
Объявление функции fact для вычисления факториала:
- n1: целочисленный параметр функции fact для вычисления факториала
- i, n: целочисленные переменные для управления циклом и хранения результата
- Тело функции вычисляет факториал числа n1 и возвращает его значение
Ввод значений переменных n1 и x с клавиатуры
Инициализация переменной s значением 1 и переменной r значением 1
Выполнение цикла от 3 до значения nn (введенной границы)
- Проверка на нечетность числа i
- Проверка на четность переменной r
- Изменение значения переменной n1 на значение i
- Изменение значения переменной r на один
- Вычисление нового значения s с учетом условий в блоке if
Вывод результата вычисления суммы ряда с точностью до двух знаков после запятой.