Найти произведение ряда - Pascal (80618)

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

Для заданного натурального k и действительного x подсчитать следующие выражения. Простейшим способом

Решение задачи: «Найти произведение ряда»

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

var k,n,i:integer;
    x,s,p:real;
begin
write('Введите действительно x=');
readln(x);
repeat
write('Введите целое k>0 k=');
readln(k);
until k>0;
p:=1;
s:=1;
for n:=1 to k do
 begin
  s:=s*x*x;
  p:=p*(1+s/n/(n+4));
 end;
write('P=',p:0:5)
end.

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

Объявляются переменные:
- k (целое число для хранения значения счётчика раделения),
- n (целое число для использования в цикле),
- i (целое число, но не используется в этом коде),
- x (действительное число для ввода пользователем),
- s (действительное число для вычисления суммы),
- p (действительное число для хранения произведения ряда).
Выводится сообщение Введите действительно x= и пользователь вводит значение для переменной x.
Запускается цикл repeat-until, который просит пользователя ввести целое положительное число для переменной k до тех пор, пока оно не будет больше 0.
Устанавливается начальное значение переменной p в 1 и s в 1.
Запускается цикл for, в котором переменная n изменяется от 1 до значения переменной k.
В цикле происходят следующие действия:
- Переменная s умножается на значение x*x.
- Переменная p умножается на выражение (1 + s/n/(n+4)).
Выводится сообщение P= и значение переменной p с округлением до 5 знаков после запятой.
Завершение программы.