Найти сумму Ряда. Граница вычислений вводится с клавиатуры - Pascal ABC

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

Найти сумму Ряда. Граница вычислений вводится с клавиатуры. Факториалы и возведение в степень оформить в виде функции. S=1-2x+3x^2-4x^3+5x^4-..., |x|<1 Заранее большое спасибо!

Решение задачи: «Найти сумму Ряда. Граница вычислений вводится с клавиатуры»

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

function power(x:real;n:integer):real;
var i:integer;
begin
result:=1;
if n>0 then
for i:=1 to n do
result:=result*x;
end;
  
var n,i,z:integer;
    x,s:real;
begin
repeat
writeln('Введите |x|<1 x=');
readln(x);
until abs(x)<1;
repeat
write('Введите число членов ряда n>0 n=');
readln(n);
until n>0;
s:=0;
z:=-1;
for i:=1 to n do
 begin
  z:=-z;
  s:=s+z*i*power(x,i-1);
 end;
write('S=',s:0:4)
end.

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

В данном коде объявлены следующие переменные:

result - результат вычисления ряда, тип real.
n - количество членов ряда, тип integer.
i - номер текущего члена ряда, тип integer.
x - значение текущего члена ряда, тип real.
s - сумма ряда, тип real.
z - знак текущего члена ряда (+1 или -1), тип integer. Код начинается с определения функции power, которая принимает два аргумента: x (значение текущего члена ряда) и n (количество членов ряда). Внутри функции происходит проверка n>0, после чего происходит цикл for, в котором значение i увеличивается от 1 до n. В каждой итерации цикла значение result умножается на x (значение текущего члена ряда). Далее идет основной код программы. Он начинается с повторения, в котором пользователю предлагается ввести значение |x|<1 x= и затем число членов ряда n>0 n=. Пока эти условия не выполняются, программа продолжает повторяться. После этого переменная s инициализируется значением 0, а переменная z инициализируется значением -1. Затем происходит цикл for, в котором значение i увеличивается от 1 до n. Внутри цикла значение z сменяется на -z, а переменная s увеличивается на текущее значение z умноженное на i и деленное на power(x,i-1). В конце программы выводится значение s. Таким образом, данный код вычисляет сумму ряда, заданного пользователем, и выводит результат.