Составить схему алгоритма и написать программу вычисления суммы (произведения) конечного ряда - Pascal ABC (14768)

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

Задание : составить схему алгоритма и написать программу вычисления суммы (произведения) конечного ряда. При разработке программы предусмотреть пропуск слагаемых (множителей), равных нулю или бесконечности.

Решение задачи: «Составить схему алгоритма и написать программу вычисления суммы (произведения) конечного ряда»

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

var k,i,j,z:integer;
    f,w:real;
begin
repeat
write('Введите k>-2 k=');
readln(k);
until k>-2;
w:=0;
z:=1;
for i:=-2 to k do
 begin
  z:=-z;
  f:=1;
  for j:=1 to i+3 do
  f:=f*j;
  if i<>4 then w:=w+z*f/(i-4);
 end;
write('w=',w:0:2);
end.

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

Создаются переменные k, i, j, z и f, которые будут использоваться в алгоритме.
Запускается цикл repeat-until, который будет выполняться до тех пор, пока значение переменной k не станет больше -2.
Внутри цикла переменная w устанавливается равной 0, а переменная z устанавливается равной 1.
Запускается вложенный цикл for, который будет выполняться от -2 до k.
Внутри вложенного цикла переменная z устанавливается равной -z, что является обратным значением переменной z.
Переменная f устанавливается равной 1.
Запускается еще один вложенный цикл for, который будет выполняться от 1 до i+3.
Внутри этого цикла переменная f умножается на j и сохраняется в переменной f.
Если i не равно 4, то переменная w увеличивается на z*f, деленное на (i-4).
После окончания вложенных циклов, значение переменной w выводится на экран.