Вычислить значение суммы

[Dezertirov]

Вычислить значение суммы

Programm qq;
Var i,j,fact,n:integer;
s,x:real;
begin
writeln;
write('Vvedite n=');
readln;
write('Vvedite x=');
readln(x);
s:=0;
for i:=1 to n do begin
fact:=1;
for j:=1 to i do
Fact:=fact*j;
s:=s+EXP(N*ln(1))*(EXP(2*N)*ln(X))/2*N*fact;
end;
writeln('s=',s);
readln;
end.

Имеется основа, но не понимаю как в нее поставить решение

 

[AlexZir]

Вот вариант, хоть и немного нерациональный из-за большого числа вспомогательных переменных, но он будет работать куда как быстрее вашего кода.

var x,stx,s:real;
     fact:longint;
     i,n,sign:integer;
begin
writeln('Enter expression n');
readln(n);
writeln('Enter expression x');
readln(x);
fact:=1; s:=1; stx:=1;
for i:=1 to n do begin
if i mod 2=1 then sign:=-1 else sign:=1;
stx:=stx*x;
fact:=fact*i;
s:=s+sign*stx/fact; end;
writeln('s=',s);
readln
end.

 

[Vladimir_S]

Уважаемые господа, допрежь всего позвольте заметить, что формула написана неверно: экспонента разлагается не в знакопеременный, а в знакопостоянный ряд, т.е. там везде должны быть плюсы и никаких минусов. С учетом этой поправки имею предложить свой код, по-моему самый простой:

VAR
 a,S,x:REAL;
 N:Word;
 i:Integer;
BEGIN
 Write('N= ');
 ReadLn(N);
 Write('x= ');
 ReadLn(x);
 a:=1;
 S:=1;
 For i:=1 to N do
  begin
   a:=a*x/i;
   S:=S+a;
  end;
 WriteLn('S=',S:10:5);
 WriteLn('Exp(x)=',Exp(x):10:5);
 ReadLn;
END.

Ну или если слева стоит не Exp(x), а Exp(-x), то ряд будет такой, как написано, и тогда:

VAR
 a,S,x:REAL;
 N:Word;
 i:Integer;
BEGIN
 Write('N= ');
 ReadLn(N);
 Write('x= ');
 ReadLn(x);
 a:=1;
 S:=1;
 For i:=1 to N do
  begin
   a:=-a*x/i;
   S:=S+a;
  end;
 WriteLn('S=',S:10:5);
 WriteLn('Exp(-x)=',Exp(-x):10:5);
 ReadLn;
END.