ряды

[powerking11]

вычислить сумму элементов ряда
S=сумма от n=1 до 10 ((x+2)^n+1/(n+1)!) * x^3

[powerking11]

Подчеркивает переменную s. Подскажите что я делаю не так

program Project12;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var x,p,u,s:Real;
    f,n,c:Integer;

begin
  Writeln('введите значение x');
  Readln(x);
  p:=Exp((n+1)*ln(x+2));
  f:=2;
  s:=0;
  c:=1;

  for n:=1 to 10 do
  begin
    c:=c;
    p:=p*Exp((n+1)*ln(x+2));
    f:=f*(1+n);
    u:=p/f*(Exp(3*ln(x)))
    S:=s+u       ;


  end;
  Writeln('при x=', X:4:2,'Сумма',n:2,'Элементов B=',s:7:5);
  readln;
end.

[BDA]

Правильность алгоритма не проверял. Точку с запятой потеряли в строке над S.

[powerking11]

теперь выкидывает из программы при вводе числа

[BDA]

А какое значение х вводите?
Вообще, использовать такое "дорогое" возведение в степень в этой задаче считаю неразумным.

p := x + 2;
s := 0;
for n := 1 to 10 do
begin
  p := p * (x + 2) / (n + 1);
  s := s + p;
end;
s := s * x * x * x;

[саша40]

Function RID(A,N: Integer): Real;
function Factorial(X: Integer): Real;
var
I1: Integer;
begin
Result:=1;
For I1:=1 To X Do 
begin
Result:=Result*I1
end;
end;
Var 
i: integer;
begin
Result:=0;
For I:=1 To N Do 
begin
Result:=Result + (Power((a+2),(I+1))/Factorial(I+1)*Power(a,3));
end;
end;

Так пойдет?

[powerking11]

Сообщение от саша40

Function RID(A,N: Integer): Real;
function Factorial(X: Integer): Real;
var
I1: Integer;
begin
Result:=1;
For I1:=1 To X Do 
begin
Result:=Result*I1
end;
end;
Var 
i: integer;
begin
Result:=0;
For I:=1 To N Do 
begin
Result:=Result + (Power((a+2),(I+1))/Factorial(I+1)*Power(a,3));
end;
end;

Так пойдет?

да спасибо