Составить текст программы для вычисления значения суммы ряда, с комментариями

[Fredom]

Составить текст программы для вычисления значения суммы ряда, с комментариями с:

[newerow1989]

var i,n:integer;
    s,x,st:real;
begin
   Write('n = ');Readln(n);
   Write('x = ');Readln(x);
   s:=0;//обнуляем результат
   st:=x;//основание степени
   For i:=0 to n do
   begin
      st:=st*x;//вычисляем числитель дроби
      s:=s+st/(i+1)/(i+2);//основная формула
   end;
   Writeln(s:5:5);
   Readln;
end.

[Fredom]

Да, спасибо )

[CMY_3]

   st:=x*x;//основание степени
   For i:=0 to n do
   begin
      s:=s+st/(i+1)/(i+2);//основная формула
      st:=st*x;//вычисляем числитель дроби
   end;

[ViktorR]

Оба варианта правильные, с точки зрения работы программы, но не верные с методической точки зрения.
Очевидно, что при вычислениях элементов ряда "затык" (переполнение) произойдет раньше, чем это могло бы быть, да и точность вычисления пострадает.
Это связано с выражением:

st:=st*x;//вычисляем числитель дроби

Тут выполняется возведение в степень числа и если это число больше единицы, то переполнение наступит скоро.
Для рекуррентных выражений используют другой способ:
Следующий элемент ряда может быть представлен так: am+1 =K*am
Отсюда следует, что K = am+1/am. В нашем случае получим: K = x*(m+1)/(m+3).

Теперь программа получается такой:

am := sqr(x)/2;
Sum := am;
for m := 0 to n do
begin
   K := x*(m+1)/(m+3);
   am := am*K;
   Sum := Sum + am;
end;

В добавление, если заняться вычислением с заданной точностью, то программа может быть представлена в такой версии:

am := sqr(x)/2;
Sum := am;
m := 0;
while am >= eps do
begin
   K := x*(m+1)/(m+3);
   am := am*K;
   Sum := Sum + am;
   m := m + 1;
end;

PS: Писал без проверки на компиляторе, так что если что ...
Важно - это идея, см. например, Т.А. Павловская, Программирование на ЯВУ.

Как-то так, ...