Вычислить и вывести на экран сумму l членов ряда, где x и l – любые целые числа, введенные с клавиатуры: - Turbo Pascal

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

Вычислить и вывести на экран сумму l членов ряда, где x и l – любые целые числа, введенные с клавиатуры: Составить блок-схему

Решение задачи: «Вычислить и вывести на экран сумму l членов ряда, где x и l – любые целые числа, введенные с клавиатуры:»

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

uses crt;
var x,s,f,p:real;
    l,i:integer;
begin
clrscr;
write('Введите количество членов ряда l>1 l=');
readln(l);
write('x=');
readln(x);
s:=0;
f:=1;
p:=1;
for i:=1 to l do
 begin
  p:=p*x;
  f:=f/(3*i+1)/(3*i)/(3*i-1);
  s:=s+(p+3*i)*f;
 end;
write('S=',s:0:5);
readln
end.

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

Объявление переменных: x, s, f, p — вещественные числа, l, i — целые числа.
Очистка экрана и запрос на ввод количества членов ряда.
Выполнение цикла от 1 до l, где l — количество членов ряда.
Внутри цикла вычисление значений p и f.
Вычисление суммы s, используя значения p и f.
Вывод результата суммы на экран.
Ожидание ввода, чтобы программа не закрылась.